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The firmware for the HP 2t>4bA is divided up into five sections: wain Code, I/O 
Subsystem, Keyboard, Data Communications (bata Comm), and Alternate i/u. rue 
2645 uses only tne first four sections. Tne alternate I/O section is intended 
tor user-defined I/O devices. Tne I/O Subsystem section is optional with tne 
printer subsystem and/or cartridge tape drives. Additional space Is provided 
for extended functions required in bi-lingual terminals. 


MEMOIR i ALLOCATION 


The micro-processor used in the 
(0-65535). In general, the fir 
the next 4 k (4d-52x), for buffers 
A 4K area in the firmware region 


HP 2645 A has an address 
St 48K ( 0 - 4 d K ) region is all 
; and the last 12K (52-64K), 
(32-36K) is used tor memory 


ing range of 64K 
ocated to firmware, 
for display data, 
mapped 1/0. 


Firmware Allocation 


Each firmware section is allocated a unique region of memory (Eioure 1). Tne 
amount of memory allocation tor each section is as follows: 


Section 


Size of Section (k) 


Main Code lh 

I/O Subsystem 8 

Keyboard 2 

Data Communications 4 

Alternate 1/0 2-4 

Bi-lingual Code 2-4 
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Display Area Allocation 


The upper portion ot the display area is reserved for variables storage and 
device i/o butters. The usage ot the variables storage and l/u buffers is 
defined by the firmware. Part of the variables storage area is reserved for 
common variables (see "Common Area Allocation" section). if no buffer space is 
present, (48-52K), Data Comm buffers are allocated from the aisnlay area. The 
remaining display area is then available for displav data (Fiqure 2). A minimum 
of 4K (60~o4K) of display memory is included in the HP 2b45A and can be expanded 
to 12K. The actual amount of display memory available is determined by tne 
initialiEation routine in the Main Code module. The display area must be a 
contiguous region of memory. 


Fast RAm Allocation 


A 25o-byte PAM area is included on eacn Control Memory Printed Circuit Assembly 
( PC A ) • This memory is accessed over tne top plane connector between tne 
Processor (80&0A-2) and Control memory PCA's, as are the Rum's. This eliminates 
the bus protocol and access contention encountered on bottom plane accesses. 
Thus, a nigher access rate is obtained for memory references over the too plane. 

Tne RAM on a Control Memory PCA configured for tne 0-24K range is accessed with 
addresses in the range 1 10400-11 0777 (octal) inclusively, and a Control Memory 
PCA configured for 24-48K is accessed with addresses in the range 110000-110377 
(octal), only tne ram of the first Control Memory PCA is defined (Figure 3). 

Two vectors are defined in the Fast RAM area: Interrupt and Display Scan. Mach 
vector occupies three oytes. Initially, the vectors are set to the return 
operation code (RET) tor the terminals micro-processor. A third vector is 
reserved for special terminal usage. This vector is not normally initialized to 
the return code unless special code is loaded in the terminal. 

The "interrupt vector" is called each time an interrupt occurs. when called, 
the original A-register and proqram status word (PSw) are already stored on the 
stacic and the A-register is set to the interrupt number (1-7). The interrupt 
vector is intiallv set to a return code (RET). Interrupts may be trapped oy 
storing a jump (JMP) to a trap routine ;Ln the interrupt vector. 

The display scan vector is used by bi-lingual terminals to maintain the current 
mode (bi-1 ingual /normal ) . A call to the locate cursor routine (FCADRA) is 
inserted in this vector to cause the current display enhancement variable 
(LSTDCD) to oe updated to correspond to the current cursor location. This 
vector is called periodically by the monitor routine in the wain code module. 
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Figure 1. Memory Allocation Map 
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Figure 3. Fast RAM Allocation Map 
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code: module descriptions 


The following sections describe the code interface for each of tne code modules 
in the HP 2645A: Main Code, I/O, Keyooard, Data Cornm, and Alternate 1/0. An 
overall functional description is given for each code module, followed by a 
specification and a general functional description for each entry point. 


GENERAL SPECIFICATIONS 


Constants 


The firmware is divided into 2K partitions to correspond to the size of the Pijm 
chips used In the HP 2645A. The first two ana last tnree bytes of each 
partition contain pre-defined values. 

The first two oytes are used to identify the Rom version and to verity that tne 
ROM is loaded in the correct location. The first byte contains a value from "p" 
to "V (olOlOOOO to 01011111). The upper four bits are always 0101 ana tne 
lower four bits represent tne version number (0-15). The secona oyte is set to 
the most sidnificant eight bits of tne 16-bit address cor respondina to that 
location. By comparing the second oyte to the actual address usea to reference 
the location, the diagnostic can determine it the ROM is properly loaded. 

The last three bytes contain the 16-bit CRC-16 remainder and the checksum for 
the bit pattern of the ROM. The checksum is contained in tne last oyte. Tne 
checksum is used by the self-test routine to verify the bit pattern of tne ROM. 
Tne CRC remainder is used by the terminal diagnostic as another check on tne bit 
pattern of the RUM. 


Entry Vectors 


Entry into each of the modules is maae through vectors stored in the lower 
address portion of the module's address space. in general, these vectors 
consist of "dumps” (JMP) into routines within the module. 


Subroutine Specifications 


The subroutine descriptions will specify tne parameters to be included in the 
registers on entry and the register results on exit. Any reaisters not 
specified in tne exit list retain their entry values. Tne processor flags (S, 
Z, P, and C) are generally altered by the suoroutines. Certain routines use tne 
processor flags to signify different return conditions. These conditions are 
specified in the subroutine descriptions. 
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The names given in the subroutine description headers are the actual names used 
within the code module. The names specified within parentheses are the names 
used oy external code blocks to reference the subroutine. 

indentation in the subroutine headers are used to indicate values related to a 
specific entry or exit condition (see description for "KCADRA" in Main Code 
description) • 

The subroutine headers contain a list of the parameters to be included when the 
subroutine is called and a list of results when the subroutine returns to tne 
calling routine, various symbols are used to designate the meaning of the items 
in tne list. 

The equal sign " = " signifies that the memory location or register contains tne 
associated value (e.g., CHAR = INPUT CHARACTER). 

The symbol "=>" is used to designate an implication. That is, when the value to 
the left of the "=>'• is specified, the condition to the right of the symbol is 
implied (e.g., NC => CHARACTER FOUND means tnat if the processor carry flag is 
false, the character was found). 

The symbol "->" designates that a register or memory location contains the 
address of a specified object (e.g., GETADR -> NEXT DISPLAY BYIE means that the 
memory location GETADR contains the address of the ’’NEXT DISPLAY BYTE"). 

The symbol "C )" sianifies the contents of the address given by the value within 
the parenthesis (e.g., (D,E) = NEW VALUE means that the contents of the 
location, wnose address is contained in the d and E register pair, contains tne 
"NEW VALUE"). 

The symbols M U " specify a bit within a byte. For example, ERRFLG [PCMERRJ 
refers to the bit identified by the label DCMERR in the byte ERRFLG. The 
symbols "#” and "<>" are used to indicate the "not equal" condition (e.g., A#0 
means A not equal to zero). A number witn the letter "B" appended specifies an 
octal value (e.g., 177B). 


Messages 


Messages returned from the subroutines are returned as pointers to message 
sections. The message sections consist of an ASCII message stored in ascending 
address order (i.e., first character in lowest address and last character in 
highest address). A message can be broken up into as many as eight (8) 
different sections. 
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The oeginning of each section is stored in one of eight message pointers 
( foSGPT 1 -mSGPTB ) in the Common Variables area. nn returns Alto messages, all 
message pointers, except for msgpti, are to De set by tne subroutine. some 
routines return tne address to oe stored in MSGPTl in a specified reaister pair 
Cgene rally h and L). 

The message sections will oe displayed in order starting with the section 
pointed to by MSGPTl . The last message section must terminate with an End of 
Page flag tKUP - 316 octal). All other sections must ce terminated by a zero 
byte (a byte with all bits set to zero). 
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HP 2645 MAIN CODE INTERFACE 



introduction 

The Main Code module contains the principal giving code for the HP 2645 a. This 
mftrtlllp inrindes code to display cnaracters on tne screen, process escape 
seauences and to perform the various display functions (e.g., Home up. Clear 
Display) ’ Ail other code modules operate under the direction of this module, 
nimoer } o£ entry vectors are provided for access to routines contained in the 

Main Code module. 


The Main Code occupies the 1QK reqion from 0 to 10K (0 to 23/77 
ROM space. 


octal) in the 


INTERFACE SPECIFICATIONS 


Entry Vectors 


The entry vectors to 
vectors consist of 
address : 


the Main Code routines begin at location 
"jumps" (JMP) to the corresponding s 


100 (octal). The 
ubroutine starting 


Location 

Name 

iOO 

DSPMSG 

103 

RSTDSP 

106 

dcnum 

111 

DCPLUS 

114 

dcmnus 

117 

ESCEND 

122 

CHKLIM 

125 

CLBLXF 

130 

SBLXF0 

133 

SBLXFA 

136 

STPTBL 

141 

CURPH 

144 

CURPHD 

147 

FRECNT 

152 

PTBLK 

155 

CLEARL 

160 

CLEARS 

163 

FNDTB2 

166 

SDTERM 

171 

SDTRM1 

174 

XPUTDC 


Function 


Display Message 
Restore Normal Display 

Accumulate Digit tor Parameterized Escape 
Add Plus Sign to Parameter 


Sequence 


Add Minus Sign to Parameter 
Terminate Escape sequence 
cneck parameter Limits 

Clear pending Multi-Character Transfer flag 
Set Pending Flag for Escape Sequence Initiated 


Mul ti-Cnaracter Transfer 
Set Pending Flag for Non-Block Mode Keyboara 
Initiated Mul ti-Cnaracter Transfer 
Initialize for Display Transmission 
Home Cursor (exclude Transmit Only fields) 
Home Down Cursor 

Check Number of Free Display Blocks 
Add Display Block to Free List 


Clear Line 
Clear Display 
Set Bit in Byte 

send block Terminator and End Transfer 
Send Block Terminator Only 


Transmit Character 
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177 TRMTST Perform Terminal Self-Test 

202 CHINTO Perform Character function 

205 INI T o o initialize for Display Tear-Apart. 

210 GETDSP Get Next Display Character for Output 

213 LivFEED Perform Line feed 

2 16 expand Expand Display Control Byte 

221 NXTCHR Get Next Display Character in Display List 

224 GETDCM Process Data Comm input 

227 MLKSCO Locate First Unlocked Row 

23 2 MLKQFO Turn off Memory Lock 

235 HANbUO Hang Terminal on fatal Error 

240 BUFMSG Pointer to Buffer Overflow Message 

242 0C TEST Perform Data Comm Self-Test 

245 IGRMGG Go To Code in Optional ROM 

250 BN2DEC Convert 16-t>it binary to Decimal 

253 BN 2 DEO Convert 8-bit Byte Binary to Decimal 

256 RCAORA Locate Current Cursor Location 

26 t G I mode Check for Page Mode 


Local Variables 


Local variables for the Main Code routines are stored in the ham region 
177440-177717 (octal!. ihe definition of this area is at the discretion of the 
Main Code subroutines. 

A message buffer of «0 bytes is located in the region 17/000-177120 (octal). 
This area is used to display error and information messages. Messaaes storea in 
tnis area may extend into the device I/O buffers (176000-17^777 (octal)). 


Fast: Access RAm 


No Fast Access RAM other than the stack is used oy the Main Code routines. 
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functional description 


General 


ine Main Code module can be atvlaea into a number of major sect ‘°'’?' Jr!? e 
Monitor and Function interpretation, Cursor Control, Display Memory Management, 
Editing Features, Format Mode operations, and Block node Operation, 

Monitor and Function interpretation 


The monitor receives input from the Keyboard and oata comm and initiates the 
required operation to interpret the input. Tne I/O code module handles input 
from tne CTU or alternate 1/U device and calls tne character interpreter routine 
CChINTJ to process tne input. 

Normally, the terminal is executing a wait loop (Flowchart 1) waiting for input 
and monitoring tne status of tne cartridge tapes, wnen input is r ^^ 0 ' 
appropriate functions are invoiced to process the input. After tne functions are 
performed, tne terminal resumes the wait loop. 

Tne terminal is essentially a table driven state macnine. Tne actions taken are 

^ ~ _ _ k _ i ~ ± ^ ^ f na from rhP 


primarily derived from the characters 
keyboard, data comm, or cartridge tapes; 
RECORD ) initiate non-table actions, 
functions . 


entered into the 
out certain keys 


terminal from the 
(e.g., READ and 


These keys initiate internal terminal 


The addre 
Each tab 
the lower 
two byte 
used for 
the addr 
is a one, 
location 
represent 
the iowe 
two oytes 


SS of the currently active state table is maintained in location **GTA. 
le entry consists of. tour action bytes. Tne first two bytes represent 
and upper boundary of characters applicable for the entry. me last 
s are the address of either the action routine or an index table to be 
tne associated input characters. The least significant byte (LSB) of 
ess is Stored in tne first byte, if tne hrgh order bit of tne address 
the value (with the nigh order bit masked out) represents the starting 
of the action routine to process the input. Otherwise, the value 
s the base address of an index table of action routine adaresses using 
r limit as the index case. Each entry in tne index table consists of 
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Example- 

815 EQU 100000B BIT 15 

♦ 

H TABLE: EQU *-3 NORMAL RANGE: TABLE 

DEE' 40B,177B ALPHAN UMERiCL 

DEAD DSPCHR+B15 EXECUTE DISPLAY ROUTINE 
DEE 78, 1 7 B BELL , BS ,hT , LE , \l T , FF ,CP , Su , S T 

DFAO RTB010 USE FUNCTION INDEX TABLE 

DEE 338, 3 3 B ESCAPE CONTROL CODE 

OF AD ESCAPE+B15 EXECUTE ESCAPE ROUTINE 

DEE OB, 1 7 7 B ALL OTHER CODES 

DEAD CHKCTL+6 1 5 CHECK FOR ttLOCK TRANSFER TRIGGER CHARACTER 

♦ 

* INDEX TABLE FuP <BELL> THROUGH <SH3FT IN> 

* 

RTB010 EQU * 

DEAD ZBELL BELL - SOUND KEYBOARD BELL 

DF AD BCKSPC BS - BACK St- ACE CURSOR 

DFAD UTAH HT - FORWARD TAB CURSOR 

DFAD LwFEFD LF - LINE FEED 

DFAD hOFNCI VT - NO FUNCTION 

DFAD NOFNCT FF - NO FUNCTION 

DFAD CRPET CR - RETURN CURSOR 

DFAD SHFTOT SO - SHIFT OUT 

DFAD SHFT1N SI - SHIFT In 

BIS is an equate for bit 15. R TABLE is the action table. The character 

processinq routine requires that the action table address dp three less than tne 
actual start aadress of the table. RT BO 1 0 is an index table to the action 
routine for tne characters BELL through SHIFI in. 


Cursor Control 


A number of routines are contained in the Main Code to perform the various 
cursor control operations. This includes tne cursor up, down, left, riont, home 
up, home down, and return. Another routine is included to advance tne cursor 
after a character has been entered on the screen. None ot the above routines 
cause new display lines to pe generated. The other cursor control routines, 
tab, bacK tab, cursor addressing, ana line feed, cause new display line(s) to oe 
generated as needea. 

Tne current cursor position is maintained in locations CuRCOL ana CUKRUW for tne 
screen column and row respectively. Location TLINO contains the absolute row 
number of the top row on tne screen. Thus, the absolute row mumper of the 
current row is given by CURROWtTHNO. 

Location CURaqf contains the Ram address of the last character processed bv the 
(Main Coae routines. LSTROw and LSTC’uL contain tne screen row and column 
location of the character corresponding to CURADR. The address of the character 
at the current row and column may be found by calling the routine RCA DDR • 
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Display Memory Management 


The display 
The Display 
the linked 
the next and 
forward dir 
display memo 
nigner addr 
in order of 
display use 


memory is organized into a linked list of 16-byte blocks of HAM, 
Memory Access (DMA) hardware contains enough intelligence to follow 
list and generate the display. Individual rows are linked with botr 
previous rows, while blocks within a row are linked only in the 
ection into the next olspiay dIock tor the line. The characters in 
ry are stored in reverse order (i.e., characters are stored from 
ess to lower address) since tne DMA extracts characters from memory 
decreasing addresses. Ali display blocks not currently allocated for 
are maintained on a tree storage linked list. 


The display memory management routines handle the allocation and de-al location 
of display blocks. Tne gtblf routine gets a display block from the free list. 


If the free list is empty, the P1BLK routine is called 
display list and add the blocks to the tree list. The 
another display line and appends it to the end 
combination of these routines and numerous in-line 
create, extend, and de-ailocate lines. 


to remove a line from tne 
GTNwLN routine generates 
of the display list. A 
operations are used to 


Short lines do not require display blocks to be allocated to fill the eighty 
character line as a special control Dyte (EOL - 314 octal) is recognized by tne 
DMA as the end of line code. This allows for a more efficient use of the 
display memory because memory is not wasted in padding out short lines. 


A display position may actually consist of one or more non-di splay ing flag 
characters or enhancement-controls along with the displayable character. 
Ennancemen t-cont ro i s include codes to enable/disabie tne various video 
enhancements (i.e., inverse, blinking, halt bright, ana underline) and to switcn 
character sets. Flags are used as firmware control codes. Typical uses are to 
mark the beginning of protectea and unprotected fields and to mark fiei 
checking attributes. The location LSTDCD contains the current display 
enhancement code and location LSTFMT contains tne currently active format code. 


baiting Features 


Four editing functions are implemented; cnaracter insert and aelete, ana line 
insert and delete. Additionally, character insert and delete may be performed 
witn or without wrap-around. 

Line insert and delete are performed by adding or deleting a line in tne display 
list. insert line involves creating a new line from the free list and altering 
the next and previous row pointers at the appropriate location in the display 
list to include the new line. A line aelete is performed Dy adlusting the next 
and previous line pointers in the display list to skip over the line to be 
deleted. The deleted line is adoea to the free list. 

Character insert and delete are performed oy shifting the characters in a line 
through the line's linked list. If a display block becomes empty as a result of 
a cnaracter delete, the block is adriea to the free list. insert wrap is 
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performed by saving the characters that get shifted out of the riant margin and 
inserting them at the left margin of the next line. This involves savina tne 
current state of the cursor and establishing a temporary state in whicn tne 
cursor is located at the left margin of tne next line and executing a character 
insert without wrap-around, wnen a character is shifted out, all non-ai splaying 
codes associated with tne character are included. Delete with wrap-around 
operates in the converse manner. 


Format node operation 


Format .Mode involves the arrangement of the display into protected, unprotected, 
and transmi t-only fields. The transmit-only and unprotected fields may also oe 
defined with aipnabetic or numeric, character type checKinq. Tne user can alter 
data in the unprotected and transmit-only fields. Format Mode causes many of 
the terminal functions to oe altered: 

- The home up function moves the cursor to the first unprotected field in tne 
display List. 

- The tab and oacK tab functions move the cursor to the first character of 
tne next and previous unprotected field, respectively. 

- Tne clear line and clear display functions erase only the unprotected 

fields. vSpecif ically, the clear line function will clear only tne current 

field. Remaining fields in a line are not affected oy the clear line 

function. Tne clear display function clears all unprotected fields from 
the current cursor location through tne last field in tne display. 

- The character insert and delete functions operate within the current 

unprotected or transmit-only field rather than the current row. Also, tne 
wrap-around option is disabled. 

- The line insert and delete functions are disaoled. 

- in block Mode, only data in tne unprotected and transmit-only fields are 

transmitted to the computer. 

- Next and Previous Page position the cursor in the first field in tne 
appropriate page. 

- When the last character of the last field on a page is entered, a next page 

operation will be performed. if the field is the last field in tne form, 

the cursor will remain positioned after the last character in the field 
after the field is tilled. Entering characters wnen the cursor is past the 
last field will cause an automatic home up and the entered character will 
appear in the first, character of the first unprotected field. 
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t>loc*. Mode Operation 


^nile operating in Block: Mode, no oata is transmitted to the host computer until 
requested oy tne computer or operator. Data entered from tne keyboard simply 
appears on the screen and is not sent to tne computer as in character mode where 
characters are sent as tne keys are hit. mis allows the user to compose text 
on tne display, edit it, and then send the data wnen tne user is satisfied with 
t.ne display. 

The user presses the Enter key to send the display to the computer. 'ihis 
involves the DPSEND routine to set the display oata pending flag c-'flGS 
USENTEPJ ) ana to optionally set the non-di splayina terminator via olIFPM and/or 
set tne starting position for tne display tear apart routine (GFihbP). un 
invoicing tne display transmission, iMTPo sets up tne initial parameters for tne 
tear apart function and successive calls to tne g c iD 5P routine are made to 
extract the display oata. 
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, -SUBROUTINE SPECIF1CA1 IUNo 


Each Subroutine will use the registers as specified below. Any registers not 
specified in t ne exit list are returneo with their contents undisturbed. The 
settings of the processor flags (S, Z, P, and C) are aenerally not retained. 
Certain routines use the processor flags to represent exit conoitlors. Tnese 
conditions are listea in the subroutine headers. The labels specified for tne 
subroutines are the actual labels used in the source code. 


Display Message 


DiSPMSG - DTSPLAX MESSAGE 

ENTHYS MSGFTI-mSGPTH -> MESSAGE SECTIONS 

NC => ADD MESSAGE' Tu NORMAL DISPLAY 
r => REPLACE DtSFLAX WITH MESSAGE 

EXIT ; ALL REGISTERS DESTnU YtD 

This routine is called to disniay information or error messages. The message 
sections are extracted via tne lu-Dit aduress pointers stored in *SGPT 1 -MSGP J’8 
in tne common area. Tnese messages are stored In ascending oraer. These 
pointers point to the left-most character in tne message section. Tne message 
sections are terminated ov either a zero byte or an tna of Pane code (c,0P - 3 in 
octal J. A zero byte termination implies that the message continues into tne 
/next message section while an EOF, signifies the eng of. fne message. The 

pointer to the first message section is stored in MSdPil ano so forth. 

when a message is addea to the normal display* tne message begins at tne current 
cursor location. when a message replaces the normal display* the messaae starts 
at tne upper left corner of the screen. A call to the restore display routine. 
(RSTDSP) will restore the screen to the normal display. 


Messages added to the normal display are usually informational (e.g., bASiC LATA 
COriM oELF-TESI OK). Messages replacing the display are usually error messages 
(e.g.* ROM ERROR ) . 
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Restore Normal Display 


RSTDSP - RESTORE NORMAL DISPLAY 

ENTRY: DON'T CARE 

EXIT ! PROCESSOR FLAGS UNCHANGED 
A , H , L DESTROYED 

This routine is called to restore the normal display after a call to DSPMSG has 
been made to replace the display with a message. This routine may be called 
even if no message is currently on display. The display will oe restored to 
eitner the operating or soft Key display, whicnever is currently active. 


Accumulate Digits for Parameterized Escape Sequences 


DCNUM - ACCUMULATE PARAMETER FOR ESCAPE SEQUENCE 

ENTRY: CHAR = INPUT CHARACTER 

RADIX = RADIX OF NUMBER ACCUMULATED 
IOCSGN = SIGN OF NUMBER 
IODATA = ACCUMULATED VALUE 

EXIT : Z TRUE 

IOCSGN = 200B IF NO SIGN FOR VALUE 
OTHERWISE, UNCHANGED 

IODATA = (ENTRY VALUE * RADIX) + INPUT VALUE 
A,D,E,H,L DESTROYED 

This routine is called when a digit input character has been received for a 
parameterized escape sequence. A 16-bit value is maintained in location IODATA. 
If the digit is received with no preceding sign (IOCSGN = 0), then IOCSGN is set 
to 200B to indicate an unsigned value. 


Add plus Sign to Escape sequence Parameter 


DCPLUS - PLUS SIGN RECEIVED FOR PARAMETER 

ENTRY: DON'T CAPE 

EXIT : A , B , H , L DESTROYED 

IOCSGN = i 

IF A SIGN VALUE IS ALREADY SET (IOCSGN # 0), THEN THE ESCAPE SEQUENCE IS 
ABORTED B* EXITING VIA "ESCEND". 

This subroutine is called when a plus sign is received for a parameter value in 
a parameterized escape sequence. 
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.Add Minus Sign to Escape Sequence Parameter 


DCMNIJS - MINUS SIGN RECEIVED FOR PARAMETER 

ENTRY: DON'T CARE 

EXIT : A,B,H,L DESTROYED 

IQCSGN = -1 


XT A SIGN VALUE IS ALREADY SET (IOCSGN # 0), THEN THE 

aborted by exiting via "escend". 


ESCAPE 


SEQUENCE IS 


This suoroutine is called when a minus sign 
a parameterized escape sequence. 


is received for a parameter value in 


Terminate Escape Sequence 


ESCEND - END ESCAPE SEQUENCE PROCESSING 
ENTRY: DON'T CARE 

EXIT : RNGTA = RTABLE IF NORMAL MODE 

= DESTBO if SOFT KEY MODE 
ESCELG = 0 
MFLGS2 C ESC INP ) = 0 
A f H , L DESTROYED 


This escape sequence at the ena of escape sequence processing to restore 
character processing. 


normal 


Check: Parameter Limits 


CHKLIM - CHECK PARAMETER BOUNDARY CONDITIONS 

ENTRY: B = CURRENT VALUE 

C = MAXIMUM ALLOWABLE VALUE 
D f E -> PARAMETER TO BE SET 
IODATA = INPUT VALUE C2 BYTES J 

IGPSGN = -1 => NEGATIVE ADJUSTMENT 

0 => ABSOLUTE SETTING 

+1 => POSITIVE ADJUSTMENT 

EXIT : ( D , E ) = NEW VALUE 

A,C,H,L DESTROYED 


This suoroutine is called 
variable in the terminal 
is the sum of the current 


to evaluate a parameter tnat alters an existing 
(e.g., cursor address). if lOPSGN is *1, the new value 
value (B) and the input value C IODATA) • if lOPSGN is 
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-1 # tne new value is the current value minus IODATA • Otherwise, the new value 
is set to the input value. The new value must be in the range from zero CO) to 
the maximum as specified in the C-register on entry to this routine. The 
largest maximum value is 256. if the computed value is greater than the maximum 
allowed, the new value is set to the maximum allowed. Similarly, if the 
computed value is less than zero, the new value is zero. 


Clear Pending Multi-Character Transfer Flag 


CLBLXF - CLEAR BLOCK TRANSFER PENDING FLAG 

ENTRY! B = 377B-CBITS TO CLEAR FkOM h MFLGS m ) 

C = 377B-CRITS TO CLEAR FROM M MFLGS2 M ) 

EXIT : H = BASEH (377B) 

A , B , L DESTROYED 

This routine is called to clear a multi -character transfer pending flag. It no 
more transfers are pending, the Keyboard is unlocked and the block transfer 

trigger flag is cleared. otherwise, only the block transfer trigger flag is 

cleared and the keyboard remains locked. 

The pending flags are bits stored in locations "MFLGS" and "MFLGS2 M : 

Bit Function 

MFLGS 0 DC2 PENDING 

1 TERMINAL STATUS PENDING 

2 ALTERNATE TERMINAL STATUS PENDING 

3 DEVICE STATUS PENDING 

4 CURSOR SENSE PENDING 

5 FUNCTION KEY PENDING 

6 DISPLAY SEND PENDING CESC d or ENTER KEY) 

7 DEVICE DONE RESPONSE PENDING 

MFLGS2 0 DEVICE RECORD PENDING 

1 BINARY DATA PENDING 

2 RELATIVE CURSOR SENSE PENDING 
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Set Pending flag for Escape Sequence and Non-Block Mode 


Keyboard Initiated Mul t 1 -Cnarac ter Transfers 


SBLXfO - SET BLOCK TRANSFER FLAG FOR ESCAPE 
SEQUENCE INITIATED MULTI-CHARACTER TRANSFERS 

SBLXFA - SET BLOCK TRANSFER FLAG Hjk nOn-BLuCk 

MODE KEYBOARD INITIATED MULT 1 -CHARACTER TRANSFERS 

ENTRY; B = FLAGS TO BE SET IN "MELOS" 

C = FLAGS TO BE SET In "MFI.GS2" 

exit ; ALL REGISTERS DESTROYED 

MULTI -CHARACTER TRANSFER TRIGGER ( XONFLG ) 

AND DC 2 PENDING FLAG ARE SET ACCORDING 
TO OPTION SWITCHES G AND H 

These routines are called to set the pending flag for a multi-character transfer 
initiated either by an escape sequence (e.g., cursor sense) or from the keyboard 
while not operating in Block node (e.g., ENTER key). See tne description for 
tne "Clear Mul ti-Cnaracter Transfer Pending Flaq" routine for a list of tne 
flags. 


Initialize for Display Transmission 


STRTPL - SET FIRST DISPLAY OUT CHARACTER FOR 
DISPLAY STORE OR TRANSMIT 

ENTRY; DON'T CARE 

EXIT ; CURCOL, CURKOW = STARTING POSITION 
ALL REGISTERS DESTROYED 

This routine is called to set the starting location for tearing apart tne 
display. if the Auto-Terminator option switch (D ) is open, a non-al splay i no 
terminator is placed ahead of tne current cursor position and a reverse scan is 
made fo r the first terminator before the current cursor position as the starting 
location. If no terminator is found or option switch J is closed, then tne 
display tear apart is set to begin at the home position. 
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Home Cursor (exclude transmit-only fields) 


CURPH - HOME CURSOR (EXCLUDE TRANSMIT-ONLY FIELDS) 

ENTRY? DON'T CARE 

EXIT ; ALL REGISTER DESTROYED 

This routine places the cursor at the "home H location in the display memory In 
non-Format Mode, the cursor is placed at the left margin of the first unlocked 
line in the display. Then the display is rolled down until the first unlocked 
line in display memory is the first unlocked line on the screen. 

in Format Mode, the cursor is placed In the first unprotected field in the 

display after the top unlocked line is rolled down to De the first unlocked line 
on the screen. This may result in the cursor being placed in the locked portion 

of the screen if an unprotected field is included in the locked portion of tne 

screen. 


Home Down Cursor 


CURPHD - HOME DOWN CURSOR 
ENTRY? DON'T CARE 
EXIT ? ALL REGISTERS DESTROYED 

This routine places the cursor at the bottom of display memory. if tne last 
line contains any characters, the cursor is placed one line below the last line 
Otherwise , the cursor is located in the last allocated line, in any event, the 
cursor is positioned at the left margin. The display is rolled up as required 
to put the last line on the screen. 


Check Number of Free Display Blocks 


FRECNT - CHECK NUMBER OF FREE BLOCKS 
ENTRY? DON'T CARE 

EXIT ? Z => ENOUGH FREE BLOCKS AVAILABLE 
NZ => NOT ENOUGH FREE BLOCKS 
ALL REGISTERS DESTROYED 

This routine is used during Edit Mode to determine if enough free blocks are 

available to display the next input record, a successful return (Z) Is made 

when twenty-five (25) or more display blocks are free. it there are 

insufficient free blocks, a call is made to the de-ailocate routine (PTBLK) in 

an attempt to generate more free Mocks. A fail return (NZ) occurs If no blocks 
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can be ae-al located. 


Add Display Block to Free List 


PTBLK - RELEASE A LIME TO THE FREE LIST FROM 
THE DISPLAY LIST 

entry: don't care 

EXIT : Z => LINE NOT RELEASED 

MC => MEMORY LOCKED 

C => OUTPUT FAILED FOR EDIT MUDl PUT 
ALL REGISTERS DESTROYED 
N Z => LINE RELEASED 

D,E -> FIRST DISPLAY CHARACTER 
TN LInE RELEASED 

A = F 

B,C,rt,L DESTROYED 

This routine removes a line from the display list and adds the line to the tree 
list. The top display line is de-allocated if tne cursor is in the last display 
line. Qtnerwise, the last display line is de-aliocatea (l.e., Memory Lock 
occurred or 1/0 failure when recording line in Edi t /uata-Logginn Mode). 

A tail return of z# C implies that an 1/0 failure occured when an attempt was 
made to record the de-allocated line onto an 1 / o device. Otherwise, the tail 
.return is due to a Memory Lock. 


Clear Line 


CLEARL - CLEAR LINE 
ENTRY: DON'T CAPE 

EXIT : A = -1 => CURSOR e AST END OF PAGE (LOP), CLEAR NOT DONE 

= o => character found and clear done 

> 0 => CURSOR PAST EOF, CLEAR NOT DONE 

ALL OTHER REGISTERS DESTROYED 

This routine performs the Clear Line function. in non-Format Mode, the line is 
cleared from the current cursor location to the end of tne line. Any cleared 
out blocks are added to the tree list. 

in Format Mode, clearing terminates at the end of the unprotected or 
transmi t-onl y field. Blanks are written into tne field starting from the 
current cursor location to tne end ot tne field. It tne cursor Is in a 
protected region of the display, the clear line function is not performed. 
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Clear Display 


CLEARS - CLEAR DISPLAY FROM CURSOR POSITION 
ENTRY: DON'T CARE 

EXIT : ALL REGISTERS DESTROYED 

This routine performs the clear display function. The display is cleared from 
the current cursor location to the end of display memory. In non-Format Mode, 
all lines below the current line and any cleared out blocks In the current line 
are added to the free blocks list. 

in Format Mode, only unprotected fields are cleared. If the cursor is in a 
transmi t-only field, the transmit-only field will also be cleared from the 
current cursor location to the end ot the field, no other transmit only fields 
are cleared. if the cursor is in a protected region of the display, ail 
unprotected fields starting with the next unprotected field, are cleared. 
Blanks are written into each field to clear the field. No display blocks are 
de-allocated unless display enhancements are removed. 


Set Bit in Byte 

FNDTB2 - SET BIT N 

ENTRY! B = BIT NUMBER ( N ) TO BE SET (1-8) 

EXIT ! A = BYTE WITH BIT N SET 
B = 0 

This routine generates a byte with the nth bit set. The least significant bit 
is bit 1 and the most significant, bit 8. 


Send Block End Character(s) and End Transfer 


SDTERM - SEND BLOCK END CHARACTER ( S ) AND END TRANSFER 
ENTRY: DON'T CARE 

EXIT : A DESTROYED 

This routine causes transmission of the block end character(s) and makes a call 
to the Data Comm Code module to signal tne end of a block transmission. 

If the terminal is operating in Block-Page Mode (BLOCK MODE key down and 
keyboard option switch D open), only the block terminator character (BLKTRM from 
the Data Comm module) is sent. Otherwise, a Return and an optional Line Feed 
(if tne AUTO LF key is down), are sent without a block terminator character. 
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Send Block' h: n d Character (s) Only 


SDTRMl - SEND BLOCK FND CB A KAC TE R l S ) 

ENTRY: DON'T CAPE 

EXIT : A DESTROYED 

This routine causes only tne block end character(s) to be transmitted as 
described above tor the sDTErm routine. But tne Data Comm ntodule is not called 
to signal the end of the transmission block. 


Transmit Character 


XPUTDC - TRANSMIT CHARACTER 

ENTRY: A = CHARACTER TO bF TRANSMITTED 

EXIT : NC => TRANSMIT SUCCESSFUL 

C => CHARACTER NOT TRANSMITTED 
A DESTROYED 

This routine is called to transmit a character out from the Data Comm module. 
The character is transmitted only if the terminal is in Remote Mode. It the 
terminal xs not in Pemote Mode , the routine returns as if the character had 
been successfully transmitted. 


Perform Terminal Self- test 


TRMTSI - PERFORM TERMINAL SELF-TEST 
ENTRY: DON'T CARE 

EXI1 : ALL REGISTERS DESTPOYP D 

This routine performs the terminal self-test operation. A return is made only 
if tne self-test is successful. It the self-test command is initiated from tne 
data comm (DFLGS ISDACOM] = 0 ), a full terminal reset will be executed It a 
seif-test error occurs. Otherwise, tne terminal will lock up (lump to routine 
HANGUP J with an error messaae displayed on tne screen. 
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Perform Character Function 


CHINTO - PERFORM CHARACTER FUNCTION 

ENTRY: C = INPUT CHARACTER 

EXIT : Z => FAST STORE ROUTINE USED 

NZ => FULL PROCESSING USED 
ALL REGISTERS DESTROYED 

This routine (Flowchart 2) performs the character function according to the 
action table pointed to by PNGTA • Fast processing adds the input character 
directly to the display list without scanning tne action table. Normal 
processing searches the action table for the character function. Fast 
processing is used only if the previous character was a display character added 
to an existing display block (CRAFLG > 0) and the current cnaracter is 
displayable (406 <= input character < 200B). 


Initialize for Display Tear-Apart 


IN1TD0 - INITIALIZE FOR DISPLAY GET 
ENTRY: DON'T CARE 

EXIT : Z => STARTING CHARACTER FOUND 

GETADR -> FIRST CHARACTER 
NZ => CHARACTER NOT FOUND 
GETADR UNCHANGED 
ALL REGISTERS DESTROYED 

If Format Mode is oft, CURCOL is set to zero, otherwise, CURCOL and CURROW are 
set to the next unprotected character. 

This routine locates and sets the tear apart pointer (GETADR) to the initial 
character for the "GETDSP" routine. If the terminal is in Format Mode 
(MDFLG1 (FORMAT) = 1), GETADR is set to the address of the character at tne 
current cursor location. Otherwise, the cursor and start address are set to the 
first character in the current line. 

A "no character found" return (NZ) occurs if the cursor is below the last 
display line. 
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Get Next Character for output 


GtrDSP - GET A CHARACTER FROM THE display 

entry; GET A DR -> NEXT DISPLAY BYTE 

CURCOL = COLUMN NUMBER OF NEXT DISPLAY bYTF 

EXIT ; NC => CHARACTER FOUND 
A = CHARACTER 

CUFCOL , GETADR UPDATED FOR NEXT CHARACTER 
C => NO CHARACTER 

M => END OF DISPLAY 
Z => END OF FIELD 
P, NZ => END OF LINE 
A DESTROYED 
B-L DESTROYED 

This routine gets the next display character wnen tearing apart the display. 
The character returned may be either a 7-bit ASCII character or an 8-bit display 
ennancement/f 1 ag character. The expand routine (EXPAND) may oe cailen to 
generate the escape sequence for the enhancement /f lay character. 


Perform Line Feed 


LNFEED - EXECUTE LINE FEED 

ENTRY: DON'T CARE 

EXIT ; ALL REGISTERS DESTROYED 
SPOwL = 3/76 

This routine performs the line feed function. A new line is generated it the 
cursor is moved oeiow the last display line. The space overwrite (SPOw) latch 
is cleared by setting location SPOWL to all ones. 
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Expand Display Control Byte 


EXPAND - EXPAND DISPLAY CONTROL/FLAG BYTE 
TO ESCAPE SEQUENCE 

ENTRY: A,C = DISPLAY CONTFOL/FLAG BYTE 

EXIT : B2DBFL = ESCAPE SEQUENCE TO GENERATE 

DISPLAY CONTROL/FLAG BYTE 
B2DPTR -> B2DBFL-1 ( LSB OF ADDRESS ONLY) 

B2DEND -> LAST CHARACTER OF ESCAPE SEQUENCE 
IN B2DRFL (LSB OF ADDRESS ONLY) 

This routine accepts a display enhancement or flag character and generates the 
escape sequence(s) necessary to reproduce the character. The result is placed 
into a 9-byte puffer stored in increasing address order. Locations B2DPTR and 
B2DEND contain tne LSB portion of the "first - 1" and last character address of 
the escape sequence, respectively. The MSB part of the addresses is BASEH 
( 377B) • 


Get Next Character in Display List 


NXTCHR - GET NEXT CHARACTER TN DISPLAY LIST 

ENTRY: D,E -> CURRENT CHARACTER 

EXIT ; Z => CHARACTER IS NOT AN EOL LINK 
A s DISPLAY CHARACTER 
D,E -> CHARACTER 

NZ => NEXT CHARACTER IS AN EOL LINK 
A DESTROYED 

D,E -> NEXT LINE LINK (MSB) 

This routine gets the next character In the display list. Display links at the 
end of a display block are automatically skipped over to get the first character 
in tne next display Dlock. 
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Process Data Comm Input 


GETDCM - PROCESS DATA COMM INPUT IF ANY 

ENTRY; DON'T CARE 

EXT T : CARRY FLAG = 0 (NO 

NZ => Nu MORE Data IN DATA COMM Bu^rFR 
Z => FULL PROCESSING USED => DATA COEM 
BUFFER MAX NOT BE EMPTY 
ALL REGISTERS DESTROYED 

This routine (Flowchart 31 gets any input from tne Data Comm and processes the 
input. The data comm is accessed only it the terminal is in Remote node. It 
fast processing is used (see description of GRIND, data continues to be fetched 
until either tne data comm Putter is empty or full processing is required for 
the input. 


Locate First Unlocked Ho* 


MLKSCO - LOCATE FIRST UNLOCKED ROW 
ENTRY: DON'T CARE 

EXIT : Z => NO UNLOCKED ROWS ON SCREEN 

A , C , H , L DESTROYED 
NZ => FIRST UNLOCK ROw FOUND 
H , L -> FIRST UNLOCKED ROW 

(POINTS TO LSfa OF NEXT LINE POINTER ) 

A , C DESTROYED 

This routine locates the first unlocked line on the screen, it display lock is 
not enabled, the address of the too line on the screen is returned, otherwise, 
tne address of the first line oelo* the display lock boundary is returned. A 
tail return (Z) occurs if tne display lock boundary is oeiow the last line on 
the screen. 
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Turn Off Memory Lock 


MLKQFO - TURN OFF MEMORY LOCK 

ENTRY: DON'T CARE 

EXIT : MLKFLG = 0 

A,8,H,L DESTROYED 

This routine clears the display lockout condition, if the memory lock function 
is set for display lock, then tne memory lock function remains enabled and only 
the lockout condition and LEO blinking are turned off. Otherwise, the memory 
lock function is turned oft also (MDFLG1 LMEMLOKJ =0). 


Hang Terminal on Fatal Error 


HAMGUO - DISPLAY FAIL MESSAGE AND HANG TERMINAL 

ENTRY; H,L -> FIRST MESSAGE SECTION 

MSGPT2-MSGPT8 = POINTERS TO REMAINING 
MESSAGE SECTIONS 

This routine is called to display an error message and hang the terminal. The 
contents of the h and L registers are stored in MSGPT1 and the message is 
displayed via the DSPM5G routine. Then the terminal is "hung" by executing an 
endless loop. Tne terminal can pe restored to normal operation only by pressing 
the reset terminal button or by powering the terminal off, then on. 


Pointer to Buffer Overflow Message 


6UFMSG - ADDRESS OF BUFFER OVERFLOW MESSAGE 

This 2-byte location contains a pointer to the message "BUFFER OVERFLOW" in the 
Main code module. Tne pointer points to the first character (b) and the message 
is stored from low address to high address. The message is terminated by an EOP 
code (316B). The address value may used as a parameter to the DSPMSG routine. 
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Perform Data Comm Self-test 


DCTEST - EXECUTE DATA C 0 M N SELF -TEST 
entry: don't care 

EXIT : ALL REGISTERS DESTROYED 

This routine Invokes the data comm self-test routine of the data comm cooe 
module ( 2 DCT 0 T ) . The data comm self-test routine is executed only it the 
terminal is in Remote mode. A return is made only if the self-test executed 
successfully or if the terminal is in Local Mooe. 


Go To Code in Optional Rom 


IORMGO - PERFORM FUNCTION If OPTION ROM IS PRESENT 

ENTRY: H,L -> 7 EC TOP TO RE ENTERED 

EXIT : NC => FUNCTION lXeCUTED 

REGISTERS SET ACCORDING TO FUNCTION 
C => FUNCTION NOT EXECUTED 
A DESTROYED 

This routine is called to enter coae in an optional ROM. This routine 

determines the presence of a ROM by inspecting the first two bytes in the POM 

space to be entered. The first two bytes are accessed by setting the i.Srt part 
of the address to zero ( 0 ) and one (1). The upper four olts of the first byte 

must contain the pattern ”0101" and the second byte must match the MSB part of 

tne address. 


Convert 16-bit Binary to Decimal 


6N2DFC - CONVERT DOUBLE WORD BINARY TO DECIMAL 

ENTRY: P,E = BINARY VALUE TO BE CONVERTED 

H,L -> FIRST BYTE IN OUTPUT BUFFER 

EXIT ; H , L -> NEXT BYTE IN OUTPUT BUFFER 
A-E DESTROYED 
LNKS A V , CNTf AD DESTROYED 

This routine converts a 16-bit binary value to its decimal ASCII equivalent. 
The conversion can result in as many as five (6) ASCII characters. The output 
buffer is filled from the low address to a hiqner address. On the return from 
this routine, the h ana l registers will contain the next available byte in tne 
output buffer, which will be set to null (all zeroes) by tne conversion routine. 
LNKSAV and CNTFAD are used as work areas by this routine. 
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Convert 8-blt Binary to Decimal 


BN2DE0 - CONVERT SINGLE BYTE TO ASCII DECIMAL 

ENTRY! A = BYTE TO BE CONVERTED 
H,L -> OUTPUT BUFFER 

EXIT ! NZ 

H,L -> NEXT BYTE IN OUTPUT BUFFER 

A-E DESTROYED 

LNKSA V t CNTFAD DESTROYED 

K^ Utl ? e pertor,ns the same operation as BN2DEC above, out operates only on 
an »-Dit value* „ 


Locate Current Cursor Location 


RCADRA - LOCATE CURRENT CURSOR LOCATION 

ENTRY! CURROW,CURCOL = DESIRED ROW/COLUMN POSITION 
LSTROw , LSTCOL a LAST ROW/COLUMN PROCESSED 
CURADR a ADDRESS CORRESPONDING TO LSTROw , LSTCOL 
LSTLIN -> LINE CORRESPONDING TO LSTROw 

EXIT ! Z => CHARACTER FOUND 

D,E -> CHARACTER AT CURSOR LOCATION 
A,B,C,L DESTROYED 
NZ => CHARACTER NOT FOUND 
M => NEED ADDITIONAL ROWS 
E = NUMBER UF ROWS NEEDED 
P => ROw LOCATED 

A a COLUMN NUMBER FOUND 
B = ROW NUMBER FOUND 
C = NUMBER OF CHARACTERS NEEDED 
D,E -> LAST CHARACTER FOUND 
LSTROW, LSTCOL, LSTLIN, CURADR, LSTDCD ARE UPDATED 
TO REFLECT THE LAST CHARACTER FOUND 
NROwS* 8LKFIL a 0 


is r utine locates the address o f the character corresponding to the current 
•nhf ^« l0C f A character position may consist of one or more non-displaying 
enhancement followed by the displayaole character* when the cursor position*^ is 

returned. addr6SS °‘ the dis P la V ap l a character at the cursor position is 
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ChecK for Page Mode 


GIMODE - CHECK FOR PACE MODE OPERATION 
ENTRY: DON'T CARE 

EXIT I N£ => TERMINAL IN PAGE MODE 

Z => TERMINAL not in pale mode 

This routine determines whether or not the terminal is in Pane Mode, 
terminal is in Page Mode if the BLOCK mode Key is down (MDFLGi tbLKMDE i = 
the Page/Line option switch CD) on the Keyboard interface is 
(KbjMPRtPAGSTRJ =1). 


The 
) and 
open 
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HP 2645 I/O CODt INTERFACE 


INTRODUCTION 


The i/U code module contains tne loaical and physical drivers to operate tne l/n 
devices in the HR 2645 a. The i/y devices include the two cartridge tape units 
(CTUJ and the printer (RS 232 , parallel or video output). Also included in this 
module i s code to process the peripheral escape sequence (fc.SC a p) and the i/o 
function Key sequences. 

The I/O code occupies the kk region from 10K to lbK (24000 to 43777 octal) in 
tne ROM space. 


INTERFACE SPECIFICATIONS 


Entry Vectors 


The entry vectors to the i/o routines begin at location 24002 (octal ). Ine 
vectors generally consist of "jumps" (JMP) to the corresponding s noroutine 
starting locations: 


AuDRESS 

NAME 

function 

24002 

IOC KEY 

Execute GREFN Key Functions 

24005 

RF.DK b Y 

Handle Rb AO Key 

24010 

CTLRED 

Handle CONTROL READ 

2401 3 

RECKEY 

Handle RECORD Key 

24016 

SELKEY 

Handle Device oeiect (GOLD Key) 

2 402 i 

TSTCTU 

Execute Tape Test 

24024 

C O N 0 T N 

Condition lape 

24027 

RSTCTU 

Soft Reset Tapes 

240 3 2 

I0CNTG 

Set Up for I/O Control Escape sequence 
(ESC 6,p) 

24035 

IOSTGO 

Send I/O Device status to Data Comm 

24040 

ICON GO 

Send I/O Control Completion Code to 
uata Comm 

24043 

IORDGO 

Send I/O Record(s) to Data Comm 

24046 

RCRDGO 

Enter Record ^ode 

24051 

6NRYG0 

Send Binary I/O Data to Data Conun 

24054 

CTDCDP 

Fast Binary Read (ESC e) 

2405 7 

ctmon 

Monitor cartridge Tapes 

24062 

PTTPLN 

Record Top Line of Display 

2 4065 

riDDO 

Initial Tape Interrupt vector Address 

24067 

RDABRT 

Abort File Read 

24072 

6SYCHK 

ChecK tor Busy Tape Drives 

24075 

ctintr 

Cartridge Tape interrupt Routine 
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Local Variables 


Local variables for the I/O subroutines are storeu in two regions of raw: 71 
oytes at 177440-17/546 (octal) and 24 bytes at 177150-177177 (octal). Many of 
the variables used oy the 1/0 module are also accesseo oy the Main Code module. 
Any changes in tne definition of the 1/0 variables snoula be coordinated with 
corresponding changes in tne Main Code module as reauirea. 


Fast Access RAM 


Mo fast access PAM is allocated for the I/O subroutines other than the stack. 
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FUNCTIONAL DESCRIPTION 


The I/O code is responsible for handling all commands involving the tapes and 
printer (and alternate I/O device, if installed). The code may be roughly 
divided Into the command interpreters, the logical (i.e., device independent) 
drivers, and the hardware drivers for each device. 

Location IGCERR is used to flag the return condition for various routines. The 
flag consists of either an ASCII S (123B), F (106B), or U C125B). The letter S 
represents a successful return; F represents a fail return; and U, a return due 
to a user interrupt (user pressing RETURN Key on Keyboard to abort operation). 


Command interpreters 


I/O Control Escape Sequence (ESC & p): IOCNTL 

Characters sent to the display are interpreted in the main code routine CHINTO 
by table Iookup (see main code functional description). A pointer indicates 
which table is to be used. Receipt of the character string escape, ampersand 
(*<>, lower-case p, causes control to be passed to the I/O routine, wnich changes 
the table pointer so that subsequent characters will be interpreted according to 
the table IOCTAB in the I/O code. 

Plus (+), minus (-), and numeric characters cause control to be passed to the 
main code routines DCPLuS, DCMNUS, and DCNUM, respectively, other characters 
that are valid In an I/O control escape sequence (B, b, C, c, D, d, F, f, h, m, 
P# P# R, r, S, s, U, u, w, w, *, ~, and space) are interpreted by the routines 
IOCOIO through IOC120. Other characters terminate the escape sequence. 

I0C020 through IOC120 all exit to IOCEXO, which cnecKs whether the character 
lust received was capitalized ( * Is treated as capital ~ ) . It so, control is 
passed to the logical driver which implements the required command. (Control is 
passed via the transfer table IUCMTB). If the character is not capitalized, 
control is returned to the main code to await receipt of the next character. 


Green Key; IQCKEY 

Whenever the green Key is pressed, control passes to the I0CKEY routine. This 
routine monitors the Keyboard until a valid command Key or RETURN is pressed. 
Control is tnen passed (via an address from GRNTBL ) to another routine. 

If the command does not require further Keyboard input (e.g., the copy commands 
or read beyond end of data) control is passed directly to the logical or 
nardware driver that implements the required function. 

Commands requiring only a device specification (rewind and marK file) pass 
control to USRNPM. This routine monitors the Keyboard for a device Key, and 
when one is pressed, . passes control to logical driver CTRLIO. 


PAGE 36 



13255-900U3 


Rev AUG-01- lb 


Commands requiring a parameter (skip lines and find file) cause control to 
transfer to USSOIO, whicn accumula tes the parameter ana checks for a device key. 
when a device key is pressed, control is passeu to tne loqical driver CTRL in • 


Condition (.Control TEST): chndtn 

CONDTN is called from the main code whenever control TEST is pressed. cnr.DIN 
jumps to USPNPM, which monitors the keyboard for a device selection. when a 
device key is pressed, control is passed to the logical driver CTRLlu. 


Gold Key: SELKEY 

SELKEY implements the gold key (device selection) function. it is described in 
the section on entries to the I/O code, below. 


Logical Drivers 


Copy, Compare: XfRD2D 

Data transfers to and from devices are record-oriented. input from devices is 
accomplished* via calls to GETIU , wnich passes control to tne driver for tne 
selected device via transfer table 02BFTB. Similarly, output to Devices is 
accomplished via calls to RUllu, which transfers via Rf 2DTB to drivers tor ail 
selected output devices. A description of buffer handling is included in the 
section on Alternate 1/n. 

XFRD2D performs all copy and compare operations, whether requested from tne 
keyboard or via escape sequence. For copy operations, XFRD2D alternates calls 
to GET 10 and PUTIO until the transfer limit (line, file, or end ot data) is 
reached. For compare operations, XFRD2D calls GETIO once for each of the 
devices, and then calls CMPBFS to compare the records. if the records matcn, 
the process is repeated until the compare limit is reached. 


Control: CTRL 10 

CTRLIO handles all l/o control operations that do not involve data transfer. 
(There are a few exceptions? e.q., the tape monitor CTmON rewinds newly-inserted 
tapes without mvokinq CTRLIO, and tne read- beyona-eno-of-data routine E V DR ED 
is called directly from iOCKEY.) 

The calling routine passes three pieces ot information to C1RL10: flags for tne 
device(s) on wnich the operation is to be performed (stored in luCDFV), a number 
identifying the operation to be performed (IGCTYP), ana a parameter, if required 
(sign in IOPSGN, magnitude in IOCCnT). CTRLIO calls the driver for each device 
specified in IQCDEY oy transferring through table CTLIAR. The .hardware driver 
for each device interprets tne operation type ana parameter. 
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Escape sequence Read (esc & p R): IOREAD , IORDGO, BNRYGO 

This routine is called by the escape sequence routine (see IOCNTL, above) only 
if the escape sequence came from the data comm. IOREAD sets a flag (SDVREC) in 
MFLGS and returns to the main coae. This bit informs the main code that the I/O 
routine IORDGO should be called when a data comm handshake has been completed. 

IORDGO reads a record by calling GETIO . If an ASCII read was requested, the 
record is output by calls to EXPBUF. This utility routine expands display codes 
to escape sequences and calls the main code routine XPUTDC to output each 
character . 

If a binary read is requested, IORDGO reads the record and passes control to 
SDBYCT. This routine sends the byte count to the data comm, sets the SBINKY bit 
in MFLGs and returns to the main code. The SBINRY bit causes the main code to 
call the I/O routine BNRYGO when a second handshake is completed. BNRYGO sends 
the binary data to the data comm via calls to XPUTDC. 

If a file read is requested, IOREAD sets tne F1LRED flag In IOFLGS. IORDGO and 
BNRYGO check this flag after sending a data record; if it is set, the routines 
set SDVREC before exiting to trigger the next record transfer after a handshake. 


Read Key; REDKEY , CTLRED 

REDKEY and CTLRED Implement the READ key and control READ functions, 
respectively. These functions request a local read to display, read to data 
comm with handshake, or read to data comm without handshake, depending on the 
terminal mode and strapping (see Reference Manual and descriptions of REDKEY, 
CTLRED , below for complete description). In each case, one file is read from 
the current "FROM" device. 

Local read is implemented by a call to XFRD20. 

Read to data comm is implemented by repeated calls to IORDGO. Two flags, both 
in IOFLGS, control the read. RDWOWT is set for a read without handshake, and 
causes lOPDGG to loop until a tile mark is read. USREAD causes IORDGO to set 
the SDVREC bit in MFLGS after sending each data record. SDVREC causes the main 
code to call IORDGO after a handshake has been completed. 


Escape Sequence Write (ESC & p W): I0WR1T 

This routine is called by the escape sequence routine (see iocntl, above) only 
If tne escape sequence came from data comm. 

This routine implements both ASCII and binary write commands. ASCII records are 
read from the data comm by the DC2BUF routine? binary records are read In a loop 
in IQWRiT (address IGW025). Tne record is sent to all "TO" devices by a call to 
PUTIO • 
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Record Key: RECKE Y , RCRDGO 

RECKEY decides wnat to do when the RECORD Key is Dressed. it the terminal is in 
Record or Edit Mode, R EC KEY lumps to U SR ED A (see below). Otherwise, if the 
terminal is in Local Mode, RECKEY copies the display to ali "TO” devices via a 
call to XFRD2D. 

If the terminal is in Remote Mode tand not doing Data Logging), R EC KEY enaoles 
Record Mode oy setting the RECORD flag in MDELGi . when record Mode is triggered 
(character other than CR or LE' received from data comm), the main coae calls 
RCRDGO • RCRDGO reads records from the data comm (via DC 2 8UF ) and copies them to 
all "TO" devices (via PUTXO) until an error occurs or the RECORD Key is pressed 
again . in this case, the RECORD Key is nandlea by RCRLGu instead of R EX KEY . 


Status Request (ESC p *): XOSTAT, IQSTGO 

XOSTAT sets the SDVST flag in MELGS to signal the main code that device status 
should oe sent after a data comm handshake. IOSTAJ puts tne device number of 
the device for which status is beinq obtained in luslAu. men lusi'AT jumps (via 
transfer table SXATT8) to the routine which generates status for the selected 
device. ihe device routines put the status in ram locations lUSXAl to lusrA3. 
After a handshake, the. main code calls IOSXGU to output the status. 


Edit, Data Logging: usrTeD, pttpln, USREDA 

1GCKEY jumps to USRTED whenever the f4 function is pressed after the GREEK Key. 
USRTED turns Edit Moae (or Data Logging Mode) on or oft by settina or clearing 
the EDIT flag in MDFLGI. 

when the terminal is in Edit or Data Logging Mode, and a line of text is aDOut 
to roll oft the top ot tne screen, the main code calls PTTPLN. PITT Ln reads the 
top line from the display and writes it on ail "TO" devices oy calling PUTio. 

USREDA implements tne RE'CORD Key function for E*dit and Data Logoing Mocies. inis 
routine copies tne display to all "TO" devices by calling PTTPLN throuan tne 
main code routine PTBLEO . if tne terminal is in Data bogging Mode, USPtDA then 
exits. If in Edit Mode, USREDA copies tne last line to the "IQ" devices by 
calling PTTPLN directly, then copies the rest ot the input file to the "Tu" 
devices by calling XERD2D, and finally exits Edit Mode by clearing tne EDIT 
flag. 


East binary Read (ESC e): CTDCDP 

CTDCDP reads records from the "from" device oy calling GET 10 . The records are 
output via calls to BNRYGO. 
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Hardware Drivers 


CTU General 

Tne cartridge tape hardware is multiplexed— only the selected unit may move or 
generate interrupts. The hardware drivers for the left and right tape units 
select the required unit (via SELLCT or 5ELRCT) oy appropriately setting the 
unit select bit in tne CTU command word and copying the information for that 
unit into the RAM locations between UNITO and SFTCNT , inclusive (information for 
the unit not selected is saved in the RAM area OTHER). These hardware drivers 
then branch to tne unit-independent drivers discussed below. 


CTU interrupt Routine: CTINTR 

Four conditions cause tape interrupts: (1) tach edge (TAK bit in tape status 
goes nigh), (2) hole detected (HOL bit goes high), (3) byte read from tape (RDY 
bit goes high while reading), (4) unit ready to write byte on tape (RDY bit goes 
nigh while recording). The interrupt routines determine the cause(s) of tne 
interrupt by examining the tape status. 

The CTU interrupts to location 50 octal in the main code. Tne main code 
determines whether the I/O code is installed; if so. It jumps to CTINTR. CTINTR 
is responsible for monitoring holes and setting UNITO accordingly, and for 
maintaining an absolute tach counter for the selected unit (used by the GREEN, 
SPACE routine). After handling these, CTINTR jumps throuah CTIVEC to a 
subroutine tor the particular tape function being performed. (Note: for easy 
identification, these subroutines all begin with the letters "TI", as TIDOO, 
TIE6K, etc.) It is the responsibility of the hardware drivers to correctly set 
up CTIVEC before moving the tape. 


CTU input! CT2BUF 

CT2BUF causes a record to be read from the selected tape and returns a pointer 
to the buffer containing the record. Basically, CT2BUF sets up CTIVEC, starts 
the tape moving, and monitors the two I/O buffers until the interrupt routine 
marfcs one as ready, see tne section on alternate I/O for a description of use 
of the I/O buffers. 

* 

To improve throughput by Keeping the tape running, the tape reading interrupt 
routine TIGCTi may initiate another read after a record has been read. In this 
case, the tape will be moving when CT2BUF is called. CT2BUF will just monitor 
the buffers until one is ready. 


CTU Output: BUF2CT 

BUF2CT causes a record to be written on tne selected unit. In the process of 
initiating a write, BUF2CT clears the buffer status bit for the selected tape 
and sets the high-order status bit to hold the buffer until the recording is 
finished. Once the recording operation has been initiated, BUF2CT returns. 
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allowing tne interrupt routines to complete the operation. 

Upon completing a record, the recording interrupt routine T1PCT1 checks the 
status of the other buffer to see whether it is designated for output to tne 
selected tape. if so, TIPCll initiates recordina of that buffer. t>UF2CT 
detects this situation by checking the buffer status wnen called. 


CTU Control: CTLCT 

CTLCT takes as a parameter a number identifying the required operation in HAM 
location IGCTtfP (see CTRUO, above). CTLCT then uses this number to branch to 
the correct tape driver through transfer table C1CTLT. 


Printer output: BF2PHT 

The 2645 firmware supports three printer interfaces: parallel, RS-232 serial, 
and video output. The type of interface cara (if; any) installed in the terminal 
is determined by the main code on power-uo and reset. Tnis information is 
stored in the RAM location PTPFLG. 

BF2PRT calls PfRCHR to output each character. Pi PC PR checks PTRFhG to determine 
whicn driver to call: PRCnPi for the parallel interlace and video output, 
PRCHR2 for the serial RS-232. 

BF2PRT is also responsible for interpreting spacing information encoded in 
records read from a formatted displav. Each physical record reaa from a 
formatted display corresponds to one line of tne display containing at least one 
unprotected field, Every such record begins with an octal 304 byte (identifying 
it as a Format Mode record), followed by a byte giving the number of lines in 
the display between that line and tne last previous line containing unprotected 
fields, in addition, every field in the record is preceded by a 304 oyte 
followed by the number of spaces between that field ana the previous field (or 
beginning of the line, if it is the first field). BF2PRT translates this 
information into an appropriate number of line teens ana spaces so that the 
printed fields will be spaced the same as the formatted display. 


Printer Control: CTLPRT 

Only two printer control commands are implemented: skip lines and form feed (any 
unrecognized control request is translated into a form feed). CTLPRT executes 
both commands by calling PTRCHft • 


Display input; DSP2BF , PTTPLN 

DSP2BF is called by GET IU , and thus is involved in all copy ana read operations 
which use tne display as input. Characters are reaa from tne display via calls 
to tne main code routine GFTDSP. DSP2BF is responsible for inserting tne 
spacing information in Format Mode records mentioned above. 
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PTTPLN is called in Edit Mode to output lines as they roll off the top of 
display memory# This routine gets characters from the display via the main code 
routine nxTCHR • NXTCHR differs from GETDSP in that the former does not involve 
the cursor# Since Edit Mode and Format Mode are incompatible, PTTPt.N is not 
concerned with Format Mode records. 


Display output: BF2DSP 

BF2DSP sends characters to the display via the main code routine CHINT# 


Alternate I/O: RF2ALT , ALT2BF , CTLALT , STALT 

Each of these routines passes the address of an alternate I/O vector to the main 
code routine IORMGO, IORMGO determines wnether an alternate I/O ROM is 
installed, and if so, jumps to the vector. See the section on Alternate I/O tor 
more details# 
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SUBROUTINE SPECIFICATIONS 


Each subroutine will use the registers as specified below. Any registers not 
specified in the exit list are returned with their contents undisturbed. The 
settings of the processor flags (S r Z, P t and C) are generally not retained. 
Certain routines use the processor flags to represent exit conditions. Tnese 
conditions are listed in the subioutme headers. 


Execute GREEN Key Functions 


10CKEY - PROCESS KEYBOARD i/0 CONTROL SEQUENCES 
ENTRY; DON'T CARE 
EXIT J ALL REGISTERS DESTROYED 

nc => no error 

IOC ERR = S 
C => ERROR 

IOC ERR = U => USER INTERRUPT 

IOC ERR = E => FAILURE 

This routine receives control whenever the GREEN key is pressed. It processes 
all suosenuent keyboard input until: 

(U The user aborts the keyboard sequence by pressing RETURN. 

(2) An unattended operation is specified and successfully started, 

(3) An attended operation is specified and successfully completed. 

(4) xhe user aborts an attended operation by pressing RETURN. 

(5) a n attended operation is interrupted by an error and the user responds 
to tne error message. 

tb) An error prevents the successful start of a specified unattended 
operation, and tne user responds to the error message. 
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Handle read Key 

REDKEY - USER PRESSED "READ" KEY 
ENTRY : DON'T CARE 

EXIT : LOCAL OR BLOCK MODE - LOCAL READ FINISHED 

REMOTE, CHARACTER MODE - MFLGS2 tSDVREC 1 = 1 
ALL REGISTERS DESTROYED 

The operation of tnis subroutine depends on the REMOTE and BLOCK MODE latching 
Keys. 

Local Read (REMOTE up or BLOCK MODE down) - the subroutine executes a local read 
to the display until: 

(1) Successful completion of the read (end of file). 

(2) interruption by the user (RETURN). 

(3) An error is detected and the user responds to the error message. 

Remote Read (REMOTE down ana BLOCK MODE up) - the subroutine sets up a remote 
read by setting IOFLGS [USREADJ and MFLGS2 CSDVRECJ . 


Handle CONTROL READ 


CTLRED - USER PRESSED CONTROL READ 
ENTRY: DON'T CARE 

EXIT : LOCAL - LOCAL READ FINISHED 

REMOTE, BLOCK, LINE - MFLGS2 [SDYRECJ = 1 
OTHER - REMOTE FILE READ FINISHED 
ALL REGISTERS DESTROYED 

This subroutine handles the Control-Read function. In Local Mode, CTLRED 
performs a local read in the same manner as REDKEY (q.v.). In Remote, BlocK, 
Line Mode, CTLRED performs the same function as REDKEY in Remote, Character 
Mode, in Remote, Character Mode or Remote, Block:, Page Mode, CTLRED calls 
IORDGO (q.v.) until a file is read or an error detected. 
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Handle RECORD Key 


RECKEY - USER PRESSED RECORD KEY 
ENTRY: DON'T CARE 

EXIT : RECORD MODE ENABLED => RECORD MODE: EXITED 

EDIT MODE => EDIT MODE TERM I N A i.ED 
LOGGING MODE => DISPLAY COPIED TO "TU" DEVICES 
LOCAL => DISPLAY COPIED TO "TO" DEVICES 
REMOTE => RECORD MuDfc. ENABLED 
ALD REGISTERS DESThOYED 

This subroutine handles all of the functions of the RECORD Key except for 
turning off Record Mode once it is triggered. 

Note that Record Mode is only enaoleci Dy tnis routine. I he wain Code detects 
the triggering condition (character other than CR or Lb receiver from data comm) 
and enters Record Mode by calling kCRDGO (q.v.). 


Handle Device Select (GOLD Key) 


SELKEY - SELECT "FROM” AND "TO” DEVICES 
ENTRY: DON'T CAKE 

EXIT : ERROR => Ml) CHANGE IN DEVICE ASSIGNMENTS 

NO ERROR => DEVICES KFSELEC TED 
ALL REGISTERS DESTROY EL 

This subroutine handles suosequent Keyboard Input as follows: 

(1) GOLD Key: Abort device selection. no change in "from" ana "to” 

devices . 

(2) £1 - f8: Accumulates the selected device(s). Key f4 is invalid, and is 

ignored. 

(3) otner: 

(a) Valid selection (at most one "from" device): ihe "from" and 

"to” devices are changed, if any were selected. A cal] is made 
to the keyboard code module to cause the last key hit to oe 
reissued on the next call to "ZGTKEY". 

(d) invalid selection (more than one "from” device): An error 

message is displayed. SELKEY returns when the user presses 
RETURN. The last Key is not executea. Device selections are 
not changed. 
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T5TCTU - DO COMPLETE TEST UF TEPMINAL INCLUDING 
TEST OF BOTH TAPE UNITS. 

ENTRY: DON'T CARE 

EXIT : SUCCESSFUL TEST => RETURN AFTER LAST SELF-TEST 

ERROR => DISPLAY ERROR MESSAGE AwD HANG TERMINAL 
ALL REGISTERS DESTROYED 

This routine performs the keyboard initiated tape test procedure: 

(1) a tape test is performed on the left drive. 

( 2 ) Two terminal self-tests ITRMIST) are performed. 

(3) a tape test is performed on the right drive. 

(4) Anotner terminal self-test is performed. 

This procedure provides the proper duty cycle on the tape drives for the 
"burn-in" process during manufacturing of the terminal. 

If any errors occur, an error message is displayed ana the terminal is made to 
"hang" oy going to "HANGUO" in tne main code module. Control is returned to tne 
calling routine only it the entire procedure is completed successfully. 


Condition Tape 


CONDTN - PROCESS CONDITION TAPE COMMAND FROM KEYBOARD 
ENTRY: DON'T CARE 

EXIT : ALL REGISTERS DESTROYED 

This routine processes the condition tape command from the keyboard. The 
keyboard is monitored tor another key hit. If a device specifier Key is hit 
(£l-f8), the control function - ESC t* p 4 C - is executed on the selected 
device. It the device is a cartridge tape, a tape condition operation is 
performed on the specified drive. Control is returned to the calling routine 
after tne control operation is completed. If the RETURN key is hit, a return is 
made immediately without any control operation being performed. Any other key 
hit causes the bell to be sounded. 
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Soft Reset Tapes 


RSTCTU - CTU SUFT RESET 

ENTRY: INTERRUPTS DISABLED 

EXIT : INTERRUPTS ENABLED 

ALL REGISTERS DESTROYED 

This routine is called wnenever a soft reset is executed. it a tape is moving 
wnen this routine is called, tne tape is rewound to tne Load Point (It a record 
operation is in progress, a File Marx ana End of Data hark are written oefore 
the rewind). no action is taken for tapes that are not movina, i/n buffers are 
freed. 


Set Up for I/O Control Escape Sequence 

WIHiOllWiwuBXHiawiOWHWWMMimMiaUBHW jrWfr-n — — 


IOCNTL - <ESCX&XL0WER CASE P> RECEIVED 

ENTRY: DON'T CARE 

EXIT : RNGTA a IOCTAP 

ESCELG = 2 

i/U CONTROL VARIABLES CLEARED 
A ,C , H ,L DESTROYED 

This routine is called whenever the te rminal receives the l/u control escape 
sequence header (ESC & p) from any source. This routine sets up the terminal to 
interpret the parameters of the escape sequence by clearing the i/n control 
variables ana setting the character interpretation table (RNGTA) to the table of 
I/O control routine vectors (IUCTAB). Settinq ESCELG to two prevents the main 
code from resetting rngta. 


Send Device Status to Data Comm 


I0STG0 - SEND DEVICE STATUS 

ENTRY: ICISTAO = DEVICE CODE 

I0STA1-TUSTA3 = DEVICE STATUS 
HANDSHAKE COMPLETED 

EXIT : STATUS SENT 

A,B,C,H,L DESTROYED 

This routine transmits the information requested by a device status escape 
sequence (ESC ^p*). The status information will have already been gathered by 
an I/O control routine entered from the main code via IUCTAB (see igCnTL). Tne 
control routine sets a bit (MELGS tSDVSTJ ) that signals the main code to call 
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1QSTGO when a data comm handshake has been completed. IOSTGO sends the status 
Information out the data comm as an escape sequence; ESC \ P <device code> 
<status byte 0> <status byte 1> <status byte 2>. The device status pending flag 
(MFLGS tSDVST] ) is cleared after the device status is transmitted. 


Send I/O Control Completion Code to Data Comm 


IODNGO - SEND OPERATION COMPLETED RESPONSE 

ENTRY: I0CDPT = COMPLETION TYPE CS, F , OR U) 

HANDSHAKE COMPLETED 


EXIT I COMPLETION CODE SENT 
A,B,C,H,L DESTROYED 

Most I/O control escape sequences return completion codes when received from the 
data comm. The routines which execute these control functions put the 
completion code CS = success, F = fail, U = user interrupted) Into IOCDPT and 
set the device completion code transfer pending bit CMFLGS CSDVDUM). when a 
data comm handshake Is completed, this routine is called to transmit tne 
completion code. After the completion code has been transmitted, the transfer 
pending bit is cleared. 
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Send I/O Record(s) to Data Comm 


1UR0G0 - TRANSFER RECORD TU DATA COMM 

ENTRY! HANDSHAKE COMPI.E1ED 

IOCTYP = TRANSMISSION TYPE 

0 = AbCiX, NEXT BLOCK 
t = Ascit, last block 

2 s BINARY, NEXT BLOCK 

3 = BINARY, LAST BLOCK 

4 = ASCII FILE READ 
6 = BINARY FILE READ 

I0FLGS CUSHEAD OR FILRFDj = 1 => READ I IDE 
10FLGS tkDwOwTJ = 1 => READ FILE w/0 HANDSHAKE 
LSTRED -> START OF LAST BLOCK 
(0 => NU LAST BLOCK) 

N XT RED -> START OF NEXT BLOCK 

(LSB=0 => GET NEW BUFFER FULL) 

NOTE : ASCTI TRANSFER IS 1 FIELD (FORMAT 
RECORD) OR I NORMAL RECORD. 

BINARY TRANSFER IS ALWAYS 1 RECORD 

EXIT : ALL REGISTERS DESTROY FD 

LSTRED, NXTRED UPDATED IF NEXT RLK 
WAS REQUESTED 

ASCII TRANSFER - BLOCK SENT 
BINARY TRANSFER - BYTE COUNT SENT, 

MFLGS2 (SrInRYI = 1 
FILE READ, READ vv/O WAIT - FILE SENT 
FILE READ, READ WIIH HANDSHAKE - RfcXGPD SENT, 

MPLGS2 l SO V RFC J = 1 

in any read requiring a data comm handshake (e.g., READ key or ESC & d <read 
byte control > R) , the initial Handling routine sets the device record transfer 
pending flag MFLGS CSDVREC1 (see RFDKEY). After a data comm HandshaKe is 
completed, tnis routine is called to perform tne required transfer operation. 

If an ASCII transfer is specified, XURDGu transmits tne data directly. 
Otherwise, tor a binary read, IQRDGu sends the byte count and sets MFLGS2 
l SB I NR YJ , which signals the main code to call BNRYGO (g.v.) to send the oinary 
record when the next data comm handshake is complete. In either case, tne 
transfer pending flag MFLGS ISDVREC1 is cleared. 
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Enter Record Mode 


RCRDGO - ENTER RECORD MODE 

ENTR ¥ ! RECORD MODE ENABLED (VIA M RECORD ” KEY ) 

RECORD MODE TRIGGFRFD (VIA RECEIPT OF CHARACTER 
FROM DATA COMM OTHER THAN CR OR LF ) 

EXIT : ALL REGISTERS DESTROYED 

RECORD MODE EXITED BECAUSE OF ERROR OR USER INTERRUPT 

Tne user enables Record Mode by pressing tne RECORD Key (see RECKEY). When tne 
main code detects a character from the data comm that is not a CR or LF, it 
calls RCRDGO to enter Record Mode. RCRDGO copies data from the aata comm to the 
«to M device(s) until there is an error or until the user terminates Record Mode 
by pressing the RECORD Key again. If terminated by an error, RCRDGO does not 
return control until the user responds to the error message. 


Send Binary 1/0 Data to Data Comm 


bNRYGO - SEND BINARY RECORD 

ENTRY; LSTPED -> FIRS! byte of record 

exit ; ALL REGISTERS DESTROYED 
RECORD SENT 
BUFFER RELEASED 

BNRYGO is called to do a binary record transmit after 10RDG0 (q.v.) nas sent tne 
byte count and a second data comm handshake is completed. 

BNRYGO exits in one of four ways. If an error occurs, BNRIGO aborts the binary 
read via RDABRT (q.v.). If there were no errors and tne request was for one 
record (ESC * p 2 R), BNRYGO returns to the main code. If tne request was for a 
file (ESC NP 6 R), BNRYGO first sets MILGS2 ISDVREC) so that after the next data 
comm handshake the main coae will call IORDGO to start sending tne next record. 
If a read without data comm handshake is in progress (ESC &p 6 R, Block:, Page 
Mode), BNRYGO jumps directly to IORDGO instead of setting MFLGS2 CSDVPEC). 
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Fast Binary Head (ESC e) 

CTDCUP - FAST BIN AHY READ 
ENTRY: DON'T CAHE 

EXIT : ALL REGISTERS DESTROYED 

This routine is called whenever the terminal receives an ESC e from any source. 
This routine transmits a tile of binary aata to tne data comm. The routine 
returns after the file is transmitted or when an error occurs. 


Monitor cartridge rapes 


CTMON - MONITOR CARTRIDGE TAPE UNITS 
ENTRY: DON'T CAHE 

EXIT : A , rt , L DESTROYED 

This subroutine looks for tapes that have just been inserted or removed. Newly 
inserted tapes are rewound to the load point it and only it the tape units are 
not busy (i.e., tne run bit is oft in tne last command issued j. otherwise, tne 
new tape is ignored until the next call to CTMON • Eject lights are turned otf 
for tapes that have oeen removed. 

CTMON is called by all wait ioops to insure that tapes cannot be removed without 
the terminal knowing about it. 


Record Too Line of Display 


PTTPLN - OUTPUT TOP LINE OF DISPLAY MEMORY 

ENTRY: D , E -> (ivST CHAR In L I N E ) + 1 

EXIT ; C => ERROR, LINE NOT OUTPUT 

NC => NO ERROR , LINE SENT TO ALL "TO" DEVICES 
A , B , H , L DESTROYED 

This subroutine is called to roll a line otf the top of display memory in Edit 
and Data Lodging Modes. 

in the event of an error, PTTPLN returns (with Carry set) after the user 
responds to the error message. 
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Initial Tape Interrupt Vector 


TIDO0 - -DO NOTHING" TAPE INTERRUPT HANDLER 


T1DOO is an 
to initialise 


address, rather than an entry vecto 
a vector (ctijmP) use d by the tape 


r. It is 
interrupt 


used by the main code 
routine. 


Abort User Read 


RDABRT - ABORT USER READ OPERATION 


ENTRY : USER READ IN PROGRESS 

(IOFLGS [USFEAD] = 1 OR IOFLGS CF1LFED j = 1) 

EXIT : READ ABORTED 

BUFFERS FREED 
A,8,C,ri,L DESTROYED 


This routine is called 
terminal i s waiting tor a 


by the main code if the user presses 
data comm handshake required by a file 


RETURN while the 
read operation. 


Check tor Busy Tape Drives 


BSYCHK - CHECK IF CTU BUSY 


Bl!s^ R0 JfESSAGE AI ”pES TI I*MBTM T DURINr^THP^ ™TERHUPT. DISPLAYS "CTU 
RETURNS. inserted during the wait are rewound BEFORE BSYCHK 


ENTRY: DON'T CARE 


exit : NC => CTU NOT BUSY 

C => USER INTERRUPTED 
A,H,L DESTROYED 


This subroutine 
unattended CTU 
test. 


is called before terminal 
operations to complete 


self-test is performed to permit 
before interrupts are disabled for 


any 

tne 


If tne CTU is not busy (run off in last command) 
It busy, BSYCHK displays a "BUSY" message until 
user interrupts the operation by pressing RETURN 


, BSYCHK returns nc immediately, 
the CTU is not busy or until the 
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Cartridge Tape interrupt Routine 


CTINTR - PROCESS CARTRIDGE TAPE INTERRUPTS 

ENTPXS RETURN ADDRESS , PSW , H , L PUSHED ONTO STACK 
INTERRUPTS DISABLED 

EXIT : RETURN FROM INTERRUPT 

FLAGS , REGISTERS RESTORED 
INTERRUPTS ENABLED 

This routine handles all cartridge tape interrupts. Tne main coae saves the psw 
and H and L registers, and does a poll to determine which device interrupted. 

CTINTR re-enables interrupts before returning. I£ an interrupt reauires much 
processing (e.g., to start writing anotner record alter one record is 
completed), CTINTR re-enahies interrupts before returning (interrupts should not 
be disabled tor more tnan 300 microseconds). Therefore, more than one call to 
CTINTR may be on the stack: concurrently. Note that CTINTR starts immediately at 
location 240756 rather than having a vector. This helps to streamline Interrupt 
handling. 
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HP 2645 A KEYBOARD CODE INTERFACE 


introduction 


The Keyboard code module handles all Keyboard = u ^ystem tunctlons. The module 

detects Key hits, sets the lights on the Keyboard, f"^r^ce ob?ion switches! 

of the latching Keys and Keyboard interface option switcnes. 

Additionally* the module includes routines to perform the alpha ?" d rh ™*rte- 
field checking operations of the terminal. This allows changes in character 
att^butes for foreign Keyboards to be reflected in the type check routines. 


The Keyboard code occupies the 2 k region from 18K to 20K (44000 to 47777 octal) 
in the ROM space. 


INTERFACE SPECIFICATIONS 


Entry vectors 


The entry vectors 
vectors consist 
locations: 


to 

of 


the keyboard routines begin at location 
•’jumps” (JMP) to the corresponding 


44002 (octal). The 
subroutine starting 


Location 

Name 

044002 

INITKB 

044005 

GTKEY 

044010 

KBCTL 

044013 

KBMON 

044016 

SETMD1 

044021 

CLRMD1 

044024 

BELL 

044027 

SETXMT 

044032 

CLRXMT 

044035 

STJMPR 

044040 

STLKYS 

044043 

ALPCHK 

044046 

NUMCHK 


Function 

Initialization Routine 

Get Keyboard Input 

Keyboard Control 

Monitor Keyboard 

Set Terminal Mode 1 Flags 

Clear Terminal Mode 1 Flags 

Sound the KeyDoard Bell 

Set the Transmit Light 

Clear the Transmit Light 

set vlumper Escape sequence processor 

Set Latching Keys Escape sequence Processor 

AlDha Field Check Routine 

Numeric Field Check Routine 


Local Variables 


Local variables for the Keyboard subroutines are stored 
177400-177437 (octal). The definition of this area is at 
particular keyboard module used. 


in the RAM region 
the discretion of the 
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Fast Access RAM 


The Keyboard subroutines may use sixty-tour (64) bytes in tne fast 
region at locations 110700-110777 (octal). 


access 


RAM 


Keyboard Constants 



The following constants are to be inducted in the Keyboard code address space: 
Location Usage 

044051 initial alternate character set 

044052 (nitial alternate character set tor output 

Locations 44051-44052 may be set to either o, 20, 40, or 60 octal corresponding 
to tne base character set and alternate character sets 1, i, or 5 . 

Location 44051 contains the alternate character set code to oe used if a .Shirt 
Out (So) control code is received by the terminal when no alternate character 
set defining escape sequence has been received before. 


Location 44052 contains the initial active alternate character set to oe used 
when tearing apart the screen for transmission to the nost computer or for 
storage on an I/O device. Normally, this value Is zero, but is set to tne 
foreign language set in foreign terminals to inhibit the generation of an 
alternate character set defining escape sequence (ESC )) wnen the aisnlay snifts 
dinto the foreign character set. 
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FUNCTIONAL DESCRIPTION 


General 


The Keyboard module is organized to provide a flexible structure to facilitate 
the development of foreign or alternate Keyboards. The Keyboard module may be 
divided into tne following sections: monitor. Keyboard input processor, and 
utilities. 


Monitor 


The Keyboard monitor routine scans the Keyboard for changes in the states of th« 
Keys on the Keyboard. The Keys on tne Keyooard are organized in a matrix of 14 
columns of eight Keys. The current state of the Keyboard is maintained oy the 
monitor routine in a 14-byte bit table. Eacn Key on tne Keyboard corresponds to 
one bit in the bit table. A scan of two columns in tne Keyboard matrix is made 
on each call to the monitor routine. If any Key transitions are detected, an 
entry is made into a transition buffer and the current Keyboard state tad e is 
updated. Then the monitor routine is terminated. 

Each entry in the transition buffer consist of two bytes: the column number in 
which the transition occurred and the new state tor the column. These entries 
are later interpreted by the Keyboard input processor. An entry in the ouffer 
may actually contain multiple Key transitions for a Key column. The transition 
buffer contains space for up to 20 transitions. 

The monitor routine is called each time the processor's timer interrupts (about 
every 10 milliseconds). This results in a minimum interval of 70 milliseconds 
for a full Keyooard scan when no Key transitions occur. Additional scans are 
made on calls to the Keyboard input processor to provide a higher scan rate. 


Keyboard Input Processor 


The Keyboard input processor (GTKEY) taKes the input from the transition buffer 
and performs the proper action for tne Key transi tion ( s ) . Tne action may be to 
return a character code to the calling routine or to perform an internal 
operation. 

Another state table, identical to the state table maintained by the monitor, is 
maintained by the Keyboard input processor. The alternate state table reflects 
the transitions that have been processed by the Keyboard input processor. 

When a Key is pressed down, the action taKen is derived from an index table. 
Separate tables are defined for actions to be taKen when tne shift Keys are up 
and when either shift Key is down. This corresponds to the lower and upper case 
sets. The table index is computed by multiplying the column number of the Key 
by 8 and adding the number of the bit that corresponds to the Key. 
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each entry in the index table consist of one byte. If the hiqn order bit of the 
Gentry is zero (0), the entry represents an ASCII character to be returned to tne 
calling routine* These types of entries are used for the cnaracter set and 
numeric parts of the keyboard. Entries in the range 200-207 (octal) represent 
actions to be performea internal to the keyboard module. These types of entries 
are used for tne latching keys and keys which switch functions on and off (e.g., 
MEMORY LOCK). The action may result in no data returned to the calling routine 
or a value in the range 260-377 (octal) returned. Entries in the range 230-237 
(octal) represent keys tnat perform internal terminal functions (e.g., READ and 
RECuRO). Entries in the range 260-377 (octal) represent keys that generate 
escape seouences (e.g., ROLL UP). In general, tne escape sequences are 
two-character escape sequences where tne second character of tne escape sequence 
is derived by masking out the high order bit of the entry. Some codes are used 
to generate three or more character escape sequences, in particular, tne 377 
(octal) code is used to signify the display enhancement code (ESC fc. d). The 
last code returned from a call to GTKEY is stored in location KBCHAR . 

All keys, except tne latching and internal terminal function keys, repeat if tne 
key is held down. Repeating is accomplished oy setting a repeat counter, 
KBTImR* to the number ot 10 millisecond intervals plus one before tne key is to 
be repeated. The monitor routine decrements the repeat counter to the value of 
one. If no new keys are pressed down when tne input processor is called and the 
repeat counter contains a value of one, the last key hit is repeated. The code 
tor the last key hit is reissued from location KBCHAR and the repeat counter is 
reset tor another repeat interval. Three repeat intervals are usee: a start 
repeat delay for the cursor control keys, a start repeat delay for all other 
keys, and a repeat delay after repeating has begun. The repeat counter is set 
to aero (0) when no key is repeating. 

Generally, the only action taken when a key is released is to update the 
alternate state table and to clear the repeat counter if the >cey released was 
repeating. Only the latching keys require additional action when the key is 
released. The action consist of clearing a corresponding bit in location 
MDFLG2. 


utilities 


A number ot utility routines are included in the keyboard module. These involve 
the setting and clearing of the lights on the keyboard, processing tne escape 
sequences to set and clear the latching keys and keyboard option switches, 
sounding the bell, and performing the type checks for alphabetic and numeric 
characters . 
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The subroutine descriptions will specify the parameters to be included in th^ 
registers on entry and the register results on exit. Any registers no 

specified in the exit list retain their entry values. The processor flags (S 

Z , p, and C) are generally altered by the subroutines. Certain routines use the 
processor flags to signify different return conditions. These conditions are 
specified in the subroutine descriptions. 

The names of the subroutines to be used within the keyboard code block are 

included in the following specifications. The names within parentheses are the 

names that will be used by the external code blocks to reference the associated 
subroutines. 


initialisation Routine 


INITKB CZIN1KB) - INITIALIZE KEYBOARD 

ENTRY: DON'T CARE 

EXIT ! A DESTROYED 

NC => NO ERRORS 
C => ERROR DETECTED 
B,C -> ERROR MESSAGE 

This subroutine is called whenever power is turned on or a complete terminal 
reset is being performed. The interrupt system must be disabled by the calling 
routine when this subroutine is called. 

This subroutine initializes the option switch flags (KBJMPR , KBJMP2 , and KBJMP3) 
to the settings of the option switches on the keyboard interface, clears the 
keyboard state tables (KBBUF and KBBUF2 ) , and turns off all the lights on the 
keyboard (KBLEDS » 0). 
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Set Keyboard input 


GTKEY (ZGETKY) - GET KEYBOARD INPUT 
ENTRY; DON'T CARE 

EXI1 ! Z => KEYBOARD INPUT PRESENT 

A = keyboard input code 

NZ => NO KEYBOARD INPUT 

A = 0 => NO KEY HIT (OR NULL CHARACTER) 

A # 0 => KEYBOARD LOCKED (VALUE IS KEYBOARD 
INPUT CODE) 

B,C,D,E DESTROYED 

mis routine is called to get input, if any, from the Keyboard. The Keyboard 
input code ranges from 0 to 377 (octal). The values from o to 177 (octal) 
represent an ASCII character corresponding to the key that was hit. The values 
from 260 to 377 (octal) correspond to keys that translate to t wo-cnaracter 
escape seguences (e.g., RULE UP, ROLL down, INSERT LINE, etc.). The second 
character of the escape sequence is extracted py masking out tne hign order bit 
of the value (e.g., 301 -> 101 (A)). The values from 360 to 367 (octal) 

represent the function keys fl to fri respectively. Tne values 230 to 237 
(octal) are associated with the following keys; 

Value Key 

230 ENTER 

231 BREAK 

232 DISPLAY FUNCTIONS OFF 

233 I/O CONTROL (GREEN) 

234 READ 

235 RECORD 

236 SELECT (GOLD) 

237 CONDITION TAPE (Cont r Ol -TAPE TRMTST) 


Monitor Keyboard 


KBMON (ZKBMON) - MONITOR KEYBOARD 
ENTRY; DON'T CARE 

EXIT : ALL FLAGS AND REGISTERS DESTROYED 

This subroutine will be called apnroximately once every 10 milliseconds on a 
timer interrupt. Each time this subroutine is called, two columns of tne 
keyboard are scanned for any changes In key state. By being called on a timer 
interrupt, a minimum scan rate of 70 milliseconds for the keyboard is provided. 
The current state of the keyboara lights are also set py the monitoring routine. 
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Control Routine 


KOCTL (ZKdCIL) - KEYBOARD CONTROL, 

ENTRY: A = CONTROL CODE 

EXIT : DETERMINED BY INDIVIDUAL CONTROL ROUTINES 

GENERALLY, D-L REGISTERS Are SAYED AND 
A-C DESTROYED 

This routine is called to perform various control functions on the Keyboard 
subsystem, ihe control parameters and registers used are as follows: 

Control 

Parameter Function and Comments 

1 LOKKRD - Lock Keyboard 

inis routine is called to inhibit the GIkEY routine from returning a 
Key hit status IZ). This effectively Iocks out tne tfeyooara from tne 
terminal. Note that Key values are still returned on calls to GTKEY 
if any Keys are hit (see description to GTKEY). Any Keys hit wniie 
tne Keyooard is locxeu are not retained. 

2 UuLKKh - UnlocK Keytoara 

Inis routine restores the GTKEY routine to normal operation aiter a 
control call to Iock the Keyboard has oeen mage. 

3 RPTKEY - Repeat Last Key nit 

Tnis routine causes the last Key code returned Dy the GTKEY routine 
to be returned again on the next call to GTKEY. 

4 vSTRLMl) - bet Permanent bIock -loae 

inis routine is called at power on or full terminal reset 
initialization to nut the terminal into permanent BiocK rt ode. This 
forces tne BLOCK MODE Key in the aown state and Keyboard option 
switches o and h into tne "open” position. Tne BLOCK MODE Key and 
option switches are nela in these states regardless of their physical 
state and cannot be altered by any escape sequence. 

Tnis control function is invoiced tor data comm protocols whicn are 
strictly BiocK Mode oriented le.g., multipoint). 

5 STPT5T - Set Seif-test Start Mode 

This routine is called at the beginning of a terminal self-fesr. 
This causes all tne lights on the Keyboard to be lit, sounds tne 
bell, ana sets tne force full reset tlaa (CMFLGS (FhCRST ) ) to cause a 
full reset if the RESET KEY is pressed while the self-test is in 
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progress . 

b ENDTST - End Self-test 

Tnis routine is called at the completion ot a terminal seif-test. 

The true state of the Keyboard lights is restored and the force full 

reset flag is cleared, 

7 P SET KB - Beset Keyboard 

Tnis routine is called when a Soft Beset has been initiated. The 

keyboard state table and buffer are set to indicate no new keys nit, 

the current state of the SELECT, RECORD, and DISPLAY FUNCTIONS lights 
and flags are cleared, all tne Keyboard lights are lit and the 
keyboard oell is soundea. 

8 CKIOKY - Check for X/u Key Down 

This routine returns the state of the I/O key (GREEN Key) as follows: 

2 => I/O Control Key Up 

NZ => 1/u Control Key Down 
A-E Destroyed 

9 STPRPT - Stop Key Peoeat 

This routine inhibits the last Key hit from repeating. One use of 
tnis routine is from the I/O module to inhibit tne RETURN Key from 
repeating when the Key is used to abort an I/O operation. 

10 CKRRKY - ChecK for BreaK Key 

Tnis routine checKs the physical state of the BREAK Key. if tne 
BREAK key is down, the Keyboard Input buffer is flushed until no more 
Keys are pending. The register and condition flags are returned as 
follows: 

2 => BreaK Key Not Down 

A Destroyed 
NZ => BreaK Key Down 
A-E Destroyed 

HI SWCHAR - Switch Character Set 

This routine is called whenever a Shift In (SI), or Shift Out isu) 
control code is executed by the terminal. This routine is primarily 
used in bi-lingual terminals to select either the Normal or Foreign 
Mode of operation. 
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12 SETFRN - Set Foreign Mode 

This routine is called to set the proper operating Mode for 
bi-lingual terminals (foreign or normal) when a Clear Line operation 
is performed. The operating Moge is set to the last defined setting 
for the line. This is important when a Clear Line operation is 
performed at the display border between a foreign and normal field to 
insure the proper operating Mode for the next input character, 

13 SXCHST - Set 6i-lingual Output Mode 

This routine is called to send an optional SI or SO control code for 
bi-lingual terminals when the screen is torn apart for transmission 
or storage on an I/O device. The flags and registers are returned as 
follows : 

NC => no Character to Output 
A Destroyed 

C => SI/SO Character to Output 
A = Character to Output 

14,15 FRNMD1 , FRNMD2 - Set foreign Mode 1 and 2 

These routines are called when either an ESC < or ESC >, 
respectively, is received by the terminal. Trie actions taKen by the 
routines are defined by the language being implemented by tne 
Keyboard module. 


Set Terminal Mode 1 Flags 


SETMD1 (ZSTMDl) - SET TERMINAL MODE 1 FLAGS 

ENTRY; A = FLAG BIT TO BE SET 

B = 377B => BLINK ASSOCIATED LED 
= 0 => DON'T BLINK ASSOCIATED LED 

EXIT ! A , C DESTROYED 

ASSOCIATED LED, .IF ANY IS SET ON 

The bits in location MDFLGi are associated with operating modes of the terminal 
(see Common Area Allocation), In addition, some of these modes are associated 
with a light on tne Keyboard to indicate whether the mode is on or off. This 
routine is called to set a bit in MDFLGI and consequently, to set the 
corresponding light, if any. 
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"lear Terminal Mode 1 Flag 

CLRMD1 CZCLMD1) - CLEAR TERMINAL MODE 1 FLAGS 
entry: A = FLAG BIT TO BE CLEARED 

exit : A , c destroyed 

ASSOCIATED LED, IF ANY, IS TURNED OFF 

This routine performs the converse operation of SETMDl. The specified bit 
the corresponding keyboard light, if any, are cleared. 

Sound the Keyboard Bell 

BELL ( ZBELL ) - SOUND THE KEYBOARD BELL 

ENTRY? DON'T CARE 

EXIT : A DESTROYED 

Z FALSE 

This routine is called to sound the bell on the Keyboard. 

Set/Clear the Transmit Light 

SETXMT CZSTXMT) - SET TRANSMIT LED 
ENTRY: DON'T CARE 

EXIT : A , H , It DESTROYED 

CLrxMT (ZCLXMT) - CLEAR TRANSMIT LED 

entry: don't care 

EXIT : A , H , Ii DESTROYED 

These routines set and clear the transmit light in the keyboard. 


1-76 


and 
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Set Jumper Escape sequence Processor 


STJMPR CZSTJPR) - SET KEYBOARD JUMPER ESCAPE SEQUENCE 

ENTRY: DON'T CARE 

EXIT : A , H , L DESTROYED 

RNGTA -> FUNCTION TABLE FOP JUMPER SEQUENCE 

ESCFLG = 2 

RADIX = 10 (DECIMAL) 

IODATA = 0 

This routine Is called after the parameterized escape sequence head (ESC & 1) to 
set Keyboard jumpers has been received by the terminal. The function table 
pointer (RNGTA) and associated variables are set by this routine to handle the 
setting of the Keyboard option switches as specfied by the escape sequence. 


Set Latching Keys Escape Sequence Processor 


STLKYS (ZSTLKY) - SET LATCHING KEYS ESCAPE SEQUENCE 
ENTRY! DON'T CARE 
EXIT : A f H , It DESIROYED 

RNGTA -> FUNCTION TABLE FOP LATCHING KEYS SEQUENCE 
ESCFLG = 2 

RADIX = 10 (DECIMAL) 

IODATE = 0 

This routine Is called after the parameterized escape sequence head (ESC & K) to 
set the latching Keys has been received by the terminal. The function table 
pointer (RNGTA) and associated variables are set by this routine to handle the 
setting of the latching Keys as specified by the escape sequence. 


Alphabetic and Numeric Character ChecK Routines 


ALPCHK (ZALPCK) - CHECK FOR ALPHA TiPE CHARACTER 

NUMCHK (ZNUMCK) - CHECK FOR NUMERIC TYPE CHARACTER 

ENTRY: A = CHARACTER TO BE CHECKED 

EXIT : Z => CHARACTER IYPE IS CORRECT 

NZ => CHARACTER TYPE IS NUT CORRECT 

These routines are used by the field checKing processor to verify that a 
character belongs in either the alphabetic or numeric class of characters. 
Normally, alphabetic characters are defined as the letters a-z, A-Z, and tne 
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/pace character? ana numeric characters as the digits 0-9, period (.), comma 
( plus ( + )r and minus (-)• 
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INTRODUCTION 


The Data Comm module provides the access from the terminal to an external host. 
This module contains tne necessary drivers to transmit and receive data on the 
data comm interfaces. 

The data comm code will occupy the 4K region from 20 to 24K (50000 to 57777 
octal) in the ROM space. In many cases, the code will require only 2K of the 
space. 


INTERFACE SPECIFICATIONS 


Entry Vectors 


The entry vectors to the data comm routines will begin at location 5o010 
(octal). The entry vectors will consist of H jumps" (JMP) to their associated 
subroutines. The vectors will be ordered as follows: 


Location 

Name 

050010 

INITDC 

050013 

INI2DC 

050016 

DCMON 

050021 

DCC1L 

050024 

DCTST 

050027 

GETDC 

050032 

PUTDC 

050035 

GETBIN 

050040 

STBIN 

050043 

ENDBIN 

050046 

DCINTR 


Function 

Initialization Routine 
Initialization Continuator 
Monitoring Routine 
Contrql Routine 
Self-Test Routine 
Character Input Routine 
Character Output Routine 
Binary Input Routine 
Start Binary Output Routine 
End Binary Output Routine 
Data Comm Interrupt Handler 


Local Variables 


Local variables for the data comm subroutines will be stored in the RAM region 
177200-177377 (octal). The definition of this area is at the discretion of the 
particular data comm routines used. 
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rast Access RAM 


The data comm subroutines may use sixty-four bytes (fa4) in the fast access RAM 
region at locations 110600-110677 (octal). 


Communications Protocol Constants 


The constants used for a particular communications protocol occupy the area in 
the Data Comm rom space beginning at 050000 (octal). The constants to be stored 
there are as follows: 

Location Usage 

050002 Character to be used as block trigger (e.g., DC1) 

050003 Record separator Character (e.q., US) 

050004 Block: Terminator Character (e.q., PS) 

050005 Data Comm Jumpers Mask (set bit to 1 to 

inhibit alteration of jumper setting by 
escape sequence) 

050006 Data Comm Jumpers Mask for keyboard jumper R 
(Set high order bit only) 


Returns 


in general, a non-error return is signified by setting the c-tlaa to false, and 
an error return, by setting the C-flag to true. Whenever a data comm error is 
returned, tne data comm error flag (C.RRFLG (DCMt’.hPJ ) must be set. to one (1). 
This flag will be clearea by the main code after a status request is made by tne 
computer . 
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FUNCTIONAL DESCRIPTION 


General 


The Data Comm module can be separatea into a number of functional sections: 
initialization, interrupt process, monitor, input process, output process, and 
controls. Two Data comm modules are available for the HP 2645A: Basic Data 
Comm and Multi-Point Data Comm. 


basic data comm 


The Basic Data Comm module uses the data comm buffer for storinq input 
characters only. The buffer is set up as a circular buffer with a load pointer 
(DCSPTR ) and an unload pointer (DC6PTR). 

initialization 


The initialization acquires the data comm buffer from the main code module and 
initializes the various buffer pointers. Tne Keyboard option switches are 
checked to configure the data comm for normal or main channel protocol. 


Interrupt Process 


The interrupt process is called to retrieve input from the data comm Interface 
PCA * Input is stored in the data comm buffer and the buffer load pointer is 
updated. if a buffer overflow occurs, the data comm error flag CERRFLG 
EDCMERR1 ) is set and an all ones C377 octal) entry is made into the buffer. The 
error flag is also set if a parity or overrun error occurs on the data comm 
interface • 

The interrupt process strips out any nulls (OB) or rubout (377B) from tne input 
stream unless the Transparent Mode (DCFLGS ITRNMOD) ) or Binary Mode (DCFLGS 
IBINMOD)) flags are set. 


Monitor 


The monitor routine checks the various data communications control signals for 
any changes to reflect a change in mode (receive/transmit). Tne monitor routine 
is also used for timing various operations (e.g., break). 
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riput Process 


The input process gets characters from the data comm buffer and returns the 
character to the calling routine. If the data comm buffer is empty, tne data 
comm Pc A is checked for a character ready condition. tfhen the hardware 
nandshake option is selected, the aata comm interface is inhibited from 
interrupting* So, no characters are read by the interrupt routine. Instead, 
the input routine must explicitly poll tne PCA for input characters. 

The input process responds to an END from the input with an ACK unless the 
transparent or Binary Mode flags are set. The END character is not returned to 
the calling routine. 

Additional checks are made for line turn around characters if the terminal is 
configured for the main channel protocol option. 


Output Process 


Tne output process transmits characters out the data comm PCA. If the terminal 
is in Receive Mode, a fail return occurs and the character is not transmitted. 
Additional checks are made for line turn around characters if the terminal is 
operating with the main channel protocol option. 


Controls 


A number of control routines are provided to set various terminal modes Ce.g., 
binary or normal) and other data communications control functions Ce.g., break, 
and modem disconnect). 

MULTI-POINT DATA COMM 


The Multi-Point Data Comm module uses the data comm buffer both for input and 
output. The particular protocol implemented operates in a Half Duplex Mode only 
Ci.e„, the terminal can either send or receive, but not simultaneously). 
Normally, the data comm is set for Receive Mode and cannot go into Transmit Mode 
unless the proper control sequence is received from the nost computer. in this 
manner, the terminal is the slave of the computer. 

The Multi-Point module drives both the Asynchronous and Synchronous Multi-Point 
PCA's. The module can receive and transmit data in either ASCII or EBCDIC, but 
ail data between the Multi-Point module and the other terminal modules are 
passed as ASCII characters, binary data is passed without any translation. 


PAGE 69 



Initialization 


The data comm and keyboard option switches are used to configure tne operating 
conditions for the Multi-Point module. The size oi the data comm buffer 
acquired from the Main Code module is determined froru the data comm option 
switches . 


interrupt Process 


The interrupt process is called to handle noth input and output. Data is 
exchanged between the data comm Duffer and tne data comm interface FCA* Tne 
interrupt routine communicates witn the input ana output routines via the data 
comm context block. The context bloc* identifies tne mode of operation 
Creceive/transmi t ) and the state of the data comm buffer. 

The interrupt process recognizes when the terminal is beinq addressed by the 
computer and nerforms the necessary handshake protocol. The terminal is set 
either to Receive or Transmit Mode accoraing to *hetner a select or poll 
sequence is received from the computer. 

Ine interrupt process handles all aspects of the data transfer between tne 
terminal and the computer. Un input, the block check character is computed and 
compared against the received value. A positive acknowledgement is made if tne 
values are equal. Otherwise, a request for retransmission of the last data 
blocfc is made. On output, the block check character is computed and appended to 
the data. The data bloc*. is saved in the data comm buffer, for a possible 
retransmission, until a positive acknowledgment is received. Translation 
between ASCII and EBCDIC occurs in the interrupt routine. 


Monitor 


The monitor routine is used only to set the transmit light on the keyboard. 


Input Process 


The input process extracts characters from the input buffer and returns them to 
the calling routine. 


Output Process 

m m mm «■* «*«■«**» 

The output routine adds characters to the data comm buffer. If the terminal is 
in Receive Mode, an error return occurs and the character is not loaded into the 
data comm buffer. If the data comm buffer is full, the output routine waits 
until space becomes available before returning. That is, the output process 
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does not return until the character has been placed into the data comm buffer or 
an error has occurred. 

Controls 


Control routines are available to perform functions similar to the control 
functions for the Basic Data Comm module. Additionally, there are some control 
functions which perform unique functions for the Multi-Point module (i.e.. 
Program Attention (PA) and Program Function CPF) similar to the IBM 32)0). 
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SUBROUTINE specifications 


The subroutine descriptions will specify the parameters to be included in the 
registers on entry and the register resuits on exit. Any registers not 
specified in the exit list retain their entry values. The processor flags (S, 
2, P„ and C) are generally altered by the subroutines. Certain routines use the 
processor flags to signify different return conditions, these conditions are 
specified in the subroutine descriptions. 

The names of the subroutines to be used within tne data comm code block are 
included in the following specifications. The names within parentheses are the 
names that will be used oy tne external code blocks to reference the associated 
subroutines . 


Initialization Routine 


1NITDC CZINIDC) - INITIAIIZE DATA COMM 
ENTRY: DON'T CARE 

EXIT ! A DESTROYED 

B,C = NUMbER OF CONTINGUOUS BYTES NEEDED 
FOR DATA COMM BUFFER 

This subroutine is called whenever power is initially turned on or a complete 
terminal reset is being performed. interrupts will be disabled by the calling 
routine when this subroutine is called. 

Initialization of the data comm will be continued by calling the initialization 
continuator routine. The buffer returned then will always start at a 256-byte 
boundary. 

Any errors on initialization should be indicated on return from the 
initialization continuator. 
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nit ilizat ion Continuator 


IN12DC (Z1N2DC) - CONTINUE; DATA COMM INITIALIZATION 

ENTRY: D,E = STARTING ADDRESS OF DATA COMM BUFFER 

EXIT : A DESTROYED 

NC => INITIALIZATION SUCCESSFUL 
C => DATA COMM ERROR DETECTED 
ERRFLG ( DCMERR ) = 1 

H,L -> FIRST ERROR MESSAGE SECTION 

This routine is called alter a call to ZlNiDC is made. Interrupts will be 
disabled when this routine is called. 

The outfer starting address returned will always have tne buffer start at a 
256-byte boundary (i.e., E = 0). 

On error returns* the main code of the terminal will display the message and 
"hang" the terminal until the user presses the RESET TERMINAL key. 


Monitoring Routine 


DC MON (ZDCMON) - MONITORING ROUTINE 
ENTRY! DON'T CARE 
EXIT : ALL REGISTERS DESTROYED 

This subroutine will be called approximately once every 10 milliseconds. The 
purpose of the subroutine is to provide tor necessary periodic scanning of the 
data comm interface. if scanning of tne data comm interface is not needed, then 
the subroutine should simply return without doing anything. 
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Control Routine 


DCCTL (ZDCCTL) - DATA COMM CONTROL 

6NTRYS A = CONTROL PARAMETER (see below) 

B-L, CONTROL VARIABLES (as required) 

EXIT : A DESTROYED 

NC => NO DATA COMM ERRORS DETECTED 
Z => CONTROL PERFORMED SUCCESSFULLY 
nz => invalid control request 

C => DATA COMM ERROR DETECTED 
ERRFLG ( DCMERR ) = 1 
Z => NO ERROR MESSAGE 
NZ s> DISPLAY ERROR MESSAGE 

H,L -> FIRST ERROR MESSAGE SECTION 

This routine Is used to perform various control functions on the data comm 
interface • interrupts may be disabled for no more than 300 microseconds oy any 

control routine. The control parameters and variables used are as follows: 


Control 

Parameter Function and Comments 

0 CLRTRG - Clear Block Transfer Trigger Hag 
Registers B-L are not used and should not be altered. 

1 SETTRG - Set Block Transfer Trigger Flag 
Registers B-L are not used and should not be altered. 

2 RSETDC - Reset Data Comm 

This call is used to cause the data comm routines to reset 
themselves to their initial condition. This control will be 
invoked when a soft terminal reset is performed. Registers B-L 
are not used and need not be saved. 


3 


4 


SETREM - Set Remote Mode 


This control is used when the user presses the REMOTE key to 
cause the terminal to go on-line. Registers B-L are not used 
and need not be saved. 


SETLCL - Set Local Mode 

This control is used when the user presses the REMOTE key to 
cause the terminal to go off-line. Registers B-L are not used 
and need not be saved. 
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PUTBKK - Output Break Signal 

This control is used when the BREAK Key is pressed by the user. 
If. the break function is meaningless for the particular data 
comm protocol, a successful return will be given and the call 
ignored. Registers B-l are not used and need not be saved. 

D ISC NT - Modem Disconnect 

This control is used to disconnect Chang up) the terminal from a 
dial-up connection by signalling the modem to turn off. If this 
function is meaningless for the particular data comm protocol, a 
successful return will be given and the call ignored. 

ENOBLK - Terminal output Message 

This control is used to inform the data communications output 
routine that the last character of the current output message 
(block) nas been sent. Note: An ENDBLk control is implied when 
a call is made to the terminate binary output routine (ENDBIN). 

SETMQN - Enter Monitor Mode 

This control causes the oata comm input and interrupt routine to 
pass all codes entered from the data comm. no handshakina on 
codes Ce.g., ENQ/ACK) should be done by the data comm routines. 
As a result, some data comm protocols will disable the terminal 
from communicating with the CPU when in Monitor Mode Ce.g., 
multipoint) . 

SETNRM - Enter Normal Mode 

This control causes the uata comm input ana interrupt routine to 
resume normal operation, tor example, resume ignoring nulls and 
ruoouts, and resume ENQ/ACK handshake. 

FSTBIN - Enter Fast Binary Transmit Mode 

This control is called when a binary file is to be transmitted 
to the host computer. Its primary use is for the loading of 
oinary code into tne HP 21XX Series computers. Generally, this 
control is applicable only for the standard asynchronous data 
communications module. When the control is received and strap F 
on the keyboard interface is out ci.e., KBJMPR CFSTSnd ) = 1), the 
data comm interface should be switched to operate at 9600 baud. 
The board resumes normal operation when the ENDBin (entry at 
0500438) routine is invoKed on the Data Comm module. 

SNDATN - Transmit Attention Code 

This control is called to cause a single character to be sent to 
the host computer. Its principal use is to emulate tne "RAn" 
keys of the IBM 3270 terminal. 
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The B-register contains the character that is to be sent out. 
If this control is meaningless for a protocol, the routine 
should return with the flags set to indicate invalid control 
request (NC, NZ). 

12 SNDFCT - Send Function Data 

This control is used to emulate tne "PFn H keys on the IBM 3270, 
The B-register contains the character to be used as the header 
for the data to oe sent to the CPU, 

If this control is meaningless for a protocol, the routine 
should return with the flags set to indicate an invalid control 
request (NC, NZ). 

13 PROMPT - Send Prompt Code 

This routine is called whenever a "DC2" prompt or its equivalent 
is to be sent to the CPU. The sending of the "DC2" is 
controlled dv straps D, G, and H, and by the setting of the 
BLOCK MODE key. In the standard data comm protocol, a CR(LF) is 
added if the terminal is operating in Line Mode (strap 0 in). 
Refer to the "HP 2645A Programmer's Reference Manual" tor the 
specific details on when a " DC2 " is transmitted and its format. 

If this function is meaningless to a protocol, an invalid 
control request return (NC, NZ) should be made Dy the control 
routine . 


Self-Test Routine 


OCTEST ( ZDCTST ) - PERFORM DATA COMM SELF-TEST 

ENTRY: DON'T CARE 

EXIT 5 A , D-L DESTROYED 

H , L -> FIRST MESSAGE SECTION 
NC => SELF-TEST SUCCESSFUL 
C => SELF-TEST FAILED 
FJRRFLG ( DCMERF ) » 1 

This subroutine is called to perform a self-test on the data communications 
interface in trie terminal. After returning to the main code, the message 
pointed to by registers H and L is displayed, if the self-test failed, the 
terminal will "hang" until the user presses the RESET TERMINAL key. 
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laracter Input Routine 


GETDC ( ZGETDC ) - GET ONE DATA COMM CHARACTER 

ENTRY: DON'T CARE 

EXIT : NC => NO ERRORS DETECTED 

Z => CHARACTER AVAILABLE 

A = CHARACTER from DA I A COMM 
WZ => NO CHARACTER AVAILABLE 
A ft 0, WAIT 

= 0, END OF InPUT BLOCK 
c => DATA COMM ERROR DETECTED 
A DESTROYED 
ERRfrLGCDCMERP) = 1 
Z => NO ERROR MESSAGE 
NZ => DISPLAY ERROR MESSAGE 

H , L -> FIRST ERROR MESSAGE SECTION 

This subroutine is called whenever a character is needed from the data comm. 
The routine will return only seven (7) bit characters. If the data comm 
protocol indicates that the data is binary, the GETDC routine will mask; out the 
high order bit of the byte and return the remaining bits dS a normal character. 
Interrupts may not be disabled by the subroutine. 

When the "wait" condition is returned, the caliina routine will continue normal 
operation and retry, at a later time, to get a data comm character. 

wnen an error message is to be displayed for an error return, the main code of 
the terminal will display the message ana "hang" the terminal until the user 
presses the RESET TERMINAL key. Messages should be stored in ascending order. 
If no error message is indicated, the terminal will abort the current operation 
and return to the preset level. 
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Character Output Routine 


PUTDC (ZPUTDC) - OUTPUT CHARACTER TO DATA COMM 

ENTRY: A = CHARACTER TO BE OUTPUT 

NC => NORMAL CHARACTER 
C => LAST CHARACTER IN BLOCK 

EXIT J A DESTROYED 

NC => NO ERRORS DETECTED 
Z => CHARACTER ACCEPTED 
NZ => WAIT 

C => DATA COMM ERROR DETECTED 
ERRFLG ( UCMERR ) = 1 
Z => NO ERROR MESSAGE 
NZ => DISPLAY ERROR MESSAGE 

B , C -> FIRST ERROR MESSAGE SECTION 

This subroutine is called whenever a character is to be sent out the data comm. 
The routine will be given seven (7) bit characters to output. The PUTDC routine 
is responsible for adding any necessary parity bits, interrupts may be disabled 
by the subroutine tor no more than 300 microseconds. 

When the "WAIT" condition is returned, the calling routine will retry, at a 
later time, to send the same character until the character is accepted or a data 
comm error is detected. If an error condition is returned, data transmission 
will oe terminated. When an error message is to be displayed, the main code of 
the terminal will display the message and "hang" the terminal until the user 
presses the RFSeT TERMINAL Key. otherwise, the terminal will return to the 
preset level. 


Binary Input Routine 


GETBIN (ZGTBIN) - GET ONE BINARY DATA COMM CHARACTER 

ENTRY! DON'T CARE 

EXIT : NC => NO ERRORS DETECTED 

Z => CHARACTER AVAILABLE 

A = CHARACTER FROM DATA COMM 
NZ => NO CHARACTER AVAILABLE 
A # 0, WAIT 

A = 0, END OF INPUT BLOCK 
C => DATA COMM ERROR DETECTED 
A DESTROYED 
ERRFLG(DCMERR) = 1 
Z => NO ERROR MESSAGE 
NZ => DISPLAY ERROR MESSAGE 

H,L -> FIRST ERROR MESSAGE SECTION 
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''This subroutine is called whenever a binary character is needed from the data 
comm. The routine will return the entire eight bits received for each 
character, interrupts may not be disabled by the subroutine. 

If the previous character fetch from the data comm was via the GETUC routine, 
the initial call to GETBIN will perform any necessary handshake to prepare the 
communications line for binary data. 

When the "WAIT" condition is returned, the calling routine will continue normal 
operation and retry, at a later time, to get a data comm character. 

when an error message is to be displayed for an error return, the main code of 
the terminal will display the message and "hang" the terminal until the user 
presses tha RESET TERMINAL key. Messages should be stored in ascending order, 
if no error message is indicated, the terminal will abort the current operation 
and return to the base level. 


start Binary Output 


STB I N ( ZSTB1N ) - START BI WARY OUTPUT 

ENTRY: ANY STATE 

EXIT : A DESTROYED 

NC AND 2 

This subroutine is called when succeeding output bytes are to be transmitted in 
the binary format. 


End Binary Output 


ENQBIN (ZNDBIN) - END BINARY OUTPUT 

ENTRY: ANY STATE 

EXIT : A-E DESTROYED 

NC AND Z 

This subroutine is called to terminate the Binary Transmit Mode and to restore 
normal character transmission. This subroutine will also execute the proper 
ENDBLK control for the binary output string. 
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Data Comm Interrupt Handler 


DCINTR (ZOCINT) - DATA,* COMM INTERRUPT HANDLER 

* — ' ' 

ENTRY: ANY STATE 

EXIT : ALL FLAGS AND REGISTERS RESTORED TO 

STATE WHEN ROUTINE WAS ENTERED 

This subroutine will be called whenever an interrupt is caused by the data comm 
interface. When the subroutine is called, tne interrupt system will be 
disabled. The subroutine must re-enable interrupts within 300 microseconds. 
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HP 2645 A ALTERNATE I/O CODE INTERFACE SPECIFICATION 


INTRODUCTION 


Tne alternate I/O code provides access to devices other than the normally 
available devices on the HP 2645A. The alternate I/O allows for custom devices 
to be connected to tne terminal. The device driver must conform to the 
specif icat ions below, but the functional aspects of the driver are defined and 
written by tne user. 

The alternate I/O code is allocated a 4K space within the ROM space. The 4K 
region is split into two 2K areas! 24K to 26K C6000U-63/77 octal) and 38K to 
40K (114000-117/77 octal). If only 2K of space is required, the 2K region from 
24K to 26K must be used. Since all addresses in an action table used by the 
Main Code module must be less than 32 k (IOOOOu octal), tne above allocation 
allows for tne definition of an action table to be used by tne Main Code module 
if tne addresses lie within the 24K to 26K area of the alternate 1/U code space 
(see Functional Description lor Main Code module). 


INTERFACE SPECIFICATIONS 


Entry Vectors 


The entry vectors to the alternate I/O code routines are to be located startinq 
at 60002 (octal). Tne entry vectors will generally consist of "jumps" (JMP) to 
their associated subroutines; 


Location 

Name 

Function 

060002 

IN 11 ALT 

Initialization Routine 

060005 

IN 1 2 ALT 

Initialization Continuator 

060010 

ALTINT 

interrupt Processor 

060013 

ALTMQN 

Monitoring Routine 

OoOO 1 6 

ALT2RF 

Input Routine 

Ub0021 

BF2ALT 

Output Routine 

060024 

ALTCTL 

Control Routine 

060027 

S I A ALT 

Status Routine 

060032 

MSG ALT 

Device Name Message . 


Returns 


In general, a non-error return Is signified by setting the C-flag to false, an 
error return, by setting the C-flag to true. Whenever an error or user 
interrupt is returned, the 1/0 error flag (I0CERR) in the I/O variables space 
(177517 octal) must oe set to the ASCII code for the letter "F" or M U" 
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respectively. All "F" returns require an error message to be returned as 
described in the individual subroutine specifications. This flag will be 
cleared by tne main code's I/O processor. 


Local Variables 


Local variables for the alternate 1/0 suoroutines may be in the ram region 
177120-177147 (octal). The definition of these twenty-four bytes (24) is at the 
discretion of the particular alternate I/n routine used. 


Fast Access RAM 


The alternate I/O subroutines may use twenty-one bytes (21) in the fast access 
RAM region at locations 110553-110577 (octal). 


I/O Buffers 


Data is transferred between 1/0 drivers one record at a time. Each record is 
passed in one of the two I/O buffers. Each buffer is 256 bytes long and has a 
status , type, and length (described in detail below). The locations of the 
buffers and associated variables are given in the following table. 


Location 

Name 

Description 

176000 

I0BUF1 

Start of First I/n Buffer 

176377 

-- 

End of First I/n Buffer 

177472 

B1STAT 

Status for First I/O Buffer 

177471 

81 TYPE 

Type for First I/O Buffer 

177470 

81LEN 

Length for First I/O Buffer 

176400 

10BUF2 

Start of Second I/O Buffer 

176777 

-- 

Eno of Second I/O Buffer 

1774o7 

B2STAT 

Status for Second I/O Buffer 

177466 

B2TYPE 

Type for Second I/O Buffer 

177465 

B2LEN 

Length for Second I/O Buffer 


Data (XOBUFn) 

One to 256 bytes of data are placed in the buffer beginning with address IOBUFn, 
There is no restriction on the data. 
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Status ( BnSTAT ) f 

^l’he six low order bits (1-40 octal) are assigned * to t * individual devices? oit 4 
(20 octal) is assigned to the alternate I/O \ievice. Bit fa (100 octal) is 
reserved for use by Edit Mode routines. Bit 7 (2*Q0 . 'octal ) is reserved tor use 
by the cartridge tape driver to hold a buffer while the cartridge tape interrupt 
routine empties the buffer. v * 

A buffer is tree it its status is zero. Otherwise, the buffer is owned by ail 
devices whose bits are on (non-zero). 


Type (BnTYPE) 

There are three types of records; aata records, end of file records, and end of 
data records. 

A data record has type minus one C-i = 3/7 octal). 

An end of file record has type zero (0). The first data byte is reserved for 
the file number, wnich is filled in oy the output routine. An end of tile 
record may contain additional bytes, but these bytes will not be displayed, 
printed, or sent to the data comm. 

An end of data record has type one (1). No data bytes are associated with an 
end of data record (i.e., the buffer length and contents are "aon't cares”). 


Length ( BnLEN ) 

The length gives 
zero, all 256 
records ) . 


the numoer of valid data bytes in the buffer. If the length is 
bytes contain valid data (i.e., there are no "zero-length" 
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FUNCTIONAL DESCRIPTION 
General 


The Alternate I/O Code module is primarily driven by the Device I/O Code module 
of the HP 2645A. The alternate I/O device Is accessed as device number five (5) 
in the I/O control escape sequence. The INSERT LINE and INSERT Char Keys are 
used to specify the alternate I/O device as "from" and "to" devices respectively 
for device selection from the Keyboard. 

The Alternate I/O Code module consist of six functional sections: 
Initialization, monitor, interrupt process, input, output, and control. 


Initialization 


The initialization routine acquires a private buffer, if required, from the Main 
Code module and initializes the operating state of the alternate I/O device. 


Monitor 


The moni to r routine is called every 10 milliseconds when a processor timer 
interrupt occurs. This routine allows the device driver to perform any 
necessary monitoring of the device control lines. 


Interrupt Process 


This routine is called when an Interrupt 
device. To be recognized as such, 
interrupt on tne cartridge tape interrupt 
with Poll bit 6 (100 octal) set when a 
(See description of 2645A microprocessor 
13255-^1093".) 


is detected from the alternate I/O 
the alternate I/O interface PCA must 
line on the bus ( ATN2 ) and respond 
poll request is made by the processor. 
PC a: "Processor (8G80A-2) Module 


Input 


On input, a device driver must find a free buffer (status « 0) and set Its bit 
in the corresponding buffer status byte (BnSTAT) to claim the buffer. The 
device driver should return the buffer with the device's bit in "BnSTAT" still 
set so that the buffer will not be considered empty before the I/O transfer 
routine sets the status oyte to the destination device(s). 
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Output 


On output, a device driver turns off its bit in the buffer status when it is 
finished recording the buffer. The driver must not maJce anv other chanae in the 
puffer, buffer type, or length. (Exceptions - in the event of an error, a 
driver may free the buffer by setting the buffer status to zero. Also, the 
first data byte of an end of file record may be overwritten with the file 
number . ) 


Control 


The control module is called to perform various control functions on the I/O 
devices. The function performed for a given control code is at the discretion 
of the particular alternate i/o device driver. 
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SUBROUTINE SPECIFICATIONS 


The subroutine descriptions will specify the parameters to be included in the 
registers on entry and the register results on exit. Any registers no# 
specified in the exit list retain their entry values. The processor flags c ; ' 
Z, p, and C) are generally altered by the subroutines. Certain routines use the 
processor flags to signify different return conditions. these conditions are 
specified in tne subroutine descriptions . 

ine names of tne subroutines to be usea within the Alternate i/u module ar*. 
Included in the following specifications. The names within parentheses are the 
names that will be used oy the external code blocks to reference tne associated 
suorou t tnes • 


initialization Routine 


lNiAbT iZi.MIAL) - INI TIALIZE ALTERNATE I/O DEVICE 
ENTRY: DON'T CAPE 

EXIT : A DESTROYED 

6,C s NUMBER UE CONTIGUOUS BYTES NEEDED 
EUR ALTERNATE I/O BUFFER 
O-L DON'T CARE 

mis subroutine is called whenever power is turned on or a complete terminal 
reset is performed. Interrupts will be disaoled by the calling routine when 
this subroutine is called. 

initialization of the alternate I/u device will be continued oy calling tt. 
initialization continuator routine. The buffer returned may not necessarily 
start on a 2S6-byte boundary. Any errors on initialization should be indicateu 
on return from tne initialization continuator. 


initialization Continuator 


IN 2 ALT (ZIN2AL) - CONTINUE ALTERNATE I/O INITIALIZATION 

t.NTRY: D,.E s STARTING ADDRESS OF ALTERNATE I/O 

BUFFER 

EXIT 5 A DESTROYED 

NC => INITIALIZATION SUCCESSFUL 
B-L DON'T CARE 
C => INITIALIZATION FAILED 

H r L -> FIRST ERROR MESSAGE SECTION 
B-E DON'T CARE 
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this routine is called after a call to Z.LNIAL is made* interrupts are disabled 
>nen this routine is calleo. The buffer starts at the address given in 
registers D and E, and extends in ascending addresses for the nurnber of bytes 
specified on return from INI ALT • 


un error returns, registers H and L contain the value to be stored in location 
n u c (• p r l " The contents of the H and it registers will be stored in MSGPT1 py 
the main coae. All other message pointers (i.e., MSGPT2-MSGPT8 ) must be set oy 
the routine. The main code will display the error message ang "hang the 
terminal until the user presses the RESET terminal Key. 


interrupt Processor 


INTALT ( ZXNTAit ) - ALTERNATE J/O INTERRUPT PROCESSOR 

ENTRY: PSW, H AND L PUSHED ONTO TOP OF STACK 

EXIT : ALL FLAGS AND REGISTERS RESTORED TO 

STATE WHEN INTERRUPT OCCURRED 

inis suoroutine is called whenever an interrupt is caused by the alternate I/O 
device. when the subroutine is called, the interrupt will oe disabled, me 
subroutine must re-enable interupts within 300 microseconds. 


Monitoring Routine 


MONALT CZMONAL) - MONITOR ALTERNATE I/O DEVICE 
ENTRY! DON'T CARE 
EXIT : ALL REGISTERS DESTROYED 

This subroutine is called approximately once every 10 milliseconds. The purpose 
of the subroutine is to provide for necessary periodic scanning of the alternate 
I/O interface, if scanning of the interface is not needed, then the subroutine 
should simply return without doing anything. 
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Control Routine 


CTLALT (ZCTLAL) - ALTERNATE I/O CONTROL 

ENTRY: I OCT YP = CONTROL TYPE CODE NUMBER 

TOCCNT = CONTROL PARAMETER (2 BYTES) 

TOPSGN = SIGN OF CONTROL, PARAMETER 
= +1 => POST LIVE 
= 200 => NO SIGN 
= -1 => NEGATIVE 

EXIT : NC => CONTROL PERFORMED SUCCESSFULLY 

IOCERR = M S M => SUCCESSFUL COMPLETION 
C => CONTROL FUNCTION ABORTED 

IOCERR = "F" => ABORTED ON FAILURE 

M SGPT 1 -MSGP I P = ERROR MESSAGE STRINGCS) 

IOCERR = "U" => USER IN TERROR IFu OPERATION 
ALL REGISTERS DESlRUYED 

This routine is used to perform various control functions on the alternate ; /*. 
device. interrupts may be disabled tor no more than 30 0 microseconds oy any 
control routine. The actual function performed tor a given control code i-& 
defined by the specific alternate 1/u driver installed in the terminal. The 
functions performed for the cartridge Tape Units (CTU's) are as follows: 


Control Function 
Code 


0 Rewind 

1 Space "p" records 

2 Space M p M files 

3 Locate end-ot-data mark 

4 Condition tape 

5 Record file mark 

6 Record end-of-data mark 

7 Test cartridge tane unit 

8 Skip M p” records immediately without recordinq 

end-of-data mark 

9 Enter write-Backspace-Read Mode 

10 Exit Wr ite-Rackspace-Reao Moae 


where "p" is the comoined value of IUPSGN and 10CCNT 

Functions implemented tor the alternate i/u device should attempt to perfco 
similar functions for corresponding control codes. 


PAGE 88 



13255-90003 


Rev AUG-01 -76 


status Routine 

/--- - 


SXAALT (ZSTAAL) - GET ALTERNATE I/O STATUS 
ENTRY: DON'T CARE 

EXIT : NC 

IUSTA1 , IOSTA2 , IOSTA3 = CURRENT DEVICE 
STATUS 

ALL REGISTERS DESTROYED 

inis routine is called to extract tne current device status to be sent to tne 
host computer. The status is returned in the lower tour (4) bits of each status 
byte ( 10STA1 -I0STA3 ) . The definition of each Dit is left to the specific 
alternate I/O device. An attempt should be made to use the same status oit as 
used in existing devices for common status conditions te.g., read error status!. 


Input Routine 


ALT2BF (ZGETAL) - ALTERNATE I/O INPUT ROUTINE 

ENTRY: D , E -> STATUS OF LAST BUFFER RETURNED 

(DON'T CARE FOR FIRST READ) 


EXIT : A,B,C,H,L DESTROYED 

NC => SUCCESSFUL HEAD 
D , E -> BUFFbR STATUS 
C ERROR 

IUCERR = U => USER INTERRUPTED 
IOC ERR = F => FAILURE 

MSGPTX -> ERROR MESSAGE 
D , E DESTROYED 


It is the responsibility of the input routine 
0). For a successful return, the alternate 
turned on in tne buffer status (bn ST AT) • The 
be correctly set (see "I/O Buffers"? above). 


to find a free buffer (status = 
I/O bit (bit 4 -20 octal) should be 
buffer type and lenoth must also 


The input routine is also responsible for checking tor user interrupt (RETURN 
Key) by calling ZGETKY (see Keyboard code interface). To avoid loss of data, 
this checK should be done before each record is read from the alternate I/O 
device. Note that no message is returned for user interrupts. 


An error message must pe supplied for all failure returns. It is not necessary 
to free buffers claimed petore tne error is detected as all buffers are freed oy 
the main code on any error returns. 
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Output Routine 


81 2 ALT IZPUTAL) - ALTERNATE I/O OUTPUT ROUTINE 

ENTRY: D,E -> BUFFER STATUS 

ALTERNATE I/O BIT SET IN BUFFER STATUS 

EXIT : A,B,C,H,L DESIRUYEO 

NC => SUCCESS 

D,E -> BUFFER STATUS 
C => FAILURE 
IOCERR = F 

MSGPTA -> ERROR MESSAGE 
D,E DESTROYED 

For a successful return, this routine must not alter the buffer, buffer type, or 
ouffer length at any time, when the alternate I/O driver is finished with the 
buffer, the driver should release the buffer by turning off the alternate I/O 
bit (bit 4-20 octal) in the buffer status. 

BF2ALT may alter the buffer and its associated variables in any way in the event 
of an error. (All buffers are freed by the main code on any error return.) A 
message must be supplied with every error return. 

To avoid loss of data, BF2 ALT should not abort on user interrupts (RETURN Key). 


Device Name Message 


MSGALT (ZMSGAL) - DEVICE NAME 

A string representing the name of the alternate I/O device is stored starting at 
location 60032 (octal). The string is stored in order of ascending addresses 
The device name message is used by the compare routine to report a data 
terminator (end of file or end of data) on the alternate I/O device during a 
compare operation. The message is optional if ALT2BF can only return data 
records and not an end of file or end of data or it the alternate I/O device i? 
an output only device. The message should have the following format: 

'MSGALT DEF ' ON <device name>',0 

Note the preceding blan< and trailing null are required as part of the message. 
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CUMmON APR A ALLOCATION 


The common area is located In tne region 177720-1777/7 (octal), 
stored there are as follows: 


Location Name Usage 


177 7 /6 

17 7 7 7 5 

17 7 7 7 4 

1 7 7 7 / J 

1 7 7 7 7 2 

1 7 7 7 7 1 

177770 

1/776/ 

1 7/766 

1 7/765 

177764 

177703 

177761 

17775/ 

177755 

1 7 7 7 5 d 

177751 

177747 

177745 

177743 

177741 

l 7774U 

177736 

177735 

177734 

1 77733 

177732 

177731 

177730 

17772/ 

177725 

177724 

177722 

177/21 

177720 


DISPST Display Refresh Starting Pointer (2 bytes) 

TRMTYP Terminal Type Number 

KBDCSW Keyboard Data Comm switch settings 

KBJwpp Keyboard Jumpers A-B-C-D-E-F-G-ii 

j\8 JMP2 Keyboard jumpers J-k-L-m-N-P-Q-R 

KB j MP 3 Keyboard Jumpers s-T-U-V-w-X-i-Z 

CMKLGS Common Flags 

ERRFLG Error Flags 

1 NTFLG Interrupt Flag 

PRCCTL Processor Control Flags 

MDFLGl Terminal Mode Flags 1 

MDFLG2 Terminal mode Flags 2 

MSGPft First Message Rlock Pointer C2 bytes) 

MSGPT2 Second Message Block. Pointer 12 bytes) 

MSGPT3 Third Message Block Pointer (2 bytes) 

MSGPT4 Fourtn Message Block Pointer (2 bytes) 

MSGPT5 Fifth Message Block Pointer (2 bytes) 

mSGP T 6 Sixth Message Block Pointer (2 bytes) 

MSGPl’7 Seventh Message Block Pointer (2 bytes) 

MSGP T 8 Eighth Message Block Pointer (2 bytes) 

CT1VEC CTU Interrupt vector (2 bytes) 

CTIJMP "JMp" Instruction for Vector 

IODATa ESC Sequence Parameter Accumulator (2 bytes) 

IOCSGN Sian tor Parameter 

1 DPSGN Sign for Assigned Parameter 

PARMA Assigned Parameter 1 

PARM2 Assigned Parameter 2 

PARM3 Assigned Parameter 3 

PARM4 Assigned Parameter 4 

PARM5 Assigned Parameter 5 

PARM6 Assigned Parameter 6 (2 bytes)’ 

RADIX Radix for Accumulating Parameters 
RNGTA Character Function Table Address (2 bytes) 
ESCFLG Escape Sequence in Progress Flag 
RSTTMR Soft peset Timer 


variables 
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DEFINITION 


D1SPST contains the two byte link; address pointing to the top line to be 
di splayed • 


TRMTYP contains the terminal type code number; 0 <= TRMTTP < 16 
Bit Meaning 

0 i/o Firmware installed 

0 = Not installed 

1 = installed 

1 Bi-lingual Terminal 

0 = Terminal is Roman type only 

1 = Terminal has bi-lingual functions 

2 Reserved 

3 Unused 

4-7 Always zero (0) 


KBDCSW contains the settings of the Duplex, Parity, and Baud Rate switches on 
the keyboard. 

Bit Meanina 

0 Undefined 
1-3 Baud Rate 

0 a Ext 

1 = 110 

2 a 150 

3 = 300 

4 = 1200 

5 = 2400 

6 a 4800 

7 * 9600 
4-5 Parity 

0 = Even 

1 S Odd 

2 a None 

3 a undefined 

6 Undefined 

7 Duplex 

0 a Half 

1 = Full 
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KB JMPR , KBJMP2, KBJMP3 

contains the settings of the jumpers on the Keyboard interface PCA. 
all cases, the bit is set to one when the jumper is out, and zero, 
the jumper is in. 

Bit Meaning 

KBJMPR 

0 CONDIS - Transmit All Function Keys 

0 = Disabled 

1 = Enabled 

1 SPLDIS - Space Overwrite Latch 

0 a Disabled 

1 = Enabled 

2 LINwRP - Cursor End-of-Line Wrap Around 

0 = enabled 

1 = Disabled 

3 PAGSTR - Line/Page Mode 

0 = Line 

1 = Page 

4 LFPQS - Location of Line Feed for Remote READ 

0 = Line Feed at beginning of record 

1 = Line Feed at end of record 

5 FSTSND - fast Binary Read 

0 = Disabled 

1 = Enabled 

6 HNDSHK - nandshake 

0 = Disabled 

1 a Enabled 

7 DC2SMD - Inhibit DC 2 

0 = Disabled 

1 = Enabled 

KBJMP2 

0 AUTEND - Add Terminator on "ENTER" 

0 * Disabled 

1 = Enabled 

1 CLRTRM - Clear Terminator After Display Sent 

0 = Disabled 

1 a Enabled 

2 NUTEST - inhibit Terminal Self-Test 

0 a Self-Test enabled 

1 a Self-Test disabled 

3 EDTwFP - Invert Edit wrap Around Control 

0 = Disabled 

1 a Enabled 

4 PRNTAL - Send All Enhancement Codes to Printer 

0 = Disabled 

1 a Enabled 
5-6 undefined 

7 DCJMPO - Reserved for Data Comm Usage 


In 

when 
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KBJMP3 

0 

1 

2 

3 

4 


5 


6 

7 


Rev 

\ 


DCJMPl - Reserved for Data Comm usage 

DCJMP2 - Reserved for Data Comm Usage 

DCJMP3 - Reserved for Data Comm Usage 

DCJMP4 - Reserved for Data Comm Usage 

NUDCST - inhibit Data Comm Seif-Test 

0 = Data cornm self-test enabled 

1 = Data comm self-test disabled 
SETCH - Turn on "CH" Control Line 

0 s ch off 

1 = Ch on 

CHEKCC - Monitor "CC M Control Line 

0 = Monitor normal transmit Indicator 

1 = Set transmit indicator according to CC 
FRCPTY - Force Parity/No input Parity Check 

0 s use normal parity 

1 = Enable special parity 


CMFLGS 


individual bits represent 


various modes of the terminal. 


Bit Meaning 


0 

1 

2 

3 

4 

5 


7 


BLKTRG - Block Transfer Trigger 

0 = Clear 

1 = Set 

INSWPP - Insert with wrap Around 

0 = wrap around disabled 

1 = Wrap around enabled 

FRCRSI - Force Full Terminal Reset if Reset 

0 = Do soft reset only 

1 = Perform full reset 
DEFSKY - Define Soft wey Mode 

0 s Normal Terminal Mode enabled 

1 = Soft key menu enaoled 
pemseT - Remote/Local Mode 

0 = Terminal in Local Mode 

1 = Terminal in Remote Mode 
RCVMDE - Data Comm Mode 

0 = Transmit 

1 = Receive 
ETXRCV - End of Input 

0 = End of. text input fiag not received 

1 = End of text input flag received 
UNUSED 
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eRRFLG each bit represents an error condition to oe displayed as part of the 
terminal status. 

Bit Meaning 

0 DCMERR - Data Comm Error 

0 = No Data Comm Errors 

1 = Data Comm F.rror(s) Detected 

1 TESTOK - Terminal Self-Test 

0 * Mai tunction Detecteo 

1 = no Malfunctions 

2 LDFCHK - Loader Cnecksum 

0 = Checksum Error in Loading sequence 

1 = No trror 
3-7 Undefined 

INTFLG indicates if the timer caused an interrupt. 1N1FLG is set to 3 tor a 
timer interrupt. All otner interrupts do not change the value of 
INTFLG. 

ERCCTL contains the current state of the processor board. 

Bit Meaning 

0 Undefined 

1 TmRUN - lu Millisecond Timer un 

0 s Timer off 

1 = Timer on 

2 TMIEN - Timer Interrupt Acknowledge/Reset 

0 = Acknowledge timer interrupt 

1 = Re-enable timer interrupt 

3 DCIOFF - Data Comm interrupt 

0 = F.nabled 

1 = Disabled 

4 TIMUFF - Timer Interrupt 

0 = Enabled 

1 = Disabled 

5 POLL - ATN 2 Poll 

0 = Disablea 

1 = Enabled 

6 Undefined 

7 SET ROM - ROM /RAM Enabled 

0 = RUM enabled, RAM disabled 

1 = RAM enabled, ROM disabled 
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MiDFLG 1 


MOFLG2 

MSGPTl , 

CT1VEC 

CHJMP 

10DATA 


Contains the first set of Terminal Mode flags. Tne flags generally 
refer to modes that are electronically latched. 


Bit Meaning (0=>01SABLED , 1=> ENABLED) 


0 DSPFNC - Display Functions Enabled 

1 INSCHR - Insert Character Enabled 
2 • memlok - Memory Lock Enabled 

3 FORMAT - Format Mode Enabled 

4 EDIT - Edit Mode Enabled 

5 SELECT - Device Select Mooe 

6 RECORD - Record Mode Enabled 

7 FOPGN - Foreign Mode Enabled 


Contains the second set of Terminal Mode flags. The flags generally 
refer to modes that are set by latching Keys. 


it 

Meaining 


0 

CAPSLK - 

Caps Lock Enabled 

1 

BLKMDE - 

BlocK Moae Enabled 

2 

AUTOLF - 

Automatic Line Feed Enabled 

3 

REMOTE - 

Remote Enabled 

4 

WBSK 

WRITE -BACK SPACE-RE AD MODE ENABLED 

5-7 

UNUSED 



MSGPT2 , MSGPT3, MSGPT4 , MSGPT5 , MSGPT6 , MSGPT7, MSGP'18 

These two byte values are used to store pointers to message blocKs for 
the message display routine (DSPMSG). 


Contains the start address for the current cartridge tape interrupt 
routine . 

Contains the operation code for the "JmP" instruction C303 octal). 


Accumulator for parameters specified in parameterized escape sequences. 
As tne numbers for the parameters are received, the accumulated value is 
maintained in this two-byte location. The base of the value is 
specified in location "RADIX". 
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IOCSGN contains tne sign of the parameter currently being received tor a 
parameter ized escape sequence. 

Value Meaning 

+1 Sign is positive 
0 No value specified tor parameter 
2 0 0 B no sign specified for parameter value 
-1 Sign is negative 


10PSGN contains the sign ot the parameter tnat nas been received. Before a 
parameter is to oe evaluated by the "CHKLIM" routine, the sign of the 
parameter must be placed m this location. The values assigned are tne 
same as "IQCSGw". 


PARMl, PARM2, PARM3 , PARM4 , FARMS, PAPM6 

These locations are used as work areas to store the parameters for tne 
various parameterized escape sequences. Tne usage for each location is 
defined oy the particular escape sequence handier. 


RADIX This value is set to the radix ot the numbers to be entered as values 
for a parameterized escaped sequence. 


RNGTA contains tne pointer to the currently active "action table" defining tne 
function of characters entered into the terminal. 


ESCFLG This location is set to all l*s if an escape sequence is currently beina 
processed from the aata comm while operating in Block Mode. Otherwise, 
the value is zero, when the value is all l*s, tne keyboard is locked 
out . 

RSTTmR when a soft reset is executed, tnis location is set to the number of 10 
millisecond intervals during which a full reset will occur if the RtSKT 
button is pressed. If the value is zero, a soft reset will occur 
(unless C MFLGS ( FRCRST ) is set to 1) . 
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'EM 

LUC 

1 

00O0 

2 

0000 

3 

oooo 

4 

oouo 

5 

0050 

6 

0051 

7 

oooo 

8 

oooo 

9 

OOOO 

10 

QOuO 

1 1 

oooo 

12 

oooo 

1 3 

0000 

14 

9 t 00 

15 

o ooo 

116 

oooo 

17 

oooo 

18 

0080 

19 

oooo 

20 

oooo 

21 

OOOO 

22 

oooo 

23 

oooo 

24 

oooo 

25 

oooo 

26 

OOOO 

27 

0001 

2 8 

oooo 

29 

0002 

30 

oooo 

31 

0004 

32 

OOOO 

33 

0008 

34 

OOuO 

35 

0010 

36 

oooo 

37 

oooo 

3 8 

oooo 

39 

oooo 

40 

oooo 

41 

0020 

42 

oooo 

43 

0040 

44 

oooo 

45 

oooo 

46 

0080 

47 

OOOO 

48 

oooo 

49 

OOOO 

50 

oooo 

51 

oooo 


OBJECT CODE 
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SOURCE STATEMENTS PAGE 1 

ASB , HEX ? P T 7 7 4 - 11/10/76 - U30 HOURS 

************* ********* 

; VERSION LEVEL CODE * 

•tv*****?************* 

VERSN EQU 1200 ? P = > VERSION o 

VERSN 1 EQU 1210 ;Q = > VERSION 1 

9 

J ('JUTE: THE SECOND RUM WAS PE-URDERED TO E IX 

; A BUG t SO ONLY THAT RUM HAS VERSION NUMBER 1. 


; COMMON EQUATES - C M 3 5 - 6/27/76 - 1 830 HOURS 

9 

FSTRAM EgU 110400Q ;FAS1 RAM LOWER LIMIT 
;*************************♦************* 
l KBOCSw - KEYBOARD DATA COMM SWITCHES * 
;*************************************** 

FULDUP FQU 2000 ? HALF/FULL DUPLEX 

;************************************** 

? KBJMPR - KEYBOARD INTERFACE JUMPERS * 

;********** ****** ************* ********* 

* 

; JUMPERS SENSED AS 0' WHEN INSERTED 


ALL JUMPERS APE NORMALLY INSERTED 


C0MD1S 

» 

Eyu 

ooty 

SPLD1S 

♦ 

FQU 

0o2y 

linwkp 

EgU 

0u4y 

9 

PAGSTR 

• 

Eyu 

oiog 

LF PCS 

Eyu 

200 


FSTSND 

EgU 

40Q 

HNDSHK 

* 

9 

EgU 

i oog 

« 

DC2SND 

• 

m 

EQU 

200Q 


/CONTROL CODE DISABLE 
10 = DISABLF,D) 

? SPOw LATCH disable 
(O sDiSABLFU) 

/COLUMN SO AUTO CR » 1 < F 
( 0=EN ABLED ) 

/PAGE MODE STRAP 

(0 = 1.1 NE-FI ELD MODE) 

/LINE FEc.0 POSITION 

(0 = POSITION LINE FEED 
AT START OF NEXT I/O 
READ 

1 = PUT LINE FEED AT END 
OF RECORD) 

/ 9600 BAUD DATACOM SHIFT 
(0=9600 BAUD FOR ESC ,F) 
/BLOCK TRANSFER HANDSHAKE 
(0 = FOLLOW DC2SND SETTING 
1 = SEND DC 2 BEFORE DATA) 

(0 = SEND DC2 ON ENTER 

AND FUNCTION KFY IN 
BLOCK MODE 
1 = INHIBIT ALL DC2 
HANDSHAKE) 
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ii 
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ii 

it 

H 

II 

11 

11 

II 

11 


ii 

ii 
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11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

If 

II 

II 

11 

II 

II 

II 

II 

II 

II 

ITEM 

LOC 

OBJECT 

CODE 
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ii 

ii 

ii 

ii 

it 

ii 

n 

it 




ii 

n 

ii 

n 

ii 

n 

it 

ii 

ii 

it 

ii 

ii 


ii 

ii 

it 

ti 

it 

ii 

ii 

it 

ii 

it 

ii 

ti 

n 

ii 

ii 

M 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

If 

II 

II 

II 

II 

53 

0000 

+ 

• 

• 

;************************** **************** 

54 

0000 

• 

• 

• 

; KBJMP2 - 

SECUND 

SEX UF KEYBOARD JUMPERS * 

55 

oooo 

• 

• 

• 

ft***************************************** 

56 

0001 

« 

• 

• 

AUTTRM EQU 

IQ 

; AUTO TERMINATE ON ’’ENTER" 

57 

0002 

• 

• 

• 

CLRTRM EQU 

2Q 

fCLEAR TERMINATOR ON TRANSMI 

58 

0004 

• 

• 

• 

NOTEST EQU 

4Q 

; INHIBIT TERMINAL SELF-TEST 

59 

0008 

• 

• 

• 

EDTWRP EQU 

10Q 

; INVERT SENSE OF EDIT WRAP 

60 

0010 

• 

• 

• 

PRNTAL EQU 

20Q 

; SEND ALL CODES TO PRINTER 

61 

0080 

• 

• 

• 

DCJMPO EQU 

200Q 

; DATA COMM JUMPER 

62 

0000 

m 

• 

• 

• 4:j|:^#:*4f^*4»** ********* ******************* 

63 

oooo 

• 

• 

• 

; KBJMP3 - 

THIRD 

SET OF KEYBOARD JUMPERS * 

64 

oooo 

• 

• 

• 

I***************************************** 

65 

0001 

• 

• 

• 

DCJMP1 EQU 

10 

; DATA COMM JUMPERS 

66 

0002 

• 

• 

* 

DCJMP2 EQU 

2Q 

r • 

67 

0004 

• 

• 

• 

DCJMP3 EQU 

4Q 

• 

9 • 

68 

0008 

• 

• 

• 

0CJMP4 EQU 

10Q 

9 • 

69 

0010 

• 

• 

• 

NODCST EQU 

20Q 

; INHIBIT DATA COMM SELF-TEST 

70 

oooo 

• 

• 

• 

• 

9 


(0 s DISABLED) 

71 

0020 

• 

• 

• 

SETCH EQU 

40Q 

; TURN ON ”CH” CONTROL LINE 

72 

oooo 

• 

« 

• 

• 

9 


CO = OFF , 1 = UN) 

73 

0040 

• 

• 

• 

CHEKCC EQU 

1000 

;MONITOR CC CONTROL LINE 

74 

oooo 

• 

• 

• 

• 

9 


(1 * ENABLED) 

75 

0080 

« 

• 

• 

F'RCPTY EQU 

2000 

; FORCE PAR JLT X ON/NO IN CHECK 

76 

OOOO 

• 

• 

• 

• 

9 


Cl = ENABLED) 

7 7 

OOOO 

♦ 

• 

• 

.************************ 

78 

oooo 

• 

• 

• 

; CMFLGS - 

COMMON 

FLAGS * 

79 

oooo 

• 

• 

• 

.************************ 

80 

0001 

• 

• 

• 

BLKTRG EQU 

10 

? BLOCK TRANSFER TRIGGER 

81 

0002 

• 

* 

• 

INSWRP EQU 

2Q 

; INSERT WITH WRAP AROUND 

82 

0004 

• 

• 

• 

FFCRST EQU 

40 

; FORCE FULL TERMINAL RESET 

83 

0008 

• 

• 

• 

DEFSKY EQU 

10Q 

; DEFINE SOFT KEY MODE ENABLE 

84 

0010 

• 

• 


RFMSET EQU 

20Q 

; REMOTE MODE ENABLED 

85 

0020 

• 

• 

• 

RCVMDE EQU 

40Q 

; TERMINAL IN RECEIVE MODE 

86 

OOOO 

• 

• 

• 

.******»**************** 

87 

OOOO 

• 

• 

• 

; ERRFLG - 

ERROR 

FLAGS * 

88 

OOOO 

• 

• 

• 

.*********************** 

89 

0001 

• 

• 

• 

UCMERR EQU 

10 

? DATACQM (1 s ERROR) 

90 

0002 

• 

• 

• 

TESTUK EQU 

20 

? SELF-TEST CO = ERROR) 

91 

0004 

• 

• 


LDRCHK EQU 

4Q 

? LOADER CHECKSUM (0 * ERROR) 

92 

OOOO 

• 

• 

• 

;*********************♦**** 

93 

OOOO 

• 

• 

• 

; INTFLG - 

INTERRUPT FLAG * 

94 

oooo 

• 

• 

m 

.************************** 

95 

0003 

• 

• 

• 

TMRINT EQU 

3 

; TIMER INTERRUPT 



ITEM 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
1.09 
110 
111 
112 

113 

114 

115 

116 
117 
1118 

119 

120 
121 
122 
12 3 

124 

125 

126 

127 

128 

129 

130 

131 
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ii 

it 

ii 

M 

it 

ii 


ii 

ii 

ii 

it 

ii 

ii 

it 

it 

ii 

it 

ii 

n 

it 

ii 

li 

li 

H 

it 

H 

ii 

ii 

II 


ii 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

li 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

OOoO 

• 

• 


• ******* ************** ************** 

oooo 

• 

• 

• 

? PRCCTL - 

PROCESSOR 

CUNTPOL FLAGS * 

oooo 

• 

• 

• 

.**************#********¥****♦***♦** 

oooo 

• 

• 

• 

TM1ACK EQU 

OQ 

; ACKNOWLEDGE TIMER INTERRUPT 

OOOO 

• 

• 

• 

• 

9 


(BIT 1 OFF) 

0001 

• 

• 

• 

TMRON EQU 

IQ 

; SET TIMER ON 

0002 

• 

« 

• 

T MIEN EQU 

2Q 

; RE-ENABLE TIMER INTERRUPT 

0010 

# 

• 

• 

DC TOFF EQU 

20Q 

; D 1 SABLE DATA COMM INTERRUPT 

0020 

• 

• 

• 

TMIOFF EQU 

40Q 

;PiSABLE TIMER INTERRUPTS 

0040 

• 

m 

• 

POLL EQU 

1 OOQ 

; POLL CTU INTERRUPTS 

0080 

• 

• 

• 

SETROM EQU 

200Q 

; D 1 SABLE (D/ENABLE (0) ROM 

oooo 

• 

• 

• 

.******** ************** *********** 

OOuO 

• 

« 

• 

; MDELG1 - 

TERMINAL 

MODE FLAGS 1 * 

oooo 

• 

• 

• 

****************** ********** 

QOOt 

• 

• 

• 

DSPFNC EQU 

IQ 

; DISPLAY FUNCTIONS ENABLED 

0OQ2 

• 

• 

♦ 

IN SC HR EQU 

2Q 

; INSERT CHARACTER ENABLED 

0004 

m 

• 

• 

MEMLUK EQU 

40 

; MEMORY LOCK ENABLED 

0008 

• 

• 

• 

FORMAT EQU 

10Q 

; FORMAT MODE ENABLED 

0010 

• 

• 

• 

EDIT EQU 

20Q 

; EDIT MODE ENABLED 

0020 

• 

• 

• 

SFLECT FQU 

40Q 

; SELECT MODE ENABLED 

0040 


• 

• 

RECORD EQU 

1 OOQ 

; RECORD MODE ENABLED 

0080 

• 

• 

• 

FORGN EQU 

2000 

; FOREIGN MODE ENABLED 

oooo 

• 

• 

• 

.***************************♦***** 

oooo 

• 

• 

• 

; MDFLG2 - 

TERMINAL 

MODE FLAGS 2 * 

oooo 

m 

• 

• 

.********************************* 

OOul 

• 

• 


CAPSLK EQU 

IQ 

; C APS LOCK ENABLED 

0002 

• 

• 

• 

BLKMDE EQU 

2Q 

; BLOCK MODE ENABLED 

0004 

• 

• 

• 

AUXOLF EQU 

40 

; AUTO LF ENABLED 

0008 

m 

• 

• 

REMOTE EQU 

10Q 

; REMOTE ENABLED 

0020 


• 

• 

WBSP EQU 

40Q 

; WRITE-BACKSPACE-READ MODE 

oooo 

• 

• 

• 

; * * * * 1*4; *********** ******** *•*****♦*♦*♦ ***♦***♦♦♦ 

oooo 

• 

• 

• 

; RADIX - 

BASE OF INPUT PARAMETER FOR ESC SFQ * 

oooo 

• 

• 

• 

ft********************************************* 

000 A 

• 

• 

* 

DECRDX EQU 

10 

? DECIMAL NUMBERS 

0008 

• 

• 

• 

OCTRUX EQU 

8 

; OCTAL NUMBERS 
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133 

0000 

• 

• 

• 

;******************* 


134 

0000 

• 

• 

• 

/ COMMON VARIABLES * 



135 

0000 

• 

• 

• 

;******************* 



136 

9165 

• 

• 

• 

1NTVEC 

EQU 

FSTRAM+145Q /CENTRAL INTERRUPT VECTOR 

137 

9168 

• 

* 

• 

SCNVEC 

EQU 

INTVEC+3 

/ FOREIGN TERMINAL DISPLY SCA 

138 

0000 

• 

* 

• 

• 

9 





139 

FFFF 

• 

• 

• 

COMMON 

EQU 

1 77777Q 

? UPPER LIMIT OF COMMON AREA 

140 

OOFF 

• 

• 

• 

CMBA5E 

EQU 

COMMON/256 

;MSB OF COMMON ADDRESSES 

141 

FFOO 

• 

• 

• 

CMSTOR 

EQU 

CM8ASE*256 

/ MSB ADJUSTMENT FACTOR 

142 

0000 

• 

• 

• 

! 





143 

FFFE 

• 

• 

• 

DISPST 

EQU 

COMMON-1 

; DISPLAY REFRESH START PTR 

144 

fffd 

• 

• 

• 

TRMT1P 

EQU 

DISPST-1 

; TERMINAL TYPE NUMBER 

145 

fffc 

• 

• 

• 

K6DCSW 

EQU 

TPMTYP-1 

; KEYBOARD DATACOM SWITCHES 

146 

fffb 

• 

• 

• 

KBJMPR 

EQU 

KBDCSW-1 

; KEYBOARD STRAPS 

147 

FFF A 

• 

• 

• 

KBJMP2 

EQU 

KBJMPR-1 

? SET 2 

148 

FFF9 

• 

• 

• 

KBJMP3 

EQU 

KBJMP2-1 

;SET 3 

149 

FFF8 

• 

• 

• 

CMFLGS 

EQU 

KBJMP3-1 

; COMMON FLAGS 

150 

FFF7 

• 

• 

• 

ERRFLG 

EQU 

cmflgs-i 

/ERROR FLAGS 

151 

FFF6 

• 

• 

• 

INTFLG 

EQU 

ERRFLG-1 

/INTERRUPT FLAG 

152 

FFF 5 

• 

• 

• 

PRCCTL 

EQU 

IN IFLG-1 

/PROCESSOR CONTROL FLAGS 

153 

FFF 4 

• 

• 

• 

MDFLG1 

EQU 

PRCCTL- 1 

/TERMINAL MODE FLAGS 1 

154 

FFF3 

• 

• 

• 

MDFLG2 

EQU 

MDFLG1-1 

/AND 2 

155 

FFF 1 

• 

• 

• 

MSGPT1 

EQU 

MDFLG2-2 

/MESSAGE POINTERS 

156 

FFFF 

• 

• 

• 

MSGPT2 

EQU 

MSGPT1-2 



157 

FEED 

• 

• 

• 

MSGPT3 

EQU 

MSGPT2-2 


• 

158 

FFFB 

• 

• 

• 

MSGPT4 

EQU 

MSGPT3-2 


• 

159 

FFE9 

• 

• 

• 

MSGPT5 

EQU 

MSGPT4-2 


• 

160 

FFE7 

• 

• 

• 

MSGPT6 

FQU 

MSGPT5-2 


• 

161 

FFE5 

• 

• 

• 

MSGPT7 

EQU 

MSGPT6-2 


• 

162 

FFE3 

• 

• 

• 

MSGPT8 

EQU 

MSGPT7-2 


• 

163 

FFE1 

• 

• 

• 

CTIVEC 

EQU 

MSGPl’8-2 

?CTU INTERRUPT VECTOR 

164 

FFEO 

• 

• 

• 

CT1JMP 

FQU 

CTIVEC-1 

/JUMP 

CODE FOR VECTOR 

165 

FFDE 

• 

• 

• 

XODATA 

EQU 

CTIJMP-2 

/ESQ SEQ FARM ACCUMULATOR 

166 

FFUD 

• 

• 

• 

IOCSGN 

EQU 

IODATA-1 

/SIGN 

FOR PARAMETER 

167 

FFDC 

• 

• 

• 

IOPSGN 

EQU 

IOCSGN-1 

/PARAMETER SIGN 

168 

ffdb 

* 

• 

• 

PARM1 

EQU 

IOPSGN- 1 

/ESCAPE SEQUENCE PARAMETERS 

169 

FFDA 

• 

• 

• 

PARM2 

EQU 

FARM 1 - 1 


• 

170 

FFD9 

• 

• 

• 

PARM3 

EQU 

PARM2-1 


• 

171 

FFD8 

• 

• 

• 

PARM4 

EQU 

PARM3-1 


• 

172 

FFU7 

* 

• 

• 

PAPM5 

EQU 

PARM4-1 


• 

173 

FFD5 

• 

• 

• 

PARM6 

EQU 

PARM5-2 


• 

174 

FFD4 

• 

• 

• 

RADIX 

EQU 

PARM6-1 

/RADIX OF PARAMETERS 

175 

FFD2 

• 

• 

• 

RNGTA 

EQU 

RADIX-2 

/CHAR 

FUNCTION TABLE ADDRESS 

176 

FFD1 

• 

• 

• 

ESCFLG 

EQU 

RNGTA- 1 

/ESCAPE SEQUENCE FLAG 

177 

0000 

• 

• 

• 

• 

9 



= u 

NOT IN ESCAPE SEQ 

178 

0000 

• 

• 

• 

• 

9 



# 0 

ESC SEQ IN PROGRESS 

179 

F'FDO 

• 

• 

• 

RSTTMR 

EQU 

ESCFLG- l 

/SOFT 

RESET TIMER 

180 

oooo 

• 

• 

• 

? * ♦ 

♦ * * 

***** 

* * * 

*********** 

181 

0000 

• 

• 

• 

? END 

OF COMMON EQUATES 

* 

182 

oooo 

• 

• 

• 

/-**** 

****** 


j**********************''***** 
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:i 84 

oooo 

• 

• 

• 

;*♦****♦ ******************* ******* 

185 

oooo 

• 

• 

• 

; KEYBOARD 

ENTRY VECTOR POINTERS * 

186 

oooo 

• 

• 

• 

;********************************* 

167 

4800 

• 

* 

• 

ZKBBAS 

EQU 

44000Q 

KEYBOARD START ADDRESS 

168 

4802 

• 

• 

• 

ZINIrB 

EQU 

ZKBBAS+2 

initialize keyboard 

189 

4805 

• 

• 

• 

ZGETKY 

EQU 

ZINIKB+3 

GET KEYBOARD KEX 

190 

4808 

• 

• 

• 

ZKBCri 

Fqu 

ZGETKY +3 

PERFORM KEYBOARD CONTROL 

191 

480B 

• 

• 

• 

ZK6MQN 

Evil 

ZKBC TL-f 3 

M0N1I0R KEYBOARD 

192 

480E 

• 

• 

• 

ZSTMDl 

FOU 

ZKBMON+3 

SET MODE 1 FLAGS 

193 

4811 

• 

• 

• 

ZCLMOt 

EQU 

ZSTM01*3 

CLEAR MODE 1 FLAGS 

194 

4814 

• 

• 

• 

ZBeLL 

EQU 

ZCLMD1+3 

SOUND THE BELL 

195 

4817 

• 

• 

• 

ZSTXMT 

Eyu 

ZBELL+3 

TURN UN TRANSMIT LED 

196 

48 1 A 

• 

• 

• 

ZCLXmT 

EQU 

ZSTXMT +3 

TURN OFF TRANSMIT LED 

197 

48 1 D 

• 

• 

• 

ZSTJPP 

EQU 

ZCLXMT+3 

SET JUMPERS ESC SEQ ROUTINE 

198 

4820 

• 

• 

• 

ZSTLKY 

EQU 

ZSTJPR+3 

SET LATCHING KEYS ROUTINE 

199 

4823 

• 

• 

• 

ZALPCK 

eyu 

ZSTLKY t 3 

ALPHA KEY ENTRY CHECK 

200 

4826 

• 

• 

• 

ZNUMCK 

EQU 

ZALPCK+ 3 

NUMERIC KEY ENTRY CHECK 

201 

oooo 

• 

• 

• 

* 

9 




202 

oooo 

• 

• 

• 

; KEYBUARD 

constants 


203 

oooo 

• 

• 

• 

i 




204 

4829 

• 

• 

• 

FRSALT 

EQU 

ZNUMCK+3 ; INITIAL ALTERNATE CHAR SET 

205 

48 2 A 

• 

• 

• 

ALIOUT 

EQU 

ERSALT+1 /INITIAL ALTERNATE CHAR OUT 

206 

oooo 

• 

• 

• 

• 

9 




207 

oooo 

• 

• 

• 

? KEYBOARD 

CONTROL CALLS 

208 

oooo 

• 

• 

• 

• 

9 




209 

0001 

• 

• 

• 

LOCKKB 

EQU 

1 

IUCK KEYBUARD 

210 

0002 

• 

• 

• 

UNLKKB 

EQU 

2 

UNLOCK KEY BOARD 

211 

0003 

* 

• 


RPTKEY 

EQU 

3 

repeat last key hit 

212 

0004 

• 

• 

• 

STBLMD 

EQU 

4 

SET PERMANENT BLOCK MODE 

213 

0005 

• 

• 

• 

STRTST 

EQU 

5 

START SELF-TEST 

214 

0006 

• 

• 

• 

ENDTST 

EQU 

b 

END SELF -TEST 

215 

0007 

• 

• 

• 

RSETKB 

EqU 

7 

RESET KEYBOARD 

216 

OO08 

• 

• 

• 

CKXOKY 

EQU 

8 

CHFCK FOR I/O CUNTPOl KEY 

217 

0009 

• 

• 

• 

STPRPT 

EQU 

9 

STOP KEY REPEAT 

218 

0OUA 

• 

• 

• 

CKBRKY 

EQU 

10 

CHECK FUR BREAK KEY DOWN 

2 1 9 

OOOB 

• 

• 

• 

SWCHAR 

EQU 

11 

SWITCH CHARACTER SET 

220 

oooc 

• 

• 

• 

SFTFRN 

EQU 

12 

UPDATE FOREIGN MODE 

221 

OOOD 

• 

• 

• 

STCHST 

EQU 

13 

SET FOREIGN OUTPUT MODE 

222 

OOOE 

• 

• 

• 

F'RNMDl 

EQU 

14 

SET FURETGN MODE 1 

223 

00 OF 

• 

• 

• 

FRNMD2 

EQU 

15 

SET FOREIGN MUDE 2 



13255- 



225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 
24 7 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 


90003 

LOC 

0000 

0000 

0000 

0000 

0000 

5000 

5002 

5003 

5004 

5005 

5006 
0000 
0000 
0000 
0000 
0000 
5008 
500B 
500E 
5011 
5014 
5017 
50 1 A 
501D 
5020 
5023 
5026 
0000 
0000 
QOuO 
0000 
0000 
0000 
0001 
0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 
000 A 
OOOB 
OOOC 
OOOD 


Rev AUG-0 1 -7 b ^ 

OBJECT CODE SOURCE STATEMENTS ^GE 6_ 

a + * ************ ************** 

DATACOM CONSTANTS 


.*********** 
ZDCBAS EQU 
TRIGGR EQU 
RECSEP EOU 
BLKTRM EQU 
DC JMSK EQU 
DCJMS2 EQU 
; *********** 


********* 
50000Q 
ZDCBAS+2 
TRIGGR*! 
RECSEP* l 
BLKTRM+1 
DC JMSK*1 
********* 


***************************** 

; DATACOM START ADDRESS 
; BLOCK TRANSFER TRIGGER 
; RECORD SEPARATOR CHARACTER 
; BLOCK TERMINATOR CHARACTER 
; DATA COMM jumper MASK 
; DATA COMM JUMPER MASK #2 
***************************** 


DATACOM ENTRY VECTOR POINTERS 


.***** 

ZINIDC 

ZIN2DC 

ZDCMON 

ZDCCTL 

ZDCTST 

2GETDC 

ZPUTDC 

ZGTB1N 

ZSTB1N 

ZNDBIN 

ZDCINT 

;***** 


************** 

EQU ZDCBAS+1 
EQU ZINIDC+3 
EQU ZIN2DC*3 
EQU ZDCMON *3 
EQU ZDCCTL* 3 
EQU ZDCTST+3 
EQU ZGETDC+3 
EQU ZPUTDC+3 
EQU ZGTB IN *3 
EQU ZSTB1N+3 
EQU ZNDBIN+3 


************** 


****************************** 
OQ ; INITIALIZE DATACOM 

INITIALIZATION C0NT1NU ATOR 
MONITORING ROUTINE 
MISC CONTROL FUNCTIONS 
SELF-TEST 
GE'I DC CHARACTER 
PUT DC CHARACTER 
GET BINARK DC CHARACTER 
START BINARK OUTPUT 
END BINARK OUTPUT 
DATACOM INTERRUPTS 
**** **************** ********** 


DATACOM CONTROL CALL CODES 


.********** 

CLRTRG EQU 
SETTRG EQU 
RSETDC EQU 
SETREM EQU 
SETLCL EQU 
PUTBRK EQU 
DISC NT EQU 
ENDBLK EQU 
SETMON EQU 
SETNRM EQU 
F STB IN EQU 
SNDATN EQU 
SNDFCT EQU 
PROMPT EQU 


*************************************** 

0 ; CLEAR BLOCK TRANSFER TRIGGE 

1 ; SET BLOCK TRANSFER TRIGGER 

2 ? RESET DATACOM 

3 ; SET REMOTE MODE 

4 ;SET LOCAL MODE 

5 ; OUTPUI BREAK SIGNAL 

b ; MODEM DISCONNECT 

7 ; TERMINATE OUTPUT MESSAGE 

8 ? ENTER MONITOR MODE 

9 ; ENTER NORMAL MODE 

10 ; ENTER FAST BINARY OUT MODE 

11 ; SEND ATTENTION CODE 

12 ; SEND FUNCTION DATA 

13 ; SEND PROMPT CODE 



13255-90003 Rev AUG-01-76 


ITEM 

LOC 

OBJECT CODE 

SOURCE 

STATEMENTS 

PAGE 7 

272 

0000 

* 

• • 

• ^ ************** ********?*** 

273 

0000 

• 

• • 

; ALTERNATE 

I/O ENTRX VECTORS * 

27 4 

oooo 

• 

• • 

;********* ^##*********jM****** 

275 

6000 

• 

• • 

ALTORG 

EQU 

600000 

ALTERNATE I/O START ADDRESS 

276 

6002 

• 

• • 

ZINI AL 

EQU 

ALTORG+2 

INITIALIZATION ROUTINE 

27 7 

6005 

• 

• • 

ZIN2AL 

Egu 

ZIMAL+3 

INITIALIZATION CDNTI'NUA TOR 

278 

fc>008 

• 

• • 

ZInTAL 

EgU 

ZIN2AL+3 

interrupt processor 

279 

6 0uB 

• 

• • 

ZMONAl 

Egu 

ZINTAL+3 

MONITORING ROUTINE 

280 

6 0 0 E 

• 

• • 

ZGETAL 

EQU 

ZMUNALt 3 

INPUT ROUTINE 

281 

601 t 

• 

• • 

ZFUTAL 

Egu 

ZGETAL+3 

OUTPUT ROUTINE 

282 

6014 

• 

• • 

ZCTLAL 

egu 

2P0TAL4 3 

CONTROL ROUTINE 

283 

6017 

• 

• • 

ZSTAAL 

egu 

ZCTLAL 4 3 

STATUS ROUTINE 

28 4 

60 1 A 

• 

• • 

ZMSGAL 

egu 

ZSTAAL 1 3 

ALTERNATE DEVICE NAME 



13255- 

90003 

ITEM 

LOC 

286 

0000 

287 

oooo 

288 

0000 

289 

oooo 

290 

000 A 

291 

oooc 

292 

OOOD 

293 

0O0E 

294 

OOOF 

295 

0012 

296 

0013 

297 

00 1 B 

298 

0020 

299 

0020 

300 

0026 

301 

0027 

302 

0029 

303 

002B 

304 

002C 

305 

002D 

306 

002E 

307 

002F 

308 

0030 

309 

0032 

310 

003 3 

311 

0034 

312 

0035 

313 

0036 

314 

0037 

315 

OOOO 

316 

0040 

317 

0041 

318 

0043 

319 

0044 

320 

0046 

321 

0048 

322 

004C 

323 

004E 

324 

0050 

325 

0052 

326 

0053 

327 

0054 

328 

0055 

329 

0059 

330 

005A 

331 

005B 

332 

005C 


Rev AUG-01-76 


OBJECT CODE SOURCE STATEMENTS 
= 


PAGE 8 


.************************** 
; ASCII CHARACTER EQUATES * 
.*****#******************** 


NULL 

EQU 

OQ 

NULL 

LF 

EQU 

12Q 

LINE FEED 

FF 

EQU 

14Q ? 

FORM FEED 

CR 

EQU 

15Q 

RETURN 

SO 

EQU 

016Q 


SI 

EQU 

017Q 


DC 2 

EQU 

22Q 

DEVICE CONTROL 2 

DC 3 

EQU 

23Q 

DEVICE CONTROL 3 

ESC 

EQU 

33Q 

ESCAPE 

CTLLIM 

EQU 

40Q 

CONTROL CODE UPPER LIMIT 

ABLNK 

EQU 

040Q t ASC I I BLANK 

AMPSND 

EQU 

46Q 

U) - AMPERSAND 

QUOTE 

EQU 

47Q 

(') - SINGLE QUOTE 

ARPAKN 

EQU 

5 i Q 

[)) - RIGHT PARENTHESIS 

PLUS 

EQU 

53Q 

PLUS SIGN 

COMMA 

EQU 

54Q 

COMMA 

MINUS 

EQU 

55Q 

MINUS SIGN 

PERIOD 

EQU 

56Q 

(.) - PERIOD 

SLANT 

EQU 

57Q 

(/) - SLANT 

ZERO 

EQU 

60Q 

ASCII ZERO 

TWO 

EQU 

62Q 

ASCII TwO 

THREE 

EQU 

63Q 

ASCII THREE 

FOUR 

EQU 

64Q 

ASCII FOUR 

FIVE 

EQU 

65Q 

ASCII FIVE 

SIX 

EQU 

66Q 

-ASCII SIX 

SEVEN 

EQU 

67Q 

'ASCII SEVEN 

AT5IGN 

EQU 

1 OOQ 

"AT” SIGN (0) 

A 

EQU 

101 Q 

UPPER CASE A 

C 

EQU 

1 03Q 

UPPER CASE C 

D 

EQU 

104Q 

UPPER CASE D 

F 

EQU 

1060 

UPPER CASE F 

H 

EQU 

1 1 OQ 

UPPER CASE H 

L 

EQU 

114Q 

f UPPER CASE L 

N 

EQU 

116Q 

UPPER CASE N 

P 

EQU 

1200 

UPPER CASE P 

R 

EQU 

1220 

UPPER CASE R 

S 

EQU 

123Q 

UPPER CASE S 

I 

EQU 

1240 

UPPER CASE I 

U 

EQU 

1250 

UPPER CASE U 

i 

EQU 

1 3 1 Q 

UPPER CASE Y 

z 

EQU 

1320 

UPPER CASE Z 

LFTBKT 

EQU 

1330 

LEFT BRACKET 

ABCKSL 

EQU 

1 34Q 

(\) - BACK SLANT 
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it 

it 

ii 

it 

ii 

it 

ii 

it 

ii 

n 

it 

it 

ii 

ii 

ii 

ii 

a 

s:s 

ii 

ii 

ii 

ii 

ti 

it 

it 

it 

ii 

ii 

ii 

ii 

ii 

ii 

H 

II 

11 

II 

ss::3sx::z: 

ii 

ti 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

n 

ii 

ii 

ii 

334 

0000 

• 

• 

• 



335 

0000 

* 

• 

• 

; LOWER CASE EQUATES * 


33b 

0000 

• 

• 

• 

;*************** ****** 


337 

0061 

• 

• 

• 

SMALLA EQU 

1 4 1 Q 

; LOWER CASE A 

338 

00b 3 

• 

• 

• 

ALCC EQU 

1 43Q ,* ASCI I LOWER CASE C 

339 

0064 

• 

* 

• 

SMALLD EQU 

1 44Q 

; LOWER CASE D 

340 

0066 

• 

• 

• 

SMALLE EQU 

1 46Q 

? LOWER CASE F 

341 

00o9 

• 

• 

• 

SMALLl EQU 

1 5 1 Q 

i lower case i 

342 

OObB 

• 

• 

• 

SMALLK EQU 

153Q 

? LOWER CASt K 

3 43 

0070 

• 

• 

• 

SMALLP EQU 

1 60Q 

; LOWER CASE P 

344 

00 7 8 

• 

• 

• 

SMALLX EQU 

1 70Q 

» LOWER CASE X 

345 

00 7B 

• 

• 

• 

LFTBRC EQU 

173Q 

; LEFT BRACE 

34b 

007C 

• 

• 

• 

VRTBAR EQU 

174Q 

; VERTICAL BAR 

347 

007 E 

♦ 

• 

• 

ADEL EQU 

17 70 

; DELETE (RuBOUT) 
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ss 

ssssxs 

sxxssscs 

:s:: 


ti 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

H 

II 

M 

II 

II 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE 
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ii 

n 

it 

ii 

ii 

it 

ii 

ii 


ss 


sssxrss; 

355S 

::::::::: 

555555555555555555555555555555 

349 

0000 

• 

• 

• 

• * 444 * 4 ** 4 ****;*:***** 4* *** 

350 

0000 

• 

• 

• 

; DISPLAY FLAGS EQUATES * 

351 

0000 

• 

• 

• 

.************************ 

352 

OOBF 

• 

9 

• 

ENHLIM 

EQU 

27 7 Q 

; MAXIMUM ENHANCEMENT CODE 

353 

OOCO 

• 

9 

• 

STPR 

EQU 

300Q 

? START PROTECTED FIELD 

354 

ooci 

• 

9 

• 

ENDPR 

EQU 

3010 

? END PROTECTED FIELD 

355 

OOC2 

• 

9 

• 

XMQNLY 

EQU 

302Q 

; START TRANSMIT-ONLY FIELD 

356 

00C3 

* 

• 

• 

FILL 

EQU 

3030 

? EOL FILL CHARACTER 

357 

00C4 

• 

• 

• 

STPFLG 

EQU 

3040 

; NON-DISPLAYING TERMINATOR 

358 

00C5 

• 

• 

• 

ALPHA 

EQU 

3050 

; ALPHABETIC ONLY 

359 

00 C 6 

« 

• 

• 

NUMBER 

EQU 

306Q 

; NUMERIC ONLX 

360 

OOC7 

• 

• 

• 

ALPHNM 

EQU 

3070 

J ALPHANUMERIC F'TELD 

361 

00C8 

• 

• 

• 

SFkYAT 

EQU 

3 1 OQ 

; SOFT KEY ATTRIBUTE FIELD 

36 2 

0000 

• 

• 

• 

• 

0 




36 3 

00C4 

• 

• 

• 

FLDSEP 

EQU 

3040 

; FIELD SEPARATOR FUR I/O BUF 

364 

OOCC 

• 

# 

• 

EOL 

EQU 

314Q 


365 

OOCE 

• 

• 

• 

EOP 

EQU 

316Q 


366 

OODO 

• 

* 

• 

LNKLIM 

EQU 

320Q 

; LOWEST VALUE FOR A LINK 

367 

0800 

• 

« 

• 

NUM2K 

EQU 

4 0 0 0 Q 

; NUMBER 2048 (2KJ 

368 

8000 

• 

• 

• 

B15 

EQU 

100000Q 

;BIT 16 

369 

00C3 

• 

• 

• 

JMP 

EQU 

3030 

; JUMP INSTRUCTION CODE 

370 

00C9 

• 

• 

• 

RET 

FQU 

3110 

? RETURN INSTRUCTION CODE 

371 

0000 

• 

• 

• 

.************************ 

37 2 

0000 

• 

• 

• 

? MISCELLANEOUS EQUATES * 

373 

0000 

9 

• 

• 

.************************ 

374 

0017 

• 

• 

• 

MAXROW 

EQU 

23 

; MAXIMUM ROW number 

375 

004F 

• 

• 

• 

MAXCOL 

EQU 

19 

;maximum column NUMBER 

376 

0010 

• 

• 

• 

SFTEND 

EQU 

16 

; LAST SOFT KEY DEFINITION RO 

37 7 

0008 

• 

• 

9 

BELLIM 

EQU 

8 

; SPACE FROM RHTMGN FOR BELL 

378 

OOOF 

• 

• 

9 

BLKSM 

EQU 

17Q 

; BLOCK SIZE MASK 

379 

0010 

• 

• 

9 

BLKSZ 

EQU 

16 

; BLOCK SIZE 

380 

0008 

* 

• 

9 

IOERRB 

EQU 

10Q 

; I/O ERRUR STATUS BTT 

381 

0001 

• 

• 

9 

REXMIT 

EQU 

10 

; RE-TRANSMIT I/O FLAG 

382 

0002 

• 

9 

9 

BINXMT 

EQU 

2 

; SEND BINARY DATA 

38 3 

0032 

9 

9 

9 

SFTDLY 

EQU 

50 

;SQFT RESET PEKluD - ,50 SEC 

384 

0080 

• 

9 

9 

NOSIGN 

EQU 

2000 

; NO SIGN FLAG FOR INPUT DATA 



ITEM 

LOG 

386 

0000 

387 

0000 

388 

0000 

389 

0000 

390 

0001 

391 

0070 

392 

0080 

393 

0000 

394 

0000 

395 

oooo 

396 

8300 

39 7 

8380 

398 

0002 

399 

0004 

400 

00u8 

401 

oooo 

402 

oooo 

403 

oooo 

404 

87u0 

405 

8700 

40b 

8720 

407 

0020 

408 

0040 

409 

0060 

410 

0080 

411 

0082 

412 

0080 

413 

oooo 

414 

oooo 

415 

oooo 

416 

8600 

417 

8B00 

418 

8BOO 

419 

8R20 

420 

8B20 


OBJECT CODE 
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SOURCE STATEMENTS 


z 


RAGE 11 




.******************** 

? I/U MODULE EQUATES 
.******************** 
RESET EQU 00 
RSTJMP EQU 10 
RROCSP FQU 1600 
10BASE EQU 200Q ? 


f 

♦ 

* 

/RESET TERMINAL VECTOR 
; VECTOR FOR RESTART "PCHL 
; PROCESSOR "OUT” PORT 
I/O ADDRESS MSB'S 


W 


; KEYBOARD 

• 

IOKB EQU ( 3Q+IOBASE ) *256 # MODULE 11 BASE ADDRESS 
IOKBCO EQU IOKBt 200Q ? RESET KE* CONTROL 

RS10N EQU 2Q • RESET uN 

RSIOFF EQU 4Q ; RESET OFF 

NMFCTK EQU 8 ; NUMBE R UE’ FUNCTION KE YS 

• 

; CURSOR CONTROL 

IQDISP EQU 1 7 Q + 106 ASE ) *256 ; MODULE 13 BASE: ADDRESS 
XOCRCL EQU 10DISP+0 ?CuRSOR COLUMN ADDRESS 
IOCRRW EQU 10DI SPt 4U0 /CURSOR ROrt ADDRESS 
MAKEUP EQU 40Q ;DMA ON# EOP IE DMA ROW = RO 

MAYEOL EQU 1 OOQ ;DMA OFF# SKIP EOP IE RUNS = 

OMAOFF EQU 140Q » DMA OFF 

CRTOFF EQU 2000 ; DISPLAY OFF 

INVRS EQU 202Q ? INVERSE VIDEO Ow 

NORMAL EQU 200Q ; NORMAL VIDEO ON 


; CARTRIDGE TAPE 

• 

XOCTU EQU ( 13Q + IOPASE*25b) MODULE 15 BASE ADDRES 

lOCTCO EQU IOCTU+OQ /COMMAND TO CTU 

10CTSI EQU IDCTU-f OQ / STATUS FROM CTU 

IOCTDO EQU IOCTU + 40Q # D A T A TO CTU 

IOCTDI EQU 10CTU t40Q /DATA FROM CTU 
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ITEM 

LQC 

OBJECT 

CODE 

SOURCE 

STATEMENTS PAGE 12 


it 

it 

it 

ii 

k 

ii 

ii 

ii 


ssss 


ssssss: 

sssss 

ss:s3s=:=s:::s:ss:5s:::sssss:s::::=:ss: 

422 

0000 

• 

• 

• 

* 

9 



423 

oooo 

• 

• 

• 

; 9866 PRINTER 

424 

0000 

• 

• 

• 

• 

9 



425 

8D00 

• 

• 

• 

10PTK1 

E0U 

(15Q+IOBASE)*256?MGDULE 16 BASE ADDRES 

426 

8D20 

• 

• 

• 

PTR0T1 

equ 

IOPTRt +40Q ; PRINTER DATA OUT 

427 

8D00 

• 

• 

• 

PTRST1 

EQU 

IOPTR1+OQ ? PRINTER STATUS IN 

428 

8002 

• 

* 

• 

PTRCL1 

EQU 

IOPTR1+2Q ; PRINTER CLEAR 

429 

0000 

• 

• 

• 

• 

9 



430 

oooo 

• 

• 

« 

; RS- 

232 PRINTER 

431 

0000 

• 

9 

• 

• 9 



432 

8500 

• 

9 

• 

IOPTR2 

EQU 

(5Q+IOBASE)*256?MODULE 12 BASE ADDRESS 

433 

8540 

« 

9 

• 

PTROT2 

EQU 

IOPTR24100Q ; INTERFACE CONTROL OUT 

434 

8520 

• 

• 

• 

PTRST2 

EQU 

IOPTR2+40Q ; PRINTER STATUS IN 

435 

8560 

• 

• 

• 

PTRDA2 

EQU 

10PTR2 + 1 40Q ? PRINTER DATA OUT 

436 

8540 

• 

• 


PTRCF2 

EQU 

IOPTR2+1 00Q ; OPTION JUMPERS IN 
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il 

fl 

li 

II 

It 

ii 



;s 

rsssssss=ss:ss==ss=sssss 

ii 

a 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

it 

ii 

it 

ii 

it 

ii 

ti 

ti 

ii 

it 

it 

H 

II 

II 

II 

II 

II 

II 

II 

II 

ITEM 

LOC 

OBJECT 

CODF SOURCE STA1 EMENTS 

PAGE 13 



II 

II 

II 

II 

II 

II 

:: 

il 

ii 

ii 

ii 

it 

ii 

if 

II 

It 

U 

II 

II 

II 

II 

il 

ii 

il 

ii 

il 

it 

II 

il 

ti 

M 

ii 

ti 

ii 

ti 

ii 

M 

it 

il 

it 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

it 

ii 

ii 

ii 

a 

ii 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

438 

0000 

• 

• 

• 

****************** 

439 

0000 

• 

• 

• 

PRINTER EQUATES 

* 

440 

0000 

• 

• 

• 

****************** 

441 

0000 

• 

• 

• 



442 

0000 

• 

• 

* 

RS-232 OPTION 

STRAPS 

443 

0000 

• 

• 

• 



444 

oooo 

• 

• 

• 

BITS 2-0 

MEANING IF SET 

4 45 

oooo 

• 

• 

• 

000 

EXT BAUD RAIE 

4 4b 

oooo 

• 

• 

• 

001 

no " 

44 7 

oooo 

• 

• 

• 

010 

150 H 

448 

oooo 

• 

m 

• 

Oil 

300 " 

449 

oooo 

• 

0 

• 

100 1200 " 

450 

oooo 

• 

0 

• 

101 2400 " 

451 

oooo 

• 

0 

• 

110 4800 " 

452 

oooo 

• 

0 

• 

111 9600 " 

45 3 

oooo 

• 

0 

• 



454 

oooo 

• 

0 

• 

BIT 3 

PARITY SELECT 

455 

oooo 

• 

0 

• 

1 

EVEN 

45b 

oooo 

« 

0 

• 

0 

ODD 

45 7 

oooo 

• 

• 

• 

' 


45 8 

oooo 

• 

• 

• 

BIT 4 

PARITY INHIBIT 

459 

oooo 

« 

• 

• 

1 

NO PARITY 

460 

oooo 

• 

• 

• 

0 

PARITY 

461 

oooo 

• 

• 

• 

BITS 7-5 

# OF I ILLS 

46 2 

oooo 

• 

• 

• 

0 0 0 

HANDSHAKE DEVICE 

463 

OOuO 

• 

• 

* 

001 

8 

464 

oooo 

• 

• 

• 

OlO 

16 

465 

oooo 

• 

• 

• 

t oil 

24 

466 

oooo 

• 

• 

• 

; loo 

32 

467 

oooo 

• 

0 

• 

; 101 

40 

468 

oooo 

• 

m 

• 

J 110 

48 

469 

0000 

• 

0 


7 111 

56 

470 

oooo 

• 

0 


****************** 

471 

oooo 

• 

0 


7 DRIVER EQUATES 

* 

472 

oooo 

* 

0 


;***************** 

47 3 

05DC 

• 

0 

. PTDLY EgU 1500 

; 1 5 SECOND PRINTER TINE OUT 

47 4 

oooo 

• 

• 

• 

************************ 

475 

oooo 

• 

• 

• 

; 9866 PRINTER EQUATES * 

476 

oooo 

• 

• 

• 

.*********************** 

47 7 

OOol 

• 

• 

. PTRDY1 EQU 1 

; PRINTER READY 

478 

0080 

• 

• 

. PTRP01 EQU 2O0Q 

; PRINTER OUT OF PAPER 

479 

oooo 

• 

• 

• 

.************************* 

480 

oooo 

• 

• 

• 

; RS-232 PRINTER 

EQUATES * 

481 

oooo 

• 

• 

• 

.************************* 

482 

0002 

• 

• 

. PTRD Y 2 FQU 2 

; PRINTER READY MASK 

483 

0040 

• 

• 

. PTRSB2 EgU 1000 

; RS-232 SB LINE STROBE 

484 

0020 

• 

• 

. PTK0L2 EQU 400 

; PRINTER READY MASK 

485 

OOEO 

• 

• 

. PTRHD2 EOU 3400 

; RS-232 HANDSHAKE PROTUCOL 

486 

00 IF 

• 

• 

• 

PTRRD2 EQU 37Q 

7 PARITY AND BAUD RATE MASK 
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it 

It 

li 

li 
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zs: 

ii 

ii 

n 

ii 

it 

ii 

ii 

ii 

ti 

ii 

ii 

it 

ii 

n 

:::: 

II 

II 

II 

11 

II 

II 

II 

11 

II 

II 

II 

11 

II 

li 

It 

11 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ii 

II 

II 

II 

488 

0000 

• 


• 

y**************************** 

489 

0000 

• 


• 

; VARIABLE 

SPACE ALLOCATION * 

490 

0000 

« 


• 

.**************************** 

491 

FBFF 

• 


• 

DSRLIM 

EQU 

175777Q ;DISPLA¥ UPPER LIMIT 

492 

0000 

• 


• 

LWDSP 

EQU 

150000Q/256 ; DISPLAY LOwER LIMIT 

493 

FCOO 

• 


• 

IOBUF 

EQU 

176000Q 

494 

OOFC 

• 


• 

IOBUFH 

EQU 

IOBUF/256 

495 

0000 

• 


• 

I06UFL 

EQU 

-IOBUFH* 256+ IOBUF 

49b 

FCOO 

• 


• 

IOBUF 1 

EQU 

176000Q 

497 

FDOO 

• 


• 

I06UF2 

EQU 

176400Q 

498 

FE4F 

• 


• 

DSPSTR 

EQU 

1 7 7 0O0Q + 7 9 ; MESSAGE BUFFER 

499 

oioo 

• 


• 

PTRBLN 

EQU 

256 ? PRINTER INPUT BUFFER SIZE 

500 

0000 

• 


• 

;*************************** 

501 

0000 

• 


• 

; OPERATING 

SYSTEM STORAGE * 

502 

oooo 

• 


• 

.*************************** 

503 

9 1 bO 

• 


• 

STACK 

EQU 

FSTRAM* 140Q ?STACK AREA (96 RXTES) 

504 

FFDO 

• 


• 

OPSTUR 

EQU 

177720Q ; VARIABLES STORAGE AREA 

505 

OOFF 

• 


• 

BASEH 

EQU 

OPSTOR/256 ;MSB OF DATA PAGE ADDRESSE 

50b 

FFOO 

• 


• 

BASF 

EQU 

6ASEri*25b ? D A T A PAGE BASE ADDRESS 

50 7 

OOFE 

• 


• 

BASEH2 

EQU 

BASEH-1 ; BASE VALUES FOR SECOND PAGE 

508 

FEOO 

• 


• 

BASE2 

EQU 

BASEH2*256 ;0t VARIABLES SPACE 

509 

0000 

• 


• 

;*************************** 

510 

oooo 

* 


• 

; VARIABLE 

SUBROUTINE CALL * 

511 

0000 

• 


• 

;*************************** 

512 

ffcd 

• 


• 

ECONTF 

EQU 

QPSTOR-3 ; JUMP SUBROUTINE 

513 

FFCE 

• 


• 

CN IFAD 

EQU 

ECOMTF+1 ? CH AH ACTEF FUNCTION ADDRESS 
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ii 

H 

ti 

H 

ii 

ii 

11 

II 

It 

II 

it 

II 

II 

II 

I5SI 


it 

II 

ii 

ii 

M 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ITEM 

LGC 

OBJECT 

code: 

SOURCE STATEMENTS 

PAGE 15 

515 

0000 

• 

• 

• 

;********* ***************** ******************* 

51b 

0000 

• 

• 

• 

; nORMAL/SOFT KEY SWAPPED DISPLAY PARAMETERS * 

517 

0000 

• 

• 

• 

;*****+***+**♦*♦**♦♦ 

******+**********♦******** 

51b 

FFCB 

• 

• 

• 

TO PL IN 

EQU 

ECONTF-2 

;LSB PART OF NEXT LINE 

519 

0000 

• 

• 

• 

* 

9 



POINTER IN TOP DISPLAY 

520 

oooo 

• 

• 

• 

9 



LINE 

521 

FFC9 

• 

• 

• 

L STL IN 

EQU 

TOPUN-2 

; POINTER TO LSB PART OF 

522 

QO00 

• 

• 

• 

9 



NEXT LINE POINTER IN 

523 

oooo 

• 

• 

• 

9 



LAST LINE PROCESSED 

524 

FFC8 

• 

• 

• 

LS1CUL 

EQU 

LSTL1N-1 

;COLUNN AND ROW POSITION OF 

525 

FFC7 

• 

• 

• 

LSTRUW 

EQU 

L STOOL- 1 

; LAST CHARACTER PROCESSED 

52o 

oooo 

• 

• 

• 

9 



(CORRESPONDS TO CHARACTER 

527 

oooo 

• 

• 

• 

9 



GIVEN BY "COP ADR. ” ) 

52b 

FFC6 

• 

• 

• 

LSTDCD 

EQU 

LS TROW- 1 

; LAST DI SPLAY CODE USED 

529 

FFC5 

* 

• 

• 

LSIFMT 

EQU 

LSTDCD- 1 

? LAST FORMAT CONTROL USED 

530 

FFC3 

• 

• 

• 

CURAuR 

EQU 

GSTFMT-2 

; ADDRESS OF LAST CHARACTER 

531 

oooo 

• 

• 

• 

• 

9 



PROCESSED 

53^ 

FFC2 

• 

• 

• 

PRUFLD 

EQU 

CUHADR-1 

; PROTECT STATE OF (CUR ADR) 

533 

oooo 

• 

• 

• 

9 



= -1, PROTECTED 

534 

oooo 

• 

# 

• 

9 



« -1, NOT PROTECTED 

535 

oooo 

• 

• 

• 

;******************* 

***** 

536 

oooo 

• 

• 

• 

; CURRENT C 

URSUR VALUES * 

53/ 

0000 

• 

• 

• 

;*******¥**************** 

538 

FFC1 

• 

• 

• 

CTJRCUL 

EQU 

PROFLD-1 

? CURRENT COLUMN AND ROW 

539 

FFCC 

• 

• 

• 

CURFUVv 

EQU 

CURCOL-1 

; POSITION uf Cursor 

540 

FF6F 

• 

• 

• 

LFTMGN 

EQU 

CURPOW-1 

;LEFI MARGIN SETTING 

541 

FF6E 

• 

• 

• 

RHTMGN 

EQU 

LFTMGN-1 

; RIGHT MARGIN SETTING 

542 

000F 

• 

• 

• 

NTJMSwP 

EQU 

ECOMF" RHTMGN ? # OF SwAP VARIABLES 

543 

FFAF 

• 

• 

• 

SWPSTR 

EQU 

RHTMGN-NUMSWp ?SWAP BUFFER 

544 

FFAF 

• 

• 

• 

uspiyp 

EQlJ 

SwPSTR-l 

; DISPLAY CURRENTLY ENABLED 

545 

OOoO 

• 

• 

• 

* 



0 = NORMAL DISPLAY 

546 

OOoO 

• 

• 

• 

i 



-I = SOFT KEY DISPLAY 

547 

oooo 

• 

• 

• 

;*****************************4*********** 

548 

oooo 

• 

• 

• 

; FIXED 

DISPLAY PARAMETERS ( NOT SWAPPED) * 

549 

oooo 

• 

• 

* 

****************************************** 

550 

FF AC 

• 

• 

9 

FPBLKS 

EQU 

DSPTYP-2 

; F R F E BLOCKS LIST HEAD 

551 

FFAA 

9 

• 

9 

DSPRGN 

EQU 

FRBLKS-2 

; LOW ADDRESS OF DISPLAY AREA 

552 

FFA8 

• 

• 

9 

DSPEND 

EQU 

OSPBGN-2 

JH1GH ADDR OF DISPLAY AREA 

553 

FFA6 

• 

• 

9 

SFTKX5 

EQU 

DSPEND-2 

; SUF I KEY DISPLAY START ADDR 

554 

FFA4 

• 

• 

9 

CURFKY 

EQU 

SFTKYS-2 

; CURRENT FUNCTION KE i CHAR 

555 

FFA3 

• 

• 

9 

TLINU 

EQU 

CURFKY-1 

; TOP LINE ABSOLUTE ROW NUMBE 

55b 

Ff A1 

• 

• 

9 

LLINt 

EQU 

TLINO-2 

; LAST DISPLAY LINE START ADD 

55 7 

FF9F 

• 

• 

9 

t L X w fc 

EQU 

L Li i N E - 2 

? POINTER Tu LSb PART OF NEXT 

55d 

oooo 

• 

• 

9 

• 

9 



LINE POINTER IN FIRST 

559 

oooo 

• 

• 

9 

9 

9 



LINE OF NORMAL DISPLAY 
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ITEM 

LOC 

561 

0000 

562 

0000 

563 

0000 

564 

FF9E 

565 

FF9D 

566 

FF9C 

567 

FF9B 

568 

FF9A 

569 

FF99 

570 

FF98 

571 

0000 

572 

FF96 

573 

FF94 

574 

FF92 

575 

FF91 

576 

FF90 

577 

FF8F 

578 

CFFF 

579 

OOBO 

580 

FF8D 

581 

FF8B 

582 

0000 

583 

0000 

584 

0000 

585. 

FF8A 

586 

FF89 

587 

FF88 

588 

FF86 

589 

FF85 

590 

0000 

591 

oooo 

592 

0000 

593 

FF84 

594 

FF83 

595 

FF82 

596 

0000 

597 

ffdb 

598 

FFDA 

599 

FFD9 
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.******************** 

; SCRATCH VARIABLES * 

.******************** 

TEMPI EQU FL1NE-1 

TEMP EQU TEMP 1-1 ; TEMPORARY STORAGE 

CHARIN EQU TEMP-1 ;CHARACTER FROM KEYBOARD 

NCHAR EQU CHARIN-1 ; NUMBER OF CHARS TO BE ADDED 

WROWS EQU NCHAR- 1 ;NQ. OF ROWS TO BE AuDED 
NBLKS EQU NROwS-1 ;NO. OF BLOCKS TO BE ADDED 
CHSAV EQU NBLKS- 1 ?SAVE AREA FOR CHAR 
; PRECEDING LINK 

LNKSAV EQU CHSAV-2 ? LINK SAVE AREA 
EOLADR EQU LNKSAV-2 ; ADDR OF LAST EOL 
FPSTBL EQU EULADR-2 ? FIRST BLOCK IN DISPLl 
BLKFIL EQU FRSTBL-1 ; FILL FLAG FOR FNDCHR 


BLKFIL-1 ?FLAG FOR EOLMOV 
F.OLMV-1 ; FILL CHAR SAVE FOR GTBLK 
147777Q ;UPPER LIMIT OF BUFFER 
1300U0Q/256 ;LOWER LIMIT 
FILCHR-2 ;LOW ADDR OF NQN-D1SPLY 
BUFRGN-2 ; H IGH ADDR FOR BUFFER 

; **** ********** ******** ********* ********* 

? STORAGE FOR CHARACTERS TO BE STORED * 

***************************************** 


EOLMV 

i ILCHR 

BFSPCE 

LWBUF 

BUFBGN 

BUFEND 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


BUFF 


.FORMAT CONTROL TO BE ENT ERE 
•NEXT CHAP TO BE DISPLAYED 
; CURRENT CHAR BEING PROCESSE 
; CURRENT TYPE CHECK ROUTINE 
; COLUMN ft STORAGE FOR RC ADDR 


FMTCTL EQU BUFEND-1 

DCHAR EQU FMTCTL- 1 

CHAR EQU DCHAR- 1 

CHKRTN EQU CHAR-2 

TMPCUL EQU CHKRTN-1 

.*************♦**********♦******** 

; STORAGE FOR CURSOR POSITIONING * 

; ************** *********** 

COUNT EQU TMPCOL-1 ; NUMBER OF BYTES 

NMROUL EQU COUNT- 1 ; NUMBER OF LINES 

ROLLCT EQU NMROLL-1 ? ROLL COUNTER 


TO 

TO 


FILL 

ROLL 


NErtCOL EQU FARM 1 
NEWRGW EQU PARM2 
SCRNRW EQU PARM3 


;NEW COLUMN NUMBER 
; NEW ABSOLUTE ROw NUMBER 
; NEW SCREEN ROW SETTING 



13255-90003 Rev AUG-01-76 


II 

II 

II 

ii 

it 

it 

ii 

ii 

ii 

ii 

ii 

==== = 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ll 

ll 

II 

II 

II 

II 

II 

II 

II 

it 

ll 

it 

ii 

ii 

ii 

it 

ii 

ti 

ii 

ii 

it 

ii 

ii 

it 

ti 

n 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

it 

H 

II 

II 

II 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

= ==== 

= x = = = = 

i« 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

it 

H 

ii 

ii 

it 

ii 

ii 


t>0 1 

oooo 

• 

• 

• 

;*********************** 

602 

oooo 

• 

9 

• 

; HORIZONTAL TAR TABLE * 

603 

oooo 

• 

9 

• 

/♦♦♦•f^Ms***************** 

604 

000 A 

• 

9 

• 

HTBLEN KQU 

10 

/ TABLE LENGTH (= 10 X 8) 

605 

FT 7 8 

• 

9 

• 

hT6T6L EQU 

ROLLCT-HTPLEN 

606 

oooo 

• 

9 

• 

************************ 

60 / 

oooo 

• 

9 

• 

? DISPLAY 

SEND STORAGE * 

608 

oooo 

• 

9 

• 

/ *********************** 

609 

FF/7 

« 

9 

• 

CDSPEN Egll 

HT6TBL- 1 

; CURRENT ENHANCEMENT IN 

61 0 

EF76 

• 

9 

• 

ENHOuT F Q U 

CDSPEN-l 

; LAST enhancement OUT 

611 

FF75 

• 

9 

• 

CftLTST EQU 

ENHUUI-1 

/CURRENT ALTERNATE SET GUT 

612 

FT 7 3 

• 

9 

• 

GET ADR EQU 

C ALTST-2 

; CURRENT CHARACTER ADDRESS 

613 

oooo 

• 

9 

• 

;*¥♦************************ 

614 

OOOO 

• 

9 

• 

; FLAGS AND TABLE POINTERS * 

615 

QOuO 

• 

9 

• 

;*************************** 

bib 

FF7 2 

• 

9 

• 

CHRSET EQU 

GET ADR -1 

, ’CURRENT ALTERNATE CHAR SET 

617 

FF71 

• 

9 

• 

KBFCIK EOU 

CHRSET- 1 

; KEYBOARD FUNCTION CODE 

618 

OOOO 

• 

9 

• 

;*************************+*********************** 

6 19 

FF7 0 

• 

• 

• 

MFLGS EOU 

KBFCIK -1 

; BLOCK TRANSFER RENDING FLAG 

620 

oooo 

• 

• 

• 

*********************4**************** ************ 

621 

OlOO 

• 

• 

• 

SDC2 EOU 

10*256 

/ DC 2 PENDING 

622 

0200 

• 

• 

• 

SSTAT EOU 

20*256 

; TERM INAL STATUS PENDING 

62 3 

0400 

* 

• 

• 

SSI A 12 FOU 

40*25b 

; TERMINAL STATUS 2 PENDING 

624 

0800 

• 

• 

• 

SD VST FOU 

10Q*25b 

/DEVICE STATUS PENDING 

625 

1000 

• 

• 

• 

SCRSEN EOU 

200*256 

; CURSOR SENSE PENDING 

626 

2000 

• 

• 

• 

SFCfKY EOU 

400*25o 

; FUNCTION KEY PENDING 

o2 7 

4000 

• 

• 

• 

SEN TER EOU 

1000*256 

; DISPLAY SEND PENDING 

628 

80UQ 

• 

• 

• 

SD V DUN EOU 

2000*256 

; DEVICE DONE PENDING 

629 

oooo 

• 

• 

• 

;******************* 

********************** 

630 

FF6F 

• 

• 

• 

MFLGS2 EOU 

MFLGS- 1 

; M A I N CODE MUDb F LAGS 

o31 

oooo 

• 

• 

• 

;************* **************** ****** ****** 

632 

0001 

9 

♦ 

• 

SOVPEC EOU 

10 

;0EV1Ck, RECORD PENDING 

633 

0002 

• 

• 

• 

SBINkY EOU 

20 

/BINARY RECORD PfciNDT NG 

634 

0004 

9 

• 

• 

KELSNS EQU 

40 

/RELATIVE CURSOR SENSE 

635 

0008 

9 

• 

• 

ESC I NP EOU 

100 

/ESC RECEIVED IN BLOCK MODE 

6 36 

0010 

9 

• 

• 

FRSOOT ECU 

200 

/FIRST SOFT KEY DATA OUT 

637 

0020 

9 

9 

• 

WRPDEL EOU 

400 

/DELETE CHAR w/ WRAP AROUND 

638 

0040 

9 

9 

• 

wRPFLG EoU 

1000 

/LINE wRAP AROUND uCCURRED 

639 

0080 

9 

9 

• 

NWRWST FOU 

2000 

/ NEW AbSULUTE ROW SET 

640 

OOoO 

• 

9 

• 

;*******************♦******************** 

641 

FFbE 

• 

• 

• 

DFLGS EOU 

MFLGS2-1 

/DATA 1RANSFEP FLAGS 

642 

oooo 

• 

• 

• 

;*********************** +**************** 

643 

0001 

• 

• 

• 

SDACOM FOU 

0010 

/DATACGM/KFIYBOARD 

644 

0002 

• 

• 

9 

CWTXFR ECU 

20 

/CUHIINUE BUFFER TO DATA COM 

645 

0004 

• 

• 

9 

NO SEND EOU 

4Q 

/NO DISPLAY DA1A TO SEND 

646 

0008 

• 

• 

9 

SKPTRM EQU 

100 

/SKIP bLUCK TERMINATOR 

647 

0010 

• 

• 

9 

FCTK2D EOU 

200 

/FUNCTION KEY TO DISPLAY 

648 

0040 

• 

• 

9 

KBDLOK EOU 

1000 

; KB LOCKED BY ESCAPE SEQUENC 

649 

008 0 

• 

• 

9 

XBF2DS EOU 

2000 

/I/O BUFFER TO DISPLAY MODE 
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ITEM 

LOC 

651 

0000 

652 

FE6D 

653 

0000 

654 

ffff 

655 

oooo 

656 

0001 

657 

0000 

658 

FFt>C 

659 

0000 

660 

0020 

661 

OOFF 

662 

0000 

t»6 3 

FF6B 

664 

FF6 A 

66 5 

FF69 

666 

FF68 

667 

FF67 

668 

0000 

669 

oooo 

670 

oooo 

671 

FFD5 

672 

FFDE 

67 3 

FFD7 
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; * * * ******* * 
TPMFCT EQU 
• ** ********* 
STPXFP EQU 
DELTRM EQU 
IGNTPM EQU 
• *********** 
SPOWL EQU 

; *********** 

SPOWOM EQU 
SPOWUF EQU 

; *********** 
MLKRUW EQU 
MLKFLG EQU 
LCHAR EQU 
TCHAP EQU 
CPAFLG EQU 


; ***** ****** 

; POINTERS F 

J *** ******** 

LADDR F.QU 
LDATA EQU 
LChKSM F.QU 


* * ******* 
DFLGS-1 
** ******* 
-1 
0 
1 

********* 

TRMFCT-1 

********* 

40Q 

377Q 

********* 
SPOWL-1 
MLKFOW-l 
MLKFLG-1 
LCHAR-1 
f CHAR- 1 
********* 
OR BINARY 
********* 
PARMt) 
IODATA 
PARM5 


************************** 

; NON -DISPLAYING TERMINATOR 
********************** **** 

; TERMINATE TRANSFER 
; DELETE TERMINATOR 
; IGNORE TERMINATOR 
********************** 

; SPACE OVERWRITE LATCH 
********************** 

; SPOW LATCH ON 
;SPOW LATCH OFF 
***************************** 
; MEMORY LOCK ROW 
; MEMUB l LOCK FLAG 
;LAST CHARACTER PROCESSED 
;CURRENT TEST PATTERN CHAR 
;CURSOR ADVANCE FLAG 
********* 

LOADER * 

********* 

; BYTE ADDRESS PARAMETER 
; INPUT DATA ACCUMULATOR 
; 16-BIT CHECKSUM 
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675 

0000 

• 

• 

• 

?v*v*v*v*v*v*v*v*v*v*v*v*v*v*v*v*v*v 

676 

0000 

• 

• 

• 

1 


677 

0000 

• 

• 

• 

; CTU/IG EQUATES 

- 4/11/76 - 2255 HOURS 

678 

00 00 

9 

• 

• 

i 


679 

0000 

9 

• 

• 

? TAPE DISTANCE MEASUREMENT 

680 

oooo 

• 

• 

• 

9 — — 


681 

oooo 

• 

• 

• 

9 


682 

oooo 

• 

• 

• 

J AS OF 3/1/75, .017125” OF TAPE MOTION IS 

683 

oooo 

• 

• 

• 

? EQUIVALENT TO 1 

TACH EDGE. IHE COUNT IS 

684 

oooo 

• 

• 

• 

; IN ERROR WmEN STARTING OR STOPPING 81 

685 

oooo 

• 

• 

• 

; 1 TACH FUGfc (STOPPING IN A GAP MAY CAUSF 

686 

0000 

• 

• 

• 

; AN ERROR OF TWO 

TACH EDGES). 

68 7 

oooo 

• 

• 

• 

9 


686 

oooo 

• 

• 

• 

.******************************* 

689 

FF66 

• 

• 

• 

CTSTAT EQU CRAELG 

-1 ;CTU STATUS 

690 

oooo 

• 

• 

• 

;******************************* 

691 

00 8 0 

• 

• 

• 

TKI EQU 2000 

?TACil INTERRUPT 

692 

0040 

• 

9 

• 

RDY EQU luOQ 

; BYTE RFADY 

693 

0020 

• 

9 

• 

GAP EQU 400 


694 

0010 

• 

9 

• 

HOL EylJ 20Q 

;TAPE hOLF 

695 

0008 

9 

9 

• 

1 AK EQU 100 

; TACH (5b. 4 EDGES/ IN) 

696 

0004 

• 

9 

* 

RIP EqU 4Q 

; record in progress 

697 

0002 

• 

9 

• 

CIR EQU 20 

; RIGHT CARTRIDGE INSERTED 

698 

0001 

• 

9 

• 

CIL EQU 10 

; LEFT CARTRIDGE INSERTED 

699 

0000 

9 

9 

• 

J************* ********* ********** 

700 

FF65 

9 

9 

• 

10FLGS EQU CTSTAT 

-1 ,* I/O FLAGS 1 

701 

oooo 

9 

9 

• 

.******************************** 

702 

0001 

9 

9 

• 

RDWOwT EQU 10 

; READ AlTHuUI WAIT MODE 

703 

0002 

9 

9 

• 

UShEAD EQU 20 

; READ KEY INITIATED READ 

704 

0004 

9 

9 

• 

FILRED EQU 4Q 

; FILE READ 

705 

000 8 

9 

9 

• 

RECRaD FQU 10Q 

; RECORD DISPLAY AND REWIND 

706 

oooo 

9 

9 

• 

• 

9 

OLD OUTPUT C T U (LOGGING) 

707 

0010 

9 

9 

• 

REC INI EQU 20Q 

; START ” RECORD” MODE 

708 

0020 

9 

9 

• 

RECPGE EQU 40Q 

; FILE COPY FROM DISPLAY - 

7 09 

oooo 

9 

9 

• 

? 

INHIBIT ROLL UP 

710 

0080 

9 

9 

• 

VERIFY EQU 2000 

;”CTU2BF” PERFORMS VERIFY 

711 

oooo 

9 

9 

• 

.***+*******♦******************** 

712 

FF64 

9 

9 

9 

I0FLG2 FQU 10FLGS 

-1 ;I/0 FLAGS 2 

713 

oooo 


9 

9 

.******************************** 

714 

0001 

9 

9 

9 

EXTH2D EQU 10 

? EXTERNAL BUFFER TO DATA COM 

715 

0020 

• 

9 

9 

XDS2BF EQU 40Q 

; TRANSFER DISPLAY TO BUFFER 

716 

0040 

9 

9 

9 

PSPB1M EQU 1 OOQ 

; BOTTOM OF DISPLAY PEACHED 

717 

0080 

• 

9 

9 

EMDDSP EQU 2 OOQ 

; END OE DISPLAY REACHED 
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ITEM 

LOC 

719 

0000 

7 20 

FF63 

721 

oooo 

7 22 

0001 

7 23 

0002 

7 24 

0004 

725 

0008 

7 26 

0010 

727 

0020 

728 

0040 

729 

0080 

730 

OOuO 

731 

FFb2 

732 

0000 

733 

0001 

734 

0002 

735 

0004 

736 

0008 

737 

0010 

738 

0020 

739 

0040 

740 

0000 

741 

FFbl 

742 

oooo 

743 

FF5F 

744 

oooo 

745 

405F 

746 

oooo 

7 47 

FF5E 

748 

FF5D 

7 49 

FF56 

750 

oooo 

751 

FF55 

752 

OOOO 

753 

0001 

754 

0002 

755 

0004 

756 

0008 

757 

0010 

758 

0020 

759 

0040 

760 

0080 

761 

oooo 

762 

oooo 

763 

oooo 

764 

ooul 

765 

0002 

766 

0004 

767 

0008 

768 

0010 

769 

0020 

770 

0080 
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;******************************** 

UN 1 T 0 EQU 

10 FLG 2-1 

; UNIT STATUS 

j*********** ********************* 

LPM EQU 

IQ 

; TAPE AT OR BEFORE LOAD PDiN 

LSTFWD EQU 

20 

? TAPE LAST MOVED FOP WARD 

FPS EQU 

4Q 

; TAPE WRITE PROTEC I ED 

CMDEXC EgU 

100 

; SUCCESSFUL COMMAND EXECUTIO 

DBLHOL EQU 

2 00 

; DOUbLE HOLE FOUND 

BOT EQU 

400 

; TAPE PAST BOT HOLES 

LP EQU 

1000 

; TAPE PAST LP HOLE 

£W EQU 

2000 

; TAPE PAST Ew HOLE 

.********** 

444 4 4444444444 4 444444444 444444444 

CNTRLO FQU 

UNITO -1 

; DATA TRANSFER FLAGS: * 

. * 4 * 44444444 * 444444*44444*4*4 + 4 444444 4444444 

EOF EQU 

10 

? END OF FILE 

EVD EQU 

20 

; END OF VALID DATA 

HRDF.RR FQU 

4 Q 

; HARD ERROR 

SFTERP EQU 

1 00 

; SOFT ERROR 

HRDFbl EQU 

2o0 

; INTERRUPT ERROR FLAG 

VvRTERR EQU 

400 

; WRITE ERROR 

DATA 1 R EQU 

1000 

; DATA RECORDED 


RELTAK EQU CNXRLO-1 ;GAP LENGTH COUNTER 

ABSTAK EQU RFLTAK-2 ; ABSOLUTE TACH COUNTER 

STRTAK EQU 401 370 ; STARTING VALUE ******* 

FILNUM EQU ABSTAK- 1 ; CURRENT FILE NUMBER 

SFTCNT EQU FILNUM-1 ;SOFT ERRORS PER PASS 
OTHER Eg U SfTCNT-7 ;S10RAGF FOR UNIT NOT SEL. 

. ***** 4***4 *** + * 4 . + ** ****** 4 ***************** 

CMND EQU OTHER'? 1 ;CURRENT CTU COMMANDS^* 


RUN 

EQU 

IQ 

; MOVE TAPE 

FWD 

EQU 

2Q 

; FORWARD 

FST 

EQU 

4Q 

; FAST 

RFC 

EQU 

100 

; RECORD 

USL 

EQU 

2 og 

; SELECT LEFT UNIT 

GEN 

EQU 

400 

? GAP GENERATE 

ANR 

EQU 

1000 

; LIGHT FOR RIGHT UNIT 

ANL 

EQU 

2000 

; LIGHT FOR LEFT UNIT 

******* 

t 4 4444**4** ******** ***************** 

; I NPDEV , 

OUTDEV , 

BXSTAT - I/O DEVICES * 

.4444**44**4 ******* 4 * 4 *** 4 * *************** 

LFTCTU 

EQU 

IQ 

; LEFT CARTRIDGE TAPE UNI 

RGTC1U 

EQU 

20 

; RIGHT CARTRIDGE TAPE UN. 

DISPLY 

EQU 

40 

; DISPLAY 

PR I NTH 

EQU 

100 

; PRINTER 

ALTIO 

EQU 

200 

; ALTERNATE I/O 

DATCOM 

EQU 

400 

? DATA COMM 

BUFBSY 

EQU 

2000 

; BUF HELD BY UNSPECIFIED 
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ITEM 

LOC 

772 

FF54 

77 3 

FF53 

774 

FF52 

775 

0020 

77b 

FF5 1 

77 7 

FF50 

7 / 8 

0000 

7 79 

0000 

7 80 

0000 

781 

FF4F 

782 

0000 

783 

oooo 

784 

FF4E 

785 

F F 4 D 

786 

FF4C 

787 

FF4B 

7 88 

FF4A 

789 

FF49 

790 

FF 48 

791 

FF47 

792 

FF46 

793 

FF3D 

794 

00 3D 

795 

FF3C 

79o 

F F 3B 

797 

oooo 

798 

OOuO 

799 

oooo 

800 

ffdb 

801 

FFDA 

802 

FFD9 

803 

ffdb 

804 

FFD7 

805 

FFD5 


OBJECT COPE 



SOURCE STATEMENTS ^ 

SCNCNT EQU CMwD-1 ;NUM. UF KBSCAN BEK CTU SCAN 

CTBLNK EQU SCNCNT-1 ;BLINK MASK FOR EJECT BIGHTS 

CTtJLIM EQU CTBLNK- 1 ; BLINK TIMER 

CTBDLY EQU 40Q ? B L I N K DELAY 

HOLCNT EQU CTBLTM-1 ; HOLE COUNTER 

IPSTAL EQU HOLCNT-1 ? TAPfc. STALL COUNTER 
• *♦♦+***♦♦ **+*+* 

; I/O V ARIBLES * 

10CERP EQU TPSTAL-1 Jl/O ERROR FLAG 

; 0 = NO ERROR 

-1 = ERROR OCCURRED 

INPDEV EQU IOCERR-1 ; CURRENT INPUT DEVICE 
OUTDEV EyU INPuEV-1 ; CURRENT OUTPUT DEVICE 
IOC DPT EQU OUTDEV- 1 JPEVICE FLAG POINTER 
iOSTA3 EyU iOCDPT-1 ;DEVICE STATUS BYTE 3. 

I0STA2 EQU I0STA3-1 ; DEVICE STATUS BYTE 2 

10STA1 EyU I0STA2-1 ;DEViCE STATUS BYTE i 

IOSTAO EyU IOSTAl-1 ;!>EVICE NUMBER FOR STATUS 
XFRL1 M EyU IOSTAO- 1 ; TRANSFER LIMIT 

CMPLIM EyU XFRLIM-l jCOMPAKF LIMIT 

B2DBUF EQU CMPLXM-9 ;BIN TO DECIMAL CONV BUFFER 
B2DBFL EUU B2DBUF-BASE JLSB PART OF "B2D6UF" 
62DPIP EQU B2DBUF- 1 ; B2DBUE "GET” POINTER CISB) 

B2DEND EyU B 2 DPTR-I ; B2PBUF END POINTER 

• I/O C0N1R0L VARIABLES 

• 

IOC DEV EQU PARM1 ; DEVICE FLAG 

iOCOuT EQU PARM2 ; OUTPUT DEVICE ACCUMULATOR 

IOCINP EQU PARM3 ; T NPuT DEVICE ACCUMULATOR 

IOCTYP EQU PAR M 4 ; COMMAND MODIFIER FLAG 

IOCMND EQU P ARMS ;COMmAnP TYPE FLAG 

IOCCNT EQU P ARMS ;PATA COUNT (2 BYTES) 
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II 
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ii 

ii 

ii 

ii 

ii 


ii 

it 

it 

ii 

ii 

» 

ii 

II 

ii 

ii 

it 

it 

it 

it 

II 

H 

it 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

H 

ii 

tl 
i it 

i it 

ii 

n 

ll 

ii 

ii 

ii 

ti 

ii 

it 

ti 

ii 

ii 

ii 

ll 

H 

II 

II 

II 

II 

II 

II 

II 

II 

tl 

II 

II 

8u7 

BOB 

0000 

oooo 

• 

• 

• 

• 

• 

• 

• 

9 

} I/O BUFFER INFORMATION STORAGE 

809 

BlO 

0000 
FT 3 A 

• 

• 

• 

• 

• 

• 

• 

9 

B1STAT EQU 

B2DEND-1 

? STATUS uF FIRST PUFFFR 

811 

EF39 

• 

• 

• 

bitype: Eyu 

61STAT-1 

;type oi=norm, o=eop, i=evp 

812 

FF38 

• 

• 

• 

B1LEN EOU 

B1 TYPE- 1 

; LENGTH OF RECORD 

B13 

FF37 

• 

• 

• 

B2STAT EyU 

B1LEN-1 

; STATUS OF SECOND BUFFER 

814 

FF 36 

• 

• 

• 

B2 TYPE EQU 

B2STAT-1 

;T¥PE (-I=nOkiM, u=EOF, 1=KVP 

815 

FF35 

• 

• 

• 

B2LEN EyU 

B2T YPE-1 

; LENGTH OF RECORD 

Bit) 

817 

oooo 

0000 

• 

• 

♦ 

• 

• 

• 

9 

; storage 

FOR CARTRIDGE TAPE INTERRUPT ROUTINES 

BIB 
B 1 9 

oooo 

FF3 3 

• 

• 

• 

• 

• 

+ 

« 

9 

CTIADR EQU 

b 2LEN-2 

; ADDRESS (HAS SEVERAL USES ) 

820 

FF 3 1 

• 

• 

• 

CTISPT EyiJ 

CTIAuR-2 

/PUINTER TO BUFFER STATUS 

8 21 

FF2F 

• 

• 

• 

CT1BPT EQU 

CTISPT-2 

? POINTER TO BUFFER 

822 

FF2C 

• 

• 

• 

CT1CNT EQU 

CTIBPT-3 

; general counters 

823 

FF2B 

• 

• 

• 

CTITRL EQU 

CTICNT-1 

/RE-READ COUNTER, HOLF CnTR 

824 

FF2A 

• 

• 

• 

CT1CSM EQU 

CTITRL- 1 

/CHECKSUM COUNTER 

8 25 

FF29 

• 

• 

• 

CTISIA EQU 

CTICSM-1 

/COMMAND SOURCE FLAG 

826 

827 

oooo 

oooo 

• 

• 

• 

• 

• 

• 

• 

9 

f STORAGE 

FUR READ 

and RECORD 

828 

829 

oooo 

FF 27 

• 

• 

• 

• 

• 

• 

• 

9 

NXTFED EQU 

CTISTA-2 

/PTR INTO BUF FOR NEXT READ 

8 30 

FF25 

• 

• 

• 

LSTRED EQU 

NXTRED-2 

/PTR INTO BUF FOR RFAD PEPEA 

831 

FF24 

• 

• 

• 

GNPCTU Eyu 

dSTRED-1 

/SWAP CTU IN LUGGING MODE 

832 

oooo 

• 

• 

• 

• 

9 


-i = Swap enabled 

8 33 

oooo 



• 

m 

9 


0 = DISABjliED 

834 

FF2 3 

• 

• 

• 

SAVINP EQU 

SWPCTU-1 

/ " 1NPDEV" SAVE FUR LOCAL RCR 

835 

FF22 

• 

• 

• 

SAVOuT Eyu 

SAVINP-1 

/SAVE uUTDEV DUPING LCL READ 

836 

837 

oooo 

oooo 

• 

• 

• 

• 

• 

• 

« 

9 

; DATA FOR 

FORMAT DISPLAY STORAGE 

838 

839 

oooo 

FF21 

• 

• 

• 

• 

• 

• 

• 

9 

ENDCUL EQU 

SAVOUT-1 

/ENDING COLUMN AND ROW FOR 

840 

FF20 

• 

• 

• 

ENDRUw EQU 

ENDCOL-1 

/PREV NON-pRGTECTED FIELD 
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II 

II 

II 
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II 

ii 

ii 

ii 

ii 

ii 

ii 



ii 

u 

ii 

ii 

ii 

ii 

II 

II 

II 

II 

ii 

II 

it 

II 

il 

II 

tl 

II 

ti 

ii 

ii 

ti 

ii 

it 

it 

ii 

ti 

H 

ss:r==ss;:====ssss====s==sss 

ITEM 

LOG 

OBJECT 

CODE 

SOURCE STATE 

MFNTS 

PAGE. 2 3 


ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ti 

it 

ii 

it 

:s 


ii 

n 

ii 

n 

ii 

ii 

it 

it 

ii 

it 

ii 

ii 

ii 

ii 

H 

II 

il 

ii 

it 

It 

II 

il 

ii 

ii 

it 

ii 

ti 

it 

n 

it 

ti 

ii 

ii 

ii 

it 

ti 

ii 

ii 

it 

ii 

ii 

it 

n 

ii 

n 

ii 

ti 

n 

ii 

ii 

842 

oooo 

« 

• 

• 

• 

9 



843 

Q 0 O 0 

• 

m 

• 

; EXTENDED 

MAIN CODE 

RAM AREA 

844 

0000 

* 

• 

• 




845 

FE80 

• 

• 

• 

XTRASP EQU 

177200Q 


846 

oooo 

m 

« 

• 

;*************** ***44*4*****444*4**4** 4*4 

847 

FE/F 

• 

• 

• 

DEVFLG EQIJ 

XTRASP” 1 

; DEVICE PRESENT FLAG 

848 

oooo 

• 

• 

• 

.**♦****4444444*4444444444444444444444444 

849 

0080 

• 

• 

• 

CTUIN EQU 

2000 

?CTL CODE PRESENT 

850 

0040 

• 

• 

• 

ALT IN EQU 

1000 

; ALTERNATE I/O PRESENT 

851 

oooo 

• 

* 

• 

.*4************+*4444 


852 

OOOO 

• 

• 

• 

? PRINTER VARIABLES ♦ 


853 

oooo 

• 

• 

• 

. 4 **** 4 * 444444444*444 


854 

F E 7 D 

• 

• 

• 

PTR 8 BG EQU 

DE v FLG-2 

; START lit PRINTER BUFFER 

855 

FF7B 

• 

• 

« 

PTHSPT EQU 

PTRBBG-2 

; LOAD POINTER 

856 

FE79 

• 

• 

• 

PTR 6 PT EQU 

PTRSPT-2 

; UNLOAD POINTER 

857 

F E 7 8 

• 

• 

• 

PTRABT Eyll 

PTRBPT-1 

;P* INTER ERROR FLAG 

85 8 

oooo 

• 

• 

• 

• 

9 


= 0, NO PklNT&P ERROR 

859 

oooo 

• 

• 

• 

• 

9 


s -1 , PRINT ERROR OCCURRED 

860 

FE7 7 

• 

• 

0 

PTKFLG EQU 

PThABT-1 

? PR INTER txpe flag 

861 

oooo 

• 

• 

• 

9 


=0# NO PRINTER 

862 

oooo 

• 

• 

• 

* 

9 


= 1, PARALLEL INTERFACE 

863 

oooo 

• 

• 

• 

• 

9 


= 2 , RS-232 INI FRF ACE 
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:: 

:ssss: 

ssssxsss 

ssss 

it 

ii 

H 

II 

M 

II 

II 

II 

II 

II 

H 

II 

M 

li 

II 

it 

it 

ii 

ii 

it 

li 

if 

ii 

ii 

it 

li 

ti 

il 

li 

il 

il 

il 

il 

it 

it 

it 

it 

ll 

II 

ITEM 

LOG 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 24 

S S S _ 25 

it 

ii 

it 

ii 

it 

ii 

ii 

ii 



it 

ii 

it 

ii 

ii 

it 


ssss 


ssssssssssssssssssssssssssss 

865 

0000 

• 

• 

• 

;*jM*^*************************** 

866 

0000 

• 

• 

• 

; ENTRY 

VECTORS TO I/O 

ROUTINES * 

867 

oooo 

• 

• 

• 


868 

oooo 

• 

• 

• 

• 

9 




869 

oooo 

• 

• 

• 

; KEYBOARD 

INITIATED 

FUNCTIONS 

8 70 

oooo 

• 

• 

• 

• 

9 




871 

2800 

• 

• 

• 

100RG 

EQU 

240000 

; START OF I/O CODE 

872 

2802 

• 

• 

• 

IOCKEY 

EQU 

IOURG+2 

?I/0 CONTROL KEY 

873 

2805 ’ 

• 

• 

• 

REDKEY 

equ 

IOCKEY+3 

? READ KEY 

874 

2808 

• 

• 

• 

CTLRED 

EwU 

REDKEY+3 

; CONTROL READ KEY 

875 

280B 

• 

• 

• 

RECKEY 

egu 

CTLRED+ 3 

; RECORD KEY 

876 

28 0E 

• 

• 

• 

SELKEY 

Egu 

RECKEY ti 

; SELECT KEY 

877 

2811 

• 

• 

• 

TSTCTU 

Egu 

SELKEY+3 

;CTU SELF-TEST 

878 

2814 

• 

• 

• 

CONDTN 

Egu 

TSTCTU +3 

; CONDI 1 1 ON CARTRIDGE TAPES 

879 

2817 


• 

• 

RSTCTU 

Egu 

CONDTN+3 

? SOFT RESET 1* OR CTO 

880 

oooo 

• 

« 

• 

• 

9 




881 

oooo 

• 

• 

• 

? EXTERNALLY INITIATED FUNCTIONS 

882 

oooo 

• 

• 

• 

9 




8 83 

28 1 A 

• 

# 

• 

ICJCNTL 

Egu 

RSTC TUt 3 

;I/0 CONTROL ESCAPE SEQUENCE 

884 

28 ID 

• 

• 

• 

IOSTGO 

EQU 

I0CNTLt3 

; SEND DEVICE STATUS 

885 

2820 

• 

• 

• 

IODNGO 

Egu 

IOSTGO+3 

; SEND COMPLETION CODE 

886 

2823 

• 

• 

• 

10RDG0 

Fgu 

10DNGO+3 

; SEND I/O RECORD 

887 

2826 

• 

• 

• 

RCRDGO 

Egu 

10RDG0 + 3 

; START REMOTE RECORD FUNCTIO 

888 

2829 

• 

• 

• 

BNRYGO 

Egu 

RCRDGO+3 

; SEND BINARY DATA 

889 

28 2C 

• 

• 

• 

CTDCDP 

Egu 

BNRYGO+3 

; SEND BINARY FILE 

890 

oooo 

• 

• 

• 

;******************** 


891 

OOuO 

• 

• 

• 

; INTERNAL 

ROUTINES * 


892 

oooo 

• 

• 

• 

; **** ******** ******** 


893 

282F 

• 

• 

• 

CTMON 

Egu 

CTDCDP+3 

; MONITOR CARTRIDGE DRIVES 

894 

2832 

• 

• 

• 

PTTPLN 

equ 

CTMON+3 

; PUT TOP LINE ONTO I/O DEV'S 

895 

2835 

• 

• 

« 

DOOCTI 

Egu 

PTTPLN+3 

; INITIAL CTIJ INTERRUPT VEC TO 

896 

2837 

• 

• 

* 

RDABRT 

Egu 

DOOCTI +2 

; ABORT USER INITIATED READ 

897 

28 3 A 

• 


• 

BSYCliK 

equ 

RDABRT+3 

; WAIT UNTIL TAPE I/O DONE 

898 

28 3D 

• 

• 

• 

CTINIR 

Egu 

BSYCHK+3 

; C T U INTERRUPT ROUTINE 
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ITEM 

LGC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGF 25 

900 

0000 


• 

• 

;******************** 

901 

oooo 

• 

• 

• 

; TERMINAL START-UP * 

902 

0000 

• 

• 

• 

;♦****♦**♦ *********** 

903 

0000 

• 

• 

• 

ORG OQ 

904 

oooo 

• 

• 

• 

BELT N EQU $ 

906 

oooo 

50 

• 

• 

DB VERSN ?POM PRESENT FLAGS 

906 

0 o o 1 

00 

• 

• 

DB BEGIN/256 ? (= MOV D,B? NUPJ 

90 / 

0002 

F 3 

• 

• 

DI ; DISABLE INTERRUPTS 

908 

000 3 

3E 

83 

9 

M VI A f SETPOM + TMIEN + TMRUN 

909 

0005 

C 3 

B4 

00 

JMP GO ; GO TO START UP ROUTINE 

910 

0008 

. 

• 

• 

;***************************** 

911 

0008 

• 

• 

• 

; FIRMWARE INVOKED INTERRUPT * 

912 

0008 

• 

• 

• 

;***************************** 

913 

0008 

E9 

• 

9 

PC HL ; USE AS PCHL SUBROUTINE CALL 

914 

0009 

9 

• 

9 

ORG BE GIN +200 

915 

0010 

• 

• 

9 

*************************** 

9 1 o 

0010 

9 

• 

9 

; TOP PLANE INTERRUPT 206 * 

917 

0010 

9 

• 

• 

*************************** 

918 

0010 

F5 

• 

• 

PUSH PSw ; S A V E A-REGISTER ArtP FLAGS 

919 

0011 

R7 

• 

• 

ORA A ; CLEAR C-FLAG 

920 

0012 

3E 

32 

• 

MVI A, TWO ;SET INTERRUPT CODE 

921 

0014 

C3 

EB 

15 

JMP INfRPT ; HANDLE UNKNOWN INTERRUPTS 

922 

0017 

• 

• 

• 

ORG BEGIN+JOQ 

923 

0018 

• 

• 

• 

;****************** 

924 

0018 

• 

• 

9 

; TIMER INTERRUPT * 

925 

0018 

• 

• 

9 

;********* 3 ^ ******** 

926 

0018 

F5 

• 

9 

PUSH PSw \ SAVE A-REGISTER , FLAGS 

92 7 

0019 

Cb 

• 

9 

PUSH B ; AND REGISTER B AND C 

928 

001 A 

3E 

33 

9 

MV1 A f THREE ; SET INTERRUPT CODE 

929 

ooic 

C 3 

A4 

07 

JMP IMINTR ^CONTINUE TIMER ROUTINE 

930 

00 IF 

• 

• 

• 

ORG BEG I N + 40 v 

931 

0020 

• 

• 

• 

*********************** 

932 

0020 

• 

• 

• 

; DATA COMM INTERRUPT + 

933 

0020 

• 

* 

* 

********** 3|l ************ 

934 

0020 

F5 

• 

9 

PU5H PSW ;SAVE A-REGISTER AND FLAGS 

935 

0021 

3E 

34 

9 

MVI A f FOUR ;SET INTERRUPT CODE 

936 

00/3 

C 3 

34 

12 

JMP DCMTNT fCONllNUE INTERRUPT PROCESS 

937 

0026 

• 

• 

• 

ORG BEGIN+50Q 

938 

0028 

• 

• 

• 

************************ 

939 

0028 

• 

• 

• 

; I/O DEVICE: INTERRUPT * 

940 

0028 

• 

• 

• 

********* *:|3 ************* 

941 

0028 

F5 

• 

• 

PUSH PS* ? SAVE A-REG, STATUS 

942 

0029 

f;5 

• 

• 

PUSH H ; A ND H , L 

943 

002 A 

3E 

35 

• 

MVI A , E T V E ;SET INTERRUPT CODE 

944 

002C 

C3 

AD 

15 

JMP IOINTR JCONTINUE I/O ROUTINE 

945 

002F 

• 

• 

• 

ORG BEGIN+600 
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ITEM LGC OBJECT CODE 

947 0030 

94 8 0030 

949 0030 

950 0030 E5 

951 0031 B7 , 

952 0032 3E 36 

95 3 00 3 4 C 3 EB 15 

954 0037 

955 0038 • • • 

95o 0038 

957 0038 

958 0038 F5 . 

959 0039 B7 

9b0 003 A 3E 37 

961 003C C 3 EB 15 

962 003F 


SOURCE STATEMENTS 


RACE 26 


************* ******* ******* 

; TOE PLANE INTERRUPT oOb * 

ft************************* 

PUSH PS* ;s AVE A-RbGl STEP AND FLAGS 

Oka a ? clear the c-flag 

Mv I A, SIX ; SET INTERRUPT CODE 

JMP INTRPT ; HANDLE UNKNOWN IN TERR IJP IS 

QhG b E G I U + 7 0 y 

;***♦****♦************** 

; TEST POINT INTERRUPT * 

PUSH PS w ;SAVE A-RFGISTER AND FLAGS 

ORA A ; CLEAR THE C-ElAG 

MV I A, SEVEN ; St 1 INTERRUPT CODE 

JMP TMTRPI ; HANDLE UNKNOWN INTERRUPTS 

ORG BEGIN* 100Q 
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II 
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ii 

ii 

M 

ii 

ii 

ii 






ITEM 

LQC 

object 

CODE 

SOURCE; STATEMENTS 

PAGE 27 

964 

0040 

• 

• 

• 

* ***** ********f4rf ********** ****** 

965 

0040 

• 

• 

• 

; VECTORS TO MAIM CODE 

ROUTINES 4 

966 

0040 

• 

# 

• 

********************************* 

967 

0040 

C3 

DA 

tc 

ZDSPMSS JMP 

USPMSG 

DISPLAY MESSAGE 

968 

0043 

C3 

OE 

ID 

JKP 

RSTDSP 

restore: normal display 

969 

0046 

C3 

62 

12 

JMP 

DC NIJM 

ACCUMULATE DIGIT AMD SIGN 

970 

0049 

C 3 

So 

12 

JMP 

DCPLUS 

; FUR PARAMETERIZED ESCAPE 

971 

004C 

C3 

8B 

12 

JMP 

DC M N U $ 

; SEQUENCES 

97 2 

004F 

C 3 

9b 

04 

JMP 

ESC END ; 

TERMINATE: ESCAPE SEQUENCE 

97 3 

0052 

C 3 

17 

10 

JMP 

CHKLIM 


974 

0055 

C 3 

70 

10 

JMP 

CL0LXF 


975 

0058 

C 3 

CA 

16 

JMP 

S8LXF0 


976 

0058 

C 3 

CD 

16 

JMP 

SBLXFA 

KEYBOARD INITIATED Bl-K X.FR 

97 7 

005E 

C 3 

63 

1 7 

JMP 

STRTHU 

SIART BLOCK RECORD 

97 8 

0061 

C 3 

27 

ID 

JMP 

CUR PH 

HOME CURSOR (-XMIT ONLY) 

979 

0064 

C 3 

07 

11 

JMP 

CUKPHO 

CURSOR HOME DOWN 

980 

0067 

C3 

OA 

15 

JMP 

E RECNT 

CHECK NUMBER OF FREE BLOCKS 

981 

006 A 

C 3 

13 

06 

JMP 

PT6LK. 

RELEASE BLOCKS FROM DISPLAY 

982 

006D 

C 3 

3C 

1C 

JMP 

CLEARL 

CLEAR LINE 

98 3 

0070 

C 3 

8F 

10 

JMP 

CLEARS 

CLEAR DISPLAY FROM CURSOR 

98 4 

0073 

C 3 

FA 

14 

JMP 

FNDTB2 

SET BIT N (b-REG = N ) 

985 

00/6 

C 3 

ID 

12 

JMP 

SD TERM 

SEND TERMINATORS 

98b 

00/9 

C 3 

F6 

lb 

JMP 

SDTRM1 

SEND TERMINATOR ONLY 

987 

007C 

C 3 

Cl 

17 

JMP 

X PUT DC 

TRANSMIT CHARACTER IN A-REG 

98 8 

00 7 F 

C 3 

8C 

OD 

JMP 

TRMT3T 

TERMINAL SELF-TEST 

989 

0082 

C 3 

30 

03 

JMP 

CHIN10 

EXECUTE CHARACTER FUNCTION 

990 

0085 

C 3 

93 

25 

JMP 

UMiTDO 

INI I FOR DISPLAY GET 

991 

0088 

C 3 

2C 

2 4 

JMP 

GETDSP 

GET DISPLAY BYTE 

992 

Q 08 B 

C 3 

6F 

OA 

JMP 

LNFEEO 

no line feed 

993 

008F 

C 3 

58 

23 

JMP 

EXPAND 

EXPAND DISPLAY CONTROL CHAR 

994 

0091 

C 3 

87 

00 

JMP 

N X TC HR 

GET NEXT DISPLAY CHARACTER 

995 

0094 

C3 

FC 

04 

JMP 

GETDCM 

PROCESS DATA COMM INPUT 

99b 

0097 

C 3 

FA 

OA 

JMP 

MLKSCO 

LOCATE FIRST UNLOCKED RON 

997 

009 A 

C 3 

09 

OA 

JMP 

MLKOFO 

TURN OFF MEMORY LOCK 

998 

009D 

C 3 

54 

12 

JMP 

HANGUO 

HANG TERMINAL ON FATAL ERRO 

999 

00 AO 

27 

OF 

• 

Da 

B UK MSG 

buffer overflow message 

1000 

00A2 

C 3 

99 

12 

JMP 

DC TEST 

DATA COMM SELF-TEST 

1001 

00A5 

C 3 

93 

15 

JMP 

IORMGO 

EXECUTE CODE FROM OPTION RO 

1002 

00A8 

C3 

2E 

08 

JMP 

BN2DEC 

CONVERT BINARY 10 DECIMAL 

1003 

OOAP 

C 3 

ID 

08 

JMP 

BN 2 DEO 

CONVERT SINGLE BYTE TO DEC 

1004 

OOAE 

C3 

A4 

Ob 

JMP 

RCADRA 

LOCATE CURSOR LOCATION 

1005 

GOBI 

C 3 

59 

10 

JMP 

GTMODE 

CHECK FOR PAGE MODE 
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ITEM 

LGC 

1007 

00B4 

1008 

00B4 

1009 

00B4 

1010 

00B4 

1011 

0064 

1012 

0066 

1013 

00B9 

1014 

OOBC 

1015 

OOBF 

1016 

00C1 

1017 

00C1 

1018 

00C4 

1019 

00C 4 

1020 

0OC7 

1021 

00C9 

1022 

OOCC 

1023 

OOCF 

1024 

OODO 

1025 

00D3 

1026 

0005 

1027 

00U5 

1028 

0OD8 

1029 

0008 

1030 

CODA 

1031 

OODA 

1032 

OODA 

1033 

OODA 

1034 

OODA 

1035 

OODD 

1036 

QODF 

1037 

00E2 

lu38 

Q0E4 

1039 

00E7 

1040 

OOEA 

1041 

00 ED 

1042 

OOFO 

1043 

00F1 


Rev AUG-01-76 

OBJECT CODE SOURCE STATEMENTS 


PAGF 28 


• 

• 

• 

• 

• 

• 

• 

• 

D3 

70 

32 

F5 

31 

60 

3 A 

CD 

FE 

C 3 

C2 

F 4 

• 

• 

3A 

F8 

Eo 

04 

C2 

F 4 

21 

DO 

B6 

« 

CA 

D8 

FE 

32 

• 

• 

C2 

F 4 

• 

e 

36 

32 

• 

• 

• 

• 

• 

• 

• 

• 

32 

6E 

3E 

07 

C n 

r>g 

BE 

02 

CD 

4D 

21 

17 

CD 

93 

CD 

OE 

FB 

• 

C 3 

20 


- 7 ************************************* 

; TERMINAL RESET - START UP TERMINAL * 


******************** 


• 

GO EQU 

$ 

• 

OUT 

PROCSR 

FF 

STA 

PRCCTL 

91 

LX I 

SP t STACK 

FF 

LDA 

ECONTF 

• 

CPI 

JMP 


;******************** 

00 

JNZ 

INIT 


;******************** 

FF 

LDA 

CMFLGS 

• 

AN I 

FRCRST 

00 

JNZ 

INIT 

FF 

LX I 

H f RSTTMR 

• 

ORA 

M 

00 

JZ 

G0010 

• 

CPI 

SFTDLY 

00 

JNZ 

INIT 

• 

G0010 Egu 

$ 

• 

MVI 

M, SFTDLY 

• 

***************** 

• 

/ DO SOFT RESET * 

• 

***************** 

• 

G01 EQU 

$ 

FF 

STA 

DFLGS 


MVI 

A r RSETKB 

AS 

CALL 

Z^BCTL 

• 

MVI 

A , KSETDC 

12 

CALL 

DCMCH 

28 

LXI 

H f RSTCTU 

15 

CALL 

IORMGO 

ID 

CALL 

RSTDSP 

« 

El 


02 

JMP 

START 


**************** 

;SET INITIAL PROCESSOR STATE 
/ SET PROCESSOR STATE 
; SET STACK POINTER 

; FIRST TURN ON? 
:*************************** 

; YES - INITIALIZE TERMINAL 
: ***************** ********** 

; NO - GET COMMON FLAGS 
; FORCE FULL RESET? 

; YES - INITIALIZE TERMINAL 
; NO - GET SOFT RESET TIMER 
; FULL RESET ACTIVE? 

; NO - START SOFT RESET 
; SI ILL IN SOFT RESE1 START? 

(CAUSED BY CONTACT BOUNCE) 
; NO - DO FULL RESET 
•YES - RESTART SOFT RESET 
; NO - SET 0,5 SEC TIME OUT 


; ENTRY FOR SUFT RESET 
;ClEAR DATA TRANSFER FLAGS 

; RESET THE KEYBOARD 

; RESET THE DATA COMM 
/RESET CARTRDIGE TAPES 
; IF CTU CODE PRESENT 
/RESTORE NORMAL DISPLAY 
/ENABLE INTERRUPTS 
/RESTART THE WAIT LOOP 
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II 

II 

II 

II 

ii 

II 


ii 

n 

ii 

ii 

it 

ii 

ii 

ii 




ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ti 

ii 
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it 

ii 

it 
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CODE 

SOURCE STATEMENTS 

PAGE 29 

1045 

OOF 4 

• 

• 

• 

;*****************¥******************* ******** 

104 b 

0OF4 

• 

• 

• 

; IN IT - Du 

complete 

TERMINAL INITIALIZATION * 

1047 

OOF 4 

• 

• 

• 

;***************♦*** Y*****F*****¥*****:M*****t 

1048 

001 4 

• 

• 

• 

IN IT Egu 

$ 


1049 

OOF 4 

AF 

• 

• 

XHA 

A 

; CLEAR TO ZERO 

1050 

0015 

32 

CO 

FF 

SI A 

ECONTF 

; CLEAR "JMP" TO FORCE FULL 

1051 

OOF 8 

• 

• 

a 

! 


kFSEX 

1 05 2 

0 0 r 8 

21 

00 

91 

EXT 

H,E STRAM 

; SE I FIRST AuDRESS 

105 3 

OOFB 

• 

• 

• 

1 N 1 0 1 0 Egu 

$ 


1054 

001 B 

7 7 

• 

• 

MOV 

M, A 

? SET BYTE fO ZERO 

1055 

OOFC 

2C 

• 

• 

INK 

L 

; ALL BYTES DONE? 

1056 

OOFD 

C2 

FB 

00 

JnZ 

1 N 1 0 1 0 

? NO - CLEAR NEXT BYTE 

105 V 

0100 

• 

• 

• 

r 



1058 

01 00 

• 

• 

• 

; CLEAR SLOrt HAM AREA 

1059 

oioo 

• 

• 

• 

f 



1 U60 

OlOO 

50 

• 

• 

MOV 

fc. r L 

; SET F = 0 FOR 256 BYTES 

1061 

0101 

2o 

FC 

• 

MV I 

H , lOBUf 1/256 ;SET START ADDRESS 

1062 

0103 

• 

• 

• 

X N 1 0 2 0 Egu 

$ 


106 3 

0 1 0 3 

CO 

Ft 

10 

CALL 

CLKAL1 

; CLEAR A 256 BYTE SECTION 

1064 

0106 

BC 

• 

• 

CMP 

H 

;ALL SEC 1 JONS CLEARED? 

1065 

01 o7 

C2 

03 

01 

JnZ 

X M 1 0 2 0 

; N 0 - CONTINUE CLEARING 

1 066 

010 A 

• 

• 

» 

-yyyyyyyyyyyyyy ************* 

1067 

OlOA 

• 

• 

• 

; LOCATE NON 

-DISPLAY 

SPACE * 

106 8 

OlOA 

* 

• 

* 

j******************* ******** 

1 069 

OlOA 

21 

FF 

CF 

LX 1 

h, bfspcf: 

; SET UPPER BOUNDARY ADDRESS 

1070 

010D 

22 

8 B 

FF 

Sl-lLU 

BUFENO 

; OF NON-U 1 SPLAY BUFFER ARE 

1071 

01 10 

Ob 

BO 

• 

MVI 

B , LW6UF 

? SET B TU MSb UF LOWER LIMIT 

1072 

0U2 

CO 

BO 

04 

CALL 

F NOR AM 


107 3 

0115 

22 

8 0 

FF 

ShLD 

6UE BON 

; STORE BUFFER START ADDRESS 

107 4 

0118 

• 

• 

• 

• 

9 



10/5 

0118 

• 

• 

• 

; LOCATE Lj I SPLAY SPACE 

1 0 7 6 

0118 

• 

• 

• 

• 



107 7 

0118 

21 

FF 

FB 

LX I 

H f OSPLXM 

;SET UPPER BOUNDARY ADDRESS 

1 07 8 

01 IB 

2 2 

A8 

F r 

SHLO 

dspknd 

;OE DISPLAY AREA 

1079 

01 IE 

06 

DO 

• 

MVI 

h,LWDSP 

; SE'l B TO MSB OF LOWER LIMIT 

1080 

0120 

CD 

60 

04 

call 

E MORAM 


1081 

0123 

22 

AA 

FF 

ShLD 

OSPBGN 

; STORE DISPLAY START ADDkESS 
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ITEM LQC OBJECT CODE SOURCE STATEMENTS RAGE 30 


1 083 

0126 

• 

• 

• 

*********************************************** 

1084 

0126 

• 

• 


? INITIALIZE PROCESSOR 

BOARD STATE, KEYBOARD, * 

1085 

0126 

• 

• 

• 

/ AND DATA COMM 

* 

1 08 b 

0126 

• 

• 

• 

;*************** ********** ********************* 

1087 

0126 

3E 

83 

• 

MV I A,SETPGM + TMIEN + TMRQN 

1088 

0128 

32 

F5 

FF 

ST A PRCCTL 

; ENABLE ROM'S AND TIMER 

108V 

0 1 2B 

3E 

C9 

• 

MVT A, RET 

; PUT RETURN CODE INTU 

1090 

012D 

32 

65 

91 

ST A INTVEC 

; INTERRUPT VECTOR AND 

1091 

0130 

3 2 

68 

91 

STA SCNVEC 

/DISPLAY SCAN VECTOR 

1092 

0133 

• 

• 

• 

• ******** 

************************* 

1093 

0133 


• 

• 

; * INTERRUPTS ARE ENABLED BY THE * 

1 094 

0133 

« 

• 

• 

• * DISPLAY ROUTINES USED DURING * 

1095 

0133 

• 

• 

• 

; * INITIALIZATION OF SOFT KEYS * 

1096 

0133 

• 

• 

• 

. ******** ***************** ******** 

1097 

0133 

CD 

02 

48 

CALL ZINIKB 

/SET JUMPERS AND DC SNITCHES 

1098 

0136 

CD 

08 

50 

CALL ZINIDC 

/FETCH BUFFER REQUIREMENTS 

1099 

0139 

CD 

CB 

04 

CALL GETBUF 

/ALLOCATE BUFFER SPACF 

1 100 

013C 

CD 

OB 

50 

CALL ZIN2DC 

/COMPLETE DATA COMM INIT 

1101 

0 1 3F 

DA 

54 

12 

JC HANGUO 

/(PROCESS ERROR IF ANY) 

1102 

0142 

• 

• 

• 

; ************ ********* 

*********** 

1103 

0142 

o 

• 

• 

; SET DEFAULT I/O CONFIGURATION * 

1104 

0142 

• 

9 

• 

;******************************** 

1105 

0142 

21 

02 

01 

LX l H,l*25b*2 

/OUTPUT a RIGHT CTU (2) 

110b 

0145 

22 

4D 

FF 

SHLD UUTDEV 

/INPUT = LEFT CTU (1) 

1107 

0148 

2A 

35 

28 

LHLD DOOCTI 

/SET INITIAL CARTRIDGE TAPE 

1108 

0 1 4R 

22 

El 

FF 

SHLD CTIVEC 

/INTERRUPT VECTOR 

1109 

0 1 4F. 

3E 

C 3 

• 

MV I A,JMP 

/SET JUMP COMMAND FOR 

1110 

0150 

32 

EO 

FF 

STA CTIJMP 

/CTU INTERRUPT VECTOR 

1111 

0153 

* 

• 

• 

;*******************************+* ********** 

1112 

0153 

• 

• 

• 

; identify OPTION I/O 

INCLUDED IN TERMINAL * 

1113 

0153 

# 

• 

9 

;* ¥ ************************ ******** ********* 

1114 

0153 

21 

02 

60 

LAI ti,ZINIAL 

/INITIALIZE ALTERNATE I/O 

1115 

0156 

CD 

93 

15 

CALL IORMGO 

/DEVICE 

1116 

0159 

3E 

00 

• 

MV I A,0 

/(SEf FOR NO ALTERNATE I/O 

1117 

0 1 5B 

DA 

66 

01 

JC 1NI110 

/BYPASS INIT IF NO ALT I/O 

1118 

015E 

CD 

CB 

04 

CALL GETBUF 

/ELSE, ALLOCATED BUFFER 

1119 

0 1 b l 

CD 

05 

60 

CALL ZIN2AL 

/AND CONTINUE INIT 

1120 

0164 

3E 

40 


M V I A, ALT IN 

/SET ALT I/O PRESENT BIT 

1121 

0166 

# 

• 

• 

IN 1 1 1 0 Egu $ 


1122 

0166 

47 

• 

• 

MOV B,A 

/SAVE ALTERNATE I/O STATUS 

1123 

0167 

21 

00 

28 

LXI H , IOQRG 

/SET I/O START ADDRESS 

1124 

01 6 A 

CD 

A3 

15 

CALL 10RMG1 

/DOES I/O CODE EXIST? 

1125 

0 16D 

78 

• 

• 

MOV A , B 

/(GET CURRENT I/O OPTIONS) 

1126 

0 1 6F 

C2 

77 

01 

JNZ I N I 1 30 

/NO - DON'T SET I/O blT 

1127 

0171 

F6 

80 

• 

Ohl CTUIN 

/ELSE SET CTU PRESENT BIT 

1128 

0173 

21 

FD 

FF 

LXI H , TRMTY P 

/SET TERM TYPE TU INDICATE 

1129 

0176 

34 

• 

• 

INR M 

; I/O CODE INCLUDED 

1130 

0177 

• 

• 

• 

INI 1 30 Egu $ 


1131 

0177 

32 

7F 

FE 

STA DEVFLG 

/SET I/O OPTIONS FLAG 
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1133 

01 7 A 

• 

• 

• 

***************************************** 

1134 

0 1 7 A 

• 

• 

• 

; GENERATE 

FREE BLOCKS 

LIST FOR DISPLAY * 

1135 

0 1 7 A 

• 

• 

• 


1136 

01 7A 

2 A 

A8 

FF 

LHLD 

DSPEND 

/COMPUTE ADDRESS OF HIGHEST 

11 3/ 

0 1 7 P 

11 

FI 

FF 

LX I 

D, i-BLKSZ 

/ ADDRESSED DISPLAY BLOCK 

1138 

0180 

19 

• 

• 

DAD 

D 


1139 

0181 

70 

• 

• 

MOV 

A , L 

/COMPUTE ADDRESS OF LSb PART 

1140 

0182 

Fb 

OF 

• 

OKI 

B L K S M 

/OF PREVIOUS LINE POINTER 

1141 

0184 

bF 

• 

• 

MOV 

hj f A 

/IN HIGHEST ADDRESSED 

1142 

0185 

2B 

• 

• 

DC X 

B 

/DISPLAY BLOCK 

1143 

0186 

36 

00 

• 

MVI 

rt,0 

/SET IT TO ZlPU TO INDICATE 

1144 

0188 

2b 

• 

• 

DCX 

H 

/END OF FREE LIST 

1145 

0189 

E0 

• 

• 

XCHG 


/SET NEXT BLOCK LINK OF 

1 1 46 

01 8 A 

2 A 

AA 

FF 

LHLD 

DSPBGN 

/ LOWES i ADDRESSED DISPLAY 

114/ 

0180 

73 

• 

• 

MOV 

M,E 

/BLOCK TO POINT 10 MSB 

1148 

0 1 8E 

23 

• 

m 

TNX 

H 

/PART UF NEXT LINF LINK IN 

1149 

018F 

72 

• 

• 

MOV 

M f D 

/HIGHEST BLOCK 

1150 

0190 

EB 

• 

• 

XCHG 


/Swap HIGH AND LOW ADDRESSES 

1151 

0191 

13 

• 

• 

I NX 

D 

/ADJUST LON ADDR TO LOW LIMI 

1152 

0192 

• 

• 

• 

i 


EOF LINKING DISPLAY BLOCKS 

1153 

0192 

2b 

• 

• 

DCX 

H 

/SET FREE BLOCKS HEAD TO LSB 

1154 

0193 

22 

AC 

FF 

SHLD 

FRBLKS 

/PART OF NEXT LINE POINTER 

1155 

0196 

• 

• 

• 

• 

# 


IN highest block 

1156 

0196 

06 

OE 

• 

SUI 

BLK S Z — 2 

/SET B , L TO ADDRESS OF MSB 

1157 

0198 

44 

• 

• 

MOV 

b , H 

/PART UF NEXT BLOCK POINTE 

1158 

0199 

6F 

9 

• 

MOV 

L , A 

/IN HIGHEST DISPLAY BLOCK 
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ITEM LGC OBJECT CODE SOURCE STATEMENTS 


1160 

0 1 9A 

• 

• 

• 

********************* 


1161 

0 19 A 

• 

• 

• 

CHAIN FREE 

BLOCKS 

* 


1162 

0 1 9 A 

• 

• 

• 

.******************** 


1163 

0 1 9 A 

• 

• 






1164 

0 1 9A 

• 

• 

• 

B , A = ADDRESS OF 

UPPER BYTE IN NEXT LOWER BLOCK 

1165 

01 9A 

• 

• 

• 

D , E = LOWER LIMIT 

OF DISPLAY AREA 

1166 

0 1 9 A 

• 

9 

• 

H,L = ADDRESS OF 

MSB PART OF NEXT BLOCK LINK 

1167 

0 1 9 A 

• 

• 

• 

IN CURRENT BLOCK 


1168 

019A 

• 

• 

• 

’ 




1169 

0 1 9 A 

• 

• 

. 1NI210 EOU 

$ 



1170 

0 1 9A 

7D 

• 

• 

MOV 

A,L 


; COMPUTE ADDRESS OF UPPERMOS 

1171 

019B 

D6 

02 

9 

SUI 

2 


; BYTE IN NEXT LOWER BLOCK 

1172 

0 1 9D 

D2 

A1 

01 

JNC 

IN 1220 



1173 

0 1 AO 

05 

• 

• 

DCR 

B 



1174 

0 1 A 1 

* 

• 

. IN 1220 EQU 

$ 



1175 

01A1 

70 

• 

• 

MOV 

M , B 


; LINK CURRENT BLOCK TO NEXT 

1176 

0 1 A2 

2B 

• 

• 

DCX 

tl 


; LOWER BLOCK 

1177 

01 A3 

U 

• 

• 

MOV 

M, A 



117 8 

0 1 A 4 

06 

OE 

9 

SUI 

BLKSZ-2 


; SET H,L TO ADDRESS OF MSB 

1179 

01 A6 

6F 

• 

• 

mqv 

L, A 


; PART OF NEXT BLOCK LINK I 

1180 

0 1 A7 

60 

• 

• 

MOV 

H , B 


; NEXT LOWER BLOCK 

1 181 

0 1 AR 

93 

• 

• 

SUB 

E 


; COMP ARE AGAINST LOWER LIMIT 

1182 

01A9 

78 

• 

• 

MOV 

A , B 



1183 

01 AA 

9 A 

• 

9 

S6B 

D 


; DISPLAY AREA EXHAUSTED? 

1184 

01AB 

D2 

9A 

01 

JNC 

INI210 


; NO - CONTINUE LINKING BLOCK 

1185 

OlAE 

9 

• 

• 

? 



YES - SET UP INITIAL DISPLAY 




ITEM LOC OBJECT CODE SOURCE STATEMENTS 



13255-900U3 Rev AUG-01-7B 

PAGE 33 


1187 

OlAF 

• 

• 

• 

• 9 




1188 

01 AE 

P 

• 

. ? SET 

UP INITIAL SOi-T KEYS DISPLAY 

1189 

01AE 

• 

• 

• 

• 9 




1 190 

01AE 

CD 

CB 

05 

CALL 

1N1TDS 

; START A NEW DISPLAY LIST 

1191 

01 B I 

2B 

• 

P 

DC X 

H 

; SET SOFT KEY STAPT ADDRESS 

1192 

0 1 B2 

22 

At 

FF 

SHLD 

SFTKXS 

; TO FIRST CHARACTER 

1193 

0 1 B5 

3E 

80 

• 

MVI 

A rCRTOFF 

; SET CURRENT AND LAST ROw 

1194 

0 1 B7 

32 

CO 

FF 

STA 

CURROW 

; TO CONTROL FOR DISPLAY OF 

1195 

0 1 BA 

32 

Cl 

FF 

ST A 

LSTROW 


1 1 9b 

0 1 BD 

• 

p 

• 9 




1197 

01BD 

• 

• 

. ? SET 

Up KEY DEFINITIONS 

1 198 

0 1 BD 

• 

• 

«- 

• 9 




1199 

U 1 BD 

01 

4E 

FE 

LX I 

b,DSPSTR-l 

1200 

oico 

21 

DA 

14 

LAI 

ri, ATBLIN 

; TRANSFER ATTRIBUTE LINK 

1201 

01C3 

CD 

20 

OB 

CALL 

MOVCHR 


1202 

01C6 

OE 

08 

• 

MVI 

C , NMFCTK 

; SET NUMBER OF KEYS TO DEFIN 

1203 

0 1C8 

• 

• 

• 

• 9 




1204 

01C8 

• 

• 

. ; BUILD ATTRIBUTE LINE 

1205 

01C8 

• 

• 

• 

• 9 




120b 

0 1C8 


• 

. INI310 

fou 

$ 


1207 

01C8 

3E 

39 

• 

MVI 

A , ZERO+9 

; COMPUTE FUNCTION KFY NUMBER 

1208 

0 l C A 

91 

• 

• 

SUB 

C 


1209 

0 1CB 

32 

43 

FE 

STA 

DSPSTR- ATBLEN+2 

1210 

01CE 

• 

. 

♦ 

• 9 




1 2 1 1 

01CE 

• 

• 

i BUILD DEFINITION 

LINE 

1212 

1213 

0 ICE 

dice 

3E 

78 

• 9 

P 

MVI 

A , SMALL X 

; COMPUTE CHAR AFTER <FSC> 

1214 

oioo 

91 

• 

• 

SUB 

C 

? (LOWER CASE <P>-<w>) 

1215 

0101 

21 

4U 

FE 

LXI 

H,DSPSIR 

-CHRLQC 

121b 

0104 

77 

• 

• 

MOV 

M , A 

; SET DATA CHARACTER 

1 2 1 7 

0 1 D5 

2E 

41 

• 

' M V T 

L , DSPSTR 

-ATBLEN-BASE.2 

1218 

01D7 

C5 

• 

• 

PUSH 

B 

; TRANSFER SOFT KEY DEFIN ITIO 

1219 

0108 

CD 

CD 

OF 

CALL 

XMS2DS 

; TO DISPLAY MEMORY 

1220 

0 1 OB 

Cl 

• 

m 

POP 

B 


1221 

0 1 DC 

00 

• 

• 

DC R 

C 

; ALL KEYS DEFINED? 

1222 

QtOD 

C 2 

C8 

01 

JNZ 

IN 13 10 

; NO - DO NEXT KE t 
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1224 

OlEO 

• 

. 

• 

;********************************************* 

1225 

0 1 EO 

• 

• 

• 


; SOFT KEYS 

DONE - 

SET INITIAL DISPLAY STATE * 

1226 

OlEO 

• 

• 

• 


********************************************** 

1227 

OlEO 

AF 

• 

• 


XRA 

A 

? CLEAR LAST LINE POINTER 

1228 

0 1 El 

32 

A 1 

FF 


ST A 

LUNE 


1229 

01E4 

3D 

• 

• 


DCP 

A 

; SET DISPLAY TYPE TO SOFT 

1230 

01E5 

32 

AE 

FF 


STA 

PSPTYP 

;KEY DISPLAY 

1231 

01E8 

CD 

27 

ID 


CALL 

CURPH 

; HO M E THE CURSOR 

1232 

01EB 

CD 

69 

21 


CALL 

SWAP 

? SAVE SOFT KEY PARAMETERS ' 

1233 

0 1EE 

• 

« 

. • 

************************************ 

1234 

OlEE 

• 

• 

• 

; INITIALIZE 

FIRST 

LINE OF DISPLAY * 

1235 

0 1 EE 

• 

• 

• 

; *********************************** 

1236 

OlEE 

CD 

CB 

05 


CALL 

INI TOS 

; START A NEW DISPLAY LIST 

1237 

01 FI 

• 

• 

• 

;************************* 

1238 

01F1 

• 

• 

• 

? INITI ALIZF 

I/O DEVICES * 

1239 

OIF 1 

• 

• 

• 


f************************* 

1240 

01 FI 

• 

• 

• 





1241 

01 FI 

• 

• 

• 


PRINTER INITIALIZATION ROUTINE 

1242 

01 FI 

• 

• 

• 





1243 

0 1 F 1 

• 

• 

• 


CHECK FUR 

9866 

PRINTER FIRST 

1244 

01 FI 

* 

• 

• 





1245 

0 1 F 1 

3 A 

00 

8D 


LDA 

PTRST1 

; GET STATUS FROM 9866 PC A 

1246 

01F4 

87 

• 

• 


ORA 

A 

; IS INTERFACE INSTALLED? 

1247 

01F5 

CA 

00 

02 


JZ 

PTRI10 

; NO - LOOK FOR RS-232 PRNTR 

1248 

01F8 

3A 

02 

80 


LDA 

PTRCL1 

? YES - CLEAR THE PRINTER 

1249 

01FB 

3E 

01 

• 


M VI 

A,1 

; SET PRINTER FLAG FOR 

1250 

01FD 

C 3 

12 

02 


JMP 

PTR120 

; 9866 PRINTER (= 1) 

1251 

0200 

• 

• 

• 





1252 

0200 

• 

• 

• 


RS-232 


PRIMER 2 

1253 

0200 

• 

• 

• 





1254 

0200 

# 

• 

• 


>TRI10 EQU $ 



1255 

0200 

3A 

20 

85 


LDA 

PTRST2 

; GET STATUS FROM RS-232 PC A 

1256 

0203 

B7 

• 

• 


ORA 

A 

?IS RS-232 PC A INSTALLED? 

1257 

0204 

CA 

12 

02 


JZ 

PTR120 

;N0 - SET FOR NO PRINTER 

1258 

0207 

• 

• 

• 

i 




1259 

0207 

3A 

40 

85 


LDA 

PTRCF2 

; YES - GET CONFIG. STRAPS 

1260 

020 A 

E6 

IF 

• 


ANI 

PTRBD2 

? ISOLATE BAUD AND PARITY 

1261 

020C 

17 

• 

• 


RAL 


? ADJUST FOR CONTROL OUTPUT 

1262 

020D 

32 

40 

85 


STA 

PTR0T2 

; SET BOARD TO CONFIGURATION 

1263 

0210 

3E 

02 

• 


MV I 

A , 2 

; SET FLAG FOR RS-232 PRINTER 

1264 

0212 

• 

• 

• 

i 




1265 

0212 

• 

• 

• 

t 

J TR1 20 EQU 

$ 


1266 

0212 

32 

77 

FE 


STA 

PTRFLG 

; SET PRINTER FLAG 

1267 

0215 

21 

6A 

OF 


LXI 

H,TRMRDY ;DISPLAY "TERMINAL READY" 

1268 

0218 

CD 

D7 

1C 


CALL 

DSPMS1 

; MESSAGE 

1269 

02 IB 

3E 

C3 

• 


M V I 

A f JMP 

;SET JUMP COMMAND FOR 

1270 

0210 

32 

CD 

FF 


STA 

EC UN IF 

; CHARACTER FUNCTION VECTOR 
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II 
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ii 

ii 
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it 

ii 

ti 

ii 

ii 

ti 

ii 

it 

ii 

ii 

it 

it 

ii 

ii 

it 

ii 

it 

ii 

i« 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 
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ti 

n 

ii 

II 

II 

II 
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li 

ii 

ii 

ii 
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it 
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ii 

ii 
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k 

it 

ti 

ii 

li 

it 

ii 

it 

1272 

0220 

• 

• 

• 

************ ******************************** 

127 3 

0220 

• 

• 

• 

; initialize flags and range table address * 

1274 

0220 

• 

• 

• 

.******************************************* 

1275 

0220 

• 

• 

• 

START EQU $ 

1 27t> 

0220 

CD 

95 

04 

CALL ESCEND ; RESET NORMAL RANGE TABLE 

127 7 

0223 

3 A 

29 

48 

LD A FRS ALT ; SET INITIAL ALTERNATE 

127 b 

0226 

32 

72 

FF 

STA CHRSET' ?CHAkACT£F SET 

1279 

0229 

CD 

23 

20 

CALL CRADV1 ? CLEAR CURSOR ADVANCE FLAG 

1280 

022C 

3D 

• 

• 

OCR A ; CLEAR SFOw LATCH 

1281 

022D 

32 

6C 

FF 

STA SPGWL 


-76 
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1283 

0230 

• 

• 

• 

• 

9 


1284 

0230 

• 

• 

• 

; WAIT LOOP 


1285 

0230 

• 

• 

• 

* 

9 


1286 

0230 

• 

• 

• 

WTLQUP EQU $ 


1287 

0230 

31 

60 

91 

LX I SP, STACK 

;SET STACK POINTER 

1288 

0233 

CD 

30 

05 

CALL GETDC1 

; SET DISPLAY CURSOR 

1289 

0236 

• 

• 

• 

;***^*^******************** 

1290 

0236 

• 

• 

• 

; CHECK FOR DATA COMM 

INPUT * 

1291 

0236 

• 

• 


;♦*********************♦**¥** 

1292 

0236 

• 

• 

• 

WTL010 EDU $ 


1293 

0236 

CD 

FC 

04 

CALL GETDCM 

; GET DATA COMM INPUT IF AN Y 

1294 

0239 

• 

• 

• 

;***♦*♦**♦ ******* *********** 

1295 

0239 

• 

• 

• 

; CHECK FOR KEYBOARD 

INPUT * 

1296 

0239 

• 

# 

• 

;*************************** 

1297 

0239 

3 A 

6F 

FF 

LDA MFLGS2 

; GET MODE FLAGS 

1298 

023C 

E6 

08 

• 

ANI ESC I NP 

; ESCAPE SEQUENCE LOCK OUT? 

1299 

023E 

C2 

5F 

02 

JNZ WTL020 

; YES - IGNORE KEYBOARD 

1300 

0241 

3 A 

6£ 

FF 

LDA DFLGS 

? NO - GET DATA TRANSFER FLAG 

1301 

0244 

E6 

10 

• 

ANI FCTK2D 

; FUNCTION KEY TO DISPLAY? 

1302 

0246 

C4 

42 

15 

CNZ GTFCTK 

; YES - GET FUNCTION KEY CHAR 

130 3 

0249 

C2 

74 

02 

JNZ WTL200 

; PROCESS IF AVAILABLE 

1304 

024C 

CD 

05 

48 

CALL ZGETKY 

; AN Y KEYBOARD INPUT? 

1305 

024F 

CA 

74 

02 

JZ WTL200 

; YES - PROCESS IT 

1306 

0252 

• 

• 

• 

• 

9 


1307 

0252 

• 

• 

• 

; IF KEYBOAPD LOCKED , 

A = CHARACTER HIT, IF ANY 

1308 

0252 

• 

• 

• 

; OTHERWISE A = 377B 


1309 

0252 

• 

• 

• 

• 

9 


1310 

0252 

FE 

OD 

• 

CPI CR 

? RETURN KEY HIT? 

1311 

0254 

C2 

5F 

02 

JNZ WTL020 

; NO - CHECK CTU & DISPATCHER 

1312 

0257 

3 A 

65 

FF 

LDA IOFLGS 

; USER READ OR FILE READ 

1313 

025 A 

E6 

06 

• 

ANI USREAD+FILRED ; PENDING? 

1314 

025C 

C4 

37 

28 

CNZ RDABRT 

; YES - ABORT READ KEY 



13255-90003 Rev AUG-01-76 


II 

II 

II 

II 

II 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ssss: 

ssss 

ii 

ii 

ii 

ti 

it 

it 

it 

it 

ti 

ii 

H 

11 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

II 

II 

ii 

ii 

it 

ti 

ii 

it 

it 

ti 

ii 

ii 

n 

ii 

ii 

ii 

It 

ii 

ii 

ii 

ii 

li 

ii 

ii 

it 

ii 

ii 

tl 

ii 

ii 

H 

ITEM 

LUC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 37 

1316 

025F 

• 


• 

• fr****************^*****^***************** 

1317 

025F 

• 

• 

• 

; CHECK CTU'S AND PENDING BLOCK TRANSFERS * 

1318 

025F 

* 

• 

• 


1319 

025F 

• 

• 

• 

WTL020 EQU $ 


1320 

025F 

21 

54 

FF 

LAI H,SCNCNT 

? DECREMENT SCAN COUNT 

1321 

0262 

35 

• 

# 

OCR M 

?li SCANS DONE? 

1322 

02b 3 

F2 

3b 

0 2 

JP WTL010 

; NO - RESTART DO NOTHING LOO 

1323 

02bb 

3 b 

0A 

• 

MVI M,10 

;YES - RESET SCAN COUNT 

1324 

0268 

CD 

6 b 

91 

CALb SCNVEC 

; DO OPTIONAL DISPLAY SCAN 

1325 

026B 

CD 

8b 

15 

CALL IOCTMN 

; MONITOR TAPE DRIVES 

1326 

02bE 

CD 

29 

04 

CALL DSPTCH 

; CHECK PENDING BLOCK XFRS 

1327 

0271 

C3 

3b 

02 

JMP WTL010 

; PEST ART DO NOTHING LOOP 
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ITEM 

LOC 

1329 

0274 

1330 

0274 

1331 

02/4 

1332 

0274 

13 33 

0274 

1334 

0277 

1335 

0278 

1336 

027A 

1337 

027D 

1338 

0280 

1339 

0281 

1340 

0283 

1341 

0266 

1342 

0289 

1343 

028C 

1344 

0 2 8C 

1345 

Q26C 

1346 

0280 

1347 

028E 

1348 

028F 

1349 

0292 

1350 

0294 

1351 

0297 

1352 

0299 

1353 

029A 

1354 

029B 

1355 

0 2 9 E 

1356 

029F 

1357 

02A2 

1358 

02A3 

1359 

02A6 

1360 

02A6 

1361 

02A6 

1362 

02A6 

1363 

02A6 

1364 

02A8 

1365 

02AB 

1366 

02AO 

1367 

02B0 

1368 

0263 

1369 

02B6 
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OBJECT CODE SOURCE STATEMENTS 


• 

• 


• 

9 




• 

• 

* 

• 

9 

KtY HIT - 

CHECK FOR 

FUNCTION KEY 

• 

• 

• 

• 

• 

WTL200 EQU 

$ 


32 

9C 

FF 


ST A 

CHARIN 

/ SAVE KEYBOARD CHARACTER 

4F 

• 

• 


MOV 

C,A 

;SAVE THE BYTE IN C-REGISTER 

3E 

FE 

• 


M V I 

A,377Q-SDACOM 

CD 

01 

16 


CALL 

CLRDFL 

/CLEAR DATA COMM INPUT FLAG 

3 A 

F8 

FF 


LDA 

CMFLGS 

; GET COMMON FLAGS 

2F 




CMA 


/ BOTH RECEIVE MODE FLAG SET 

Ed 

30 



AN 1 

RC VMDE + PEMSEI ? AND REMOTE ENABLED? 

C2 

8C 

02 


JNZ 

WTL205 

/NO - PROCESS KEYBOARD INPUT 

CD 

14 

48 


CALL 

ZBELL 

/ YES - SOUND BELL AND 

C 3 

36 

02 


JMP 

WTL010 

; IGNORE KEY 

• 

• 

• 

• 

WTL205 EQU 

$ 


AF 




XHA 

A 

; NO - PROCESS THE KEY 

57 


« 


MOV 

D, A 

/ (SET A,D = 0) 

B 1 




ORA 

C 

; FUNCTION nEY? 

F2 

FO 

02 


JP 

WTL300 

; NO - PROCESS ASCII KFY 

FE 

A1 

• 


CPI 

FNCLIM 

; TABLE FUNCTION? 

F 2 

A6 

02 


JP 

WTL210 

; NO - CHECK FOR F1-F8 

D6 

98 

• 


SUI 

FNCLWR 

/COMPUTE TABLE INDEX 

87 

• 

• 


ADD 

A 


5F 

• 

• 


MOV 

£ t A 

/COMPUTE TABLE ADDRESS 

21 

BC 

14 


LXI 

H,FNCTAB 

/CD = 0 ) 

19 




DAD 

D 


CD 

t>D 

19 


CALL 

CHAIN 

/GET THE FUNCTION ADDRESS 

C7 


• 


PST 

/ RST JMP 

GO PERFORM FUNCTION 

C3 

30 

02 


JMP 

rtTLOOP 

/RESTART WAIT LOOP 

• 

• 

• 

• 

• 

• 

9 

• 

9 

CHECK FOR F1-F8 KEY 

• 

• 

• 

• 

• 

WTL210 EQU 

$ 


FE 

FO 



CPI 

FI CODE 

/IS THE KEY F1-F6? 

DA 

B9 

02 


JC 

WTL250 

/NO - EXPAND ESCAPE SEQUENCE 

FE 

F8 

• 


CPI 

F8C0DE+ 1 


D2 

B9 

02 


JNC 

NTL250 

/NU - EXPAND ESCAPE SEQUENCE 

CD 

8C 

19 


CALL 

CHKSFK 

/SOFT KEY MODE? 

CC 

06 

14 


CZ 

FCTKEY 

/NO - PROCESS FCT KEY 

C 3 

30 

02 


JMP 

WTLOOP 

/RESTART WAIT LOOP 
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H 
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1371 

02B9 

# 


• 

• ************* ******** * * * 

1372 

02B9 

• 

• 

• 

; PROCESS FUNCTION KEYS * 

1373 

0289 

• 

• 

• 

;***♦*******♦*******♦**** 

1374 

02B9 

• 

• 

• 

WTL250 EQU 

s 


137b 

02B9 

oe 

1 B 

• 

MVI 

C , ESC 

;SET ESCAPE AS INPUT CHAR 

13 7b 

0 2BB 

• 

• 

• 

WTL260 EQU 

$ 


137 7 

02BB 

CO 

E4 

05 

CALL 

LOCLIO 

; PROCESS KEYBOARO INPUT 

137 8 

Q2bE 

21 

9C 

FF 

LAI 

n, CHAR IN 

; RECALL KEYBOARD INPUT 

1379 

020 

7 E 

• 

• 

MOV 

A , M 


1380 

02C 2 

EE 

FT 

• 

CPI 

H.NBNCE 

; DISPLAY ENHANCEMENT CODE? 

1381 

0?C 4 

CA 

DC 

02 

JZ 

w T L 2 7 0 

,*YES - EXPAND INTO AMPERSAND 

1382 

02C7 

EE 

FE 

• 

CPI 

STF0R1 

; enter foreign mude control? 

1383 

02C9 

CA 

F3 

02 

JZ 

WTL2H0 

? Y E S - CONTINUE SEQUENCE 

1384 

02CC 

FE 

FO 

• 

CPI 

STF0R2 

; COMPLETE foreign mode set? 

138b 

02CE 

CA 

E9 

02 

JZ 

WTL290 

,* YF:S - SET ENDING SEQUENCE 

1386 

02D1 

Fo 

7F 

• 

AN I 

1770 

?NU - MASK OUT UPPER BIT 

1387 

0203 

BE 

• 

• 

CMP 

M 

; FUNCTION COMPLETED? 

1388 

02 04 

CA 

30 

02 

JZ 

wTLOOP 

; YES - RESTART WAIT LOOP 

1389 

0207 

7 7 

• 

• 

MOV 

M, a 

;N0 - SET NEW KEYBOARD CHAR 

1390 

0208 

4F 

+ 

• 

MOV 

C, A 


1391 

0209 

C 3 

BB 

0 2 

JMP 

WTL260 

; PERFORM THE DESIRED F UNCTON 

1392 

020C 

• 

• 

• 

i 



1393 

020C 

• 

• 

• 

WTL270 EQU 

$ 


1394 

02oC 

3b 

E4 

• 

MVI 

M , ESCLWD 

; SET < E SC >-< LOwER CASF D> AS 

1395 

0 2 0 E 

OE 

26 

• 

MVI 

C , AMPSND 

? CURRENT KEYBOARD CRARACTE 

1396 

02EO 

C 3 

BB 

02 

JMP 

A T L 2 o 0 

; PROCESS AMPERSAND 

1397 

0 2 fc 3 

• 

• 

• 

♦ 

9 



13 9b 

02E3 

• 

• 

• 

w T L 2 8 0 EQU 

$ 


1399 

02E3 

35 

• 

• 

OCR 

M 

; set to next step code 

1400 

02E4 

OE 

29 

• 

MVI 

C , ARPARN 

; enter right parenthesis 

1401 

0/E6 

C 3 

BB 

0 2 

Ji'tP 

WTL260 

; PROCESS RIGHT PARENTHESIS 

140 2 

0 2 E 9 

• 

• 

• 

9 



1 403 

02E9 

• 

• 

• 

wTL290 EOU 

$ 


1404 

02E9 

3b 

8E 

• 

MVI 

M , ESC SO 

; SET <ESC>-<SO> AS CURREuT 

1405 

02EB 

OE 

43 

• 

MVI 

C ,C 

; KEYBOARO CHARACTER 

1406 

02ED 

C3 

R8 

02 

JMP 

WT0260 

; PROCESS LETTER <C> 
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it 

it 

ii 

a 

ii 

ri 

ii 

ii 
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ii 
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11 

It 

II 

II 

H 

II 

II 

H 

II 

II 

tl 

II 

II 

II 

H 

II 

II 

II 

II 

II 

ii 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

Ii 

1408 

02FO 

• 

• 

• 

• 

9 



1409 

02F0 

• 

• 

• 

; DISPLAYABLE CHARACTER - CHECK FOR APPROACHING 

1410 

02F0 

• 

• 

• 

? END OF 

LINE WARNING 

1411 

02F0 

• 

« 

• 

* 

9 



1412 

02F0 

• 

• 

* 

WTL300 EQU 

$ 


1413 

02FO 

FE 

20 

• 

CPI 

CTLLIM 

? CONTROL CODE? 

1414 

0 2 F 2 

DA 

13 

03 

JC 

WTL310 

; YES - DON'T LOOK FOR BELL 

1415 

0215 

3 A 

6E 

FF 

LDA 

DFLGS 

; NO - GET DATA TRANSFER FLAG 

1410 

02F8 

E6 

10 

• 

ANI 

FCTK2D 

; PROCESSING FUNCTION KEY OR 

1417 

0 2 F A 

CC 

76 

19 

cz 

CHKFMS 

; FORMAT/SOFT KEY MODE? 

1418 

02FD 

C2 

13 

03 

JNZ 

WTL310 

; YES - SKIP BELL COLUMN CHEC 

1419 

0300 

3 A 

D1 

FF 

LDA 

ESCFLG 

; NO - GET ESCAPE SEQ FLAG 

1420 

0303 

B7 

• 

• 

ORA 

A 

? CURRENTLY IN ESCAPE SEQ? 

1421 

0304 

C2 

13 

03 

JNZ 

WTL310 

;YES - DON'T LOOK FOR BELL 

1422 

0307 

3 A 

Cl 

FF 

LDA 

CURCOL 

;NO - GEI CURRENT COLUMN 

1423 

030 A 

21 

BE 

FF 

LX I 

H , RHI MGN 

J COMP ARE TO RIGHT MARGIN 

1424 

030D 

96 

• 

• 

SUB 

M 

;CLOSE ENOUGH TO RIGHT MARGI 

1425 

03uE 

Cb 

06 

• 

ADI 

BELLIM 

; TO SOUND BELL? 

142b 

0310 

CC 

14 

48 

CZ 

ZBELL 

; YES - SOUND BELL 

1427 

0313 

• 

• 

• 


****** 

1428 

0313 

• 

• 

# 

; PROCESS THE KEY FUNCTION * 

1429 

0313 

• 

• 

• 


1430 

0313 

• 

• 

• 

WTL310 EQU 

$ 


1431 

0313 

CD 

EF 

05 

CALL 

LOC UN 

; PERFORM LOCAL INPUT ROUTINE 

1432 

0316 

3 A 

9C 

FF 

LDA 

CHARIN 

; RECALL KEYBOARD INPUT CHAR 

1433 

0319 

FE 

OD 

• 

CPI 

CR 

; WAS IT A RETURN? 

1434 

031B 

C2 

30 

02 

JNZ 

WTLOOP 

;NO - RESTART WAIT LOOP 

1435 

03 IF. 

3 A 

F 3 

FF 

LDA 

MDFLG2 

; YES - GET MODE FLAGS 

1436 

0321 

E6 

04 

• 

ANI 

AUTOLF 

; AUTO LINE FEED ENABLED? 

1437 

0323 

CA 

30 

02 

JZ 

WTLOOP 

; NO - RESTART WAIT LOOP 

1438 

0326 

2E 

01 

• 

M V I 

b,l 

; YES - DELAY 10 MILLISECONDS 

1439 

0328 

CD 

B3 

12 

CALL 

DELAY 

; TtiEN send line FEED 

1440 

032R 

3E 

OA 

• 

MV I 

A , LF 


1441 

0320 

C 3 

74 

02 

JMP 

WTL200 

; FAKfc. LINE FEED FROM KEYBOAR 
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144 3 

0330 

• 

• 

• 

****^*****$#* 4 ; ********** 

1444 

0330 

• 

• 

• 

S U B K Cl 

U T I N E S * 

1445 

0330 

• 

* 

• 

>************************ 

144b 

0330 

• 

• 

• 




1447 

0330 

* 

m 

• 

♦ * * * 4 

******************* 

1448 

0330 

• 

9 

• 




1449 

0330 

• 

9 

• 

CHINT - 

INTERPRET Input character 

1450 

0330 

• 

9 

• 




1451 

0330 

• 

• 

• 

ENTRY: C = INPUT CHARACTER 

145 2 

0330 

• 

• 

• 




1453 

0330 

• 

• 

• 

EXIT 

: Z - FAST STUPE USED 

1454 

0330 


• 

9 


NZ - FULL PROCESSING USEP 

1455 

o330 

• 

• 

9 


A-E f L LEST ROVED 

1456 

0330 

• 

• 

9 




145 7 

0330 

• 

• 

9 

THY FAST 

STORE FIRS1 

1458 

0330 

• 

• 

9 




145 9 

0330 

• 

9 

# chinto egu 

$ 

ENTRY FUR I/O INPUT 

1460 

0330 

21 

6F 

FF 

LX 3 

H , MFLGS2 

SET H,L TO MODE FLAGS 2 

1461 

0333 

79 

• 

• 

MU V 

A f C 

put input char in a-reg 

1462 

0334 

FE 

OA 

• 

CPI 

LF 

CHARACTER = LINE HIED? 

1463 

0336 

C 2 

42 

03 

JNZ 

CHIOOO 

NU - CHECn FUR CP/PC 3 

1464 

0339 

7 E 

• 

9 

MOV 

A , M 

YES - GET MODE 1 LAGS 2 

1465 

033 A 

F6 

40 

9 

OR I 

wRPFLG 

TURN UK WRAP T LAG 

I960 

033C 

BE 

• 

9 

CMP 

M 

WRAP FLAG ALREADY ON? 

1467 

0 3 3 P 

CA 

50 

03 

JZ 

CHINT 

YES - EXECUTE LINE FEED 

146 8 

0340 

77 

• 

• 

MUV 

M, A 

NU - SET WRAP FLAG 

146 9 

0341 

C 9 

9 

9 

RET 


; AND IGNORE LINE FEED 

1470 

0342 

. 

9 

9 

> 



1471 

0342 

• 

9 

. CHI 000 FQU 

$ 


1472 

0342 

FE 

CD 

• 

CPI 

CP ^-CHARACTER = RETURN? 

147 3 

0344 

CA 

B 9 

03 

viz, 

CHINT1 

'YES - DON'T SET WRAP FLAG 

147 4 

0347 

FE 

13 

9 

CPI 

DC 3 CHARACTER = PC 3 V 

1475 

0349 

CA 

50 

03 

JZ 

CHINT 

YES - DON'T SET WRAP FI, AG 

1476 

034C 

7E 

• 

• 

MUV 

A f M 

NO - SET wPAP FLAG 

147 7 

034D 

F6 

40 

• 

OR I 

wRPFLG 


147 8 

034F 

7 1 

9 

• 

MOV 

M,A 

} UPDATE MODE FLAGS 7 

14 79 

0350 

• 

• 

. CHI NT EDU 

$ 


14 80 

0350 

21 

67 

FF 

LXI 

H,CRAFLG 


1481 

0353 

4b 

• 

• 

MOV 

b,M 

? WAS LAST CHARACTER FUNCTION 

148 2 

0354 

05 

• 

• 

OCR 

B 

; A CURSOR ADVANCE? 

148 3 

0355 

FA 

B9 

03 

JM 

CHI100 

?NO - DO FULL PROCESSING 

1484 

0 35 8 

70 

• 

• 

MUV 

M, B 

?YES - CLEAR FLAG 

1485 

0359 

79 

• 

• 

mqv 

A,C 

; PUT INPUT CHARACTER IN A-RE 

1486 

0 35 A 

FE 

20 

9 

CPI 

CTLLIM 

; I S CHARACTER A CONTROL CODE 

1487 

0 35C 

FA 

A 8 

0 3 

JM 

CHI050 

; YES - CHECK FOR DISPLAY FCT 

148 8 

035F 

• 

• 

• 

t 

NO - DO EAST STORE 
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1490 

035F 

• 

• 

m 

• r 




1491 

035F 

• 

• 

. ; FAST 

STORE PROCESSING 

1492 

035F 

• 

* 

• 

» r 




1493 

035F 

• 

• 

. CHI010 

EQU 

$ 


1494 

035F 

2E 

6C 

• 

M VI 

L t SPOWL-BASE 

1495 

0361 

46 

• 

• 

MOV 

B,M 

; GET THE SPOW LATCH IN B-REG 

1496 

0362 

2 A 

C 3 

Ff 

LMLD 

CURADR 

; GET LAST CHAR DONE ADDRESS 

1497 

0365 

7E 

• 

• 

MOV 

A,M 

; GET LAST CHARACTER DONE 

1498 

0366 

B7 

• 

• 

ORA 

A 

; IS IT ASCII? 

1499 

0367 

FA 

B9 

03 

JM 

CHI100 

; NO - DO FULL PROCESSING 

1500 

036A 

2B 

• 

• 

DCX 

H 

;YES - GET NEXT CHARACTER 

1501 

036B 

7E 

• 

• 

MOV 

A,M 


1502 

036C 

B7 

• 

• 

ORA 

A 

; IS IT ASCII? 

1503 

036D 

F2 

8 D 

03 

JP 

CHI 020 

? YES - OVERLAY EXISTING CHAR 

1504 

0370 

FE 

CC 

• 

CPI 

EOL 

; IS IT EOL? 

1505 

0372 

C2 

B9 

03 

JNZ 

CHI 1 00 

; NO - DO FULL PROCESSING 

1506 

0375 

47 

• 

• 

MOV 

a, A 

; YES - SAVE EOL AND CLEAR 

1507 

0376 

2B 

• 

• 

DCX 

H 

; SPOW LAiCH COMPARE 

1508 

0377 

7E 

• 

• 

MOV 

A,M 

; GET NEXT CHARACTER 

1509 

0378 

FE 

C3 

• 

CPI 

FILL 

?IS IT AN END OF LINE FILL? 

1510 

037 A 

C2 

B9 

03 

JNZ 

CHI100 

;NO - DO FULL PROCESSING 

1511 

037D 

3A 

CO 

FF 

LDA 

CURROW 

; YES - ADD CHAR TO DISPLAY 

1512 

0380 

F 6 

40 

• 

OKI 

MAYEOL 

; SET DMA OFF WITH EOL SKIP 

1513 

0382 

F 3 

• 

• 

D1 


? DISABLE INTERRUPTS 

1514 

0383 

32 

20 

8 7 

ST A 

IOCRRW 

; TURN OFF DMA 

1515 

0386 

3E 

04 

• 

M V I 

A f RSTOFF 

? DISABLE RESET KEY 

1516 

0388 

32 

80 

83 

STA 

IOKBCO 


1517 

038B 

70 

• 

• 

MOV 

M,6 

? STORE NEW EOL 

1518 

038C 

23 

• 

• 

I NX 

H 

; SET TO 01, D EOL ADDRESS 



ITEM 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 
1 53t> 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 
155 7 
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ii 

ii 

ti 

ii 

il 

li 

ii 

ti 

li 

it 

ii 

li 

u 

il 

it 

il 

ii 

it 

038D 

• 

• 

• 

0 




0360 

• 

• 

• 

? ADO 

CHARACTER TU 

DISPLAY 

0380 

• 

• 

• 

9 




0 3 60 

• 

• 

• 

C H 1 0 2 0 

Egu 

$ 


0 38D 

79 

• 

m 


MOV 

A , C 

; RECALL THE INPUT CHARACTER 

0 3 8 E 

B8 

« 

• 


CMP 

B 

; STORE INHIBITED B i SPOW? 

0 3 8F 

CA 

03 

03 


JZ 

CHI030 

;YES - BIPASS STORE 

0392 

71 

• 

• 


MOV 

M t C 

; Mu - STORE 1HL dYIF 

0393 

• 

• 

• 

CH1030 

Egu 

$ 


0393 

CO 

9E 

OF 


CALL 

DISLN1 

; TURN DISPLAY BACK ON 

0396 

22 

C 3 

FF 


ShLD 

CURADR 

; STORE NEVi CURRENT ADDRESS 

0399 

21 

C8 

FF 


LXT 

H , lstcui 

; INCREMENT LSTCOL 

0 39C 

34 

• 

• 


I tv* R 

M 


0390 

CD 

05 

20 


CALL 

CUkADV 

; ADVANCE CURSOR 


0 3 AO 


• 

• 

CHI N T 2 - 

SET CURSOR 

COLUMN ON DISPLAY * 

0 3 AO 

• 

• 

• 

********** *#*****$4.* ♦***♦♦ ************** 

03 AO 

• 

• 

• 




0 3 AO 

• 

• 

# 

EXIT : 

Z TRUE 


03 AO 

• 

• 

• 


A DESTROY ED 


0 3 AO 

• 

• 

• 




0 3 AO 

• 

• 

. CHIN 1 2 EgU 

$ 


0 3 AO 

BP 

• 

• 

CMP 

A 


03A1 

3 A 

Cl 

FF 

LDA 

CURCOL 

; GET CURRENT CULUMn NUMBER 

0 3 A4 

3/ 

00 

87 

S I A 

IOC PCI* 

; SET DISPLAY CURSOR COLUMN 

0 3 A7 

C9 

• 

• 

RET 


; return 

03A8 

• 

• 

• 

* 

9 



03A8 

• 

• 

• 

; CONTROL 

CODE - CHECK 1 OR DISPLAY FUKC1IUNS 

0 3 A8 

m 

• 

• 

* 

9 



03A8 


• 

. CHI050 EgU 

$ 


0 3 A 8 

CD 

4 7 

10 

CALL CKDSPK 

; DISPLAY FUNCTIONS ENABLED* 

0 3 AB 

CA 

B9 

03 

JZ 

CHI 100 

; NO - DO FULL PROCESSING 

0 3AE 

79 



MOV 

M $ C- 

; YES - RECALL INPUT CHARACTE 

0 3 AF 

FE 

OD 

• 

CPI 

CR 

;IS IT RETURN CHARACTER? 

03B1 

CA 

B9 

03 

JZ 

CHI 100 

; YES - DO FULL PROCESSING 

03B4 

FE 

IB 


CPI 

ESC 

; IT IT An ESCAPE? 

0 3b6 

C 2 

5F 

03 

JNZ 

OHIO 10 

; n 0 - D 0 F A S X P ROC E S S I N G 

03B9 

• 

o 

• 

0 


YES - DO FULL PROCESSING 
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1559 

0309 

• 

• 

• 

• 

r 



1560 

0309 

• 

• 

• 

; FULL PROCESSING 


1561 

03B9 

• 

• 

• 

• 

r 



1562 

0309 

• 

• 

• 

CHINTl EQU 

$ 


1563 

0309 

• 

• 

• 

CHI100 EQU 

$ 


1564 

0389 

61 

0 

• 

MOV 

H,C 


1565 

038A 

69 

« 

• 

MOV 

L,C 

;SET "CHAR” AND "OCHAR" TO 

1566 

03BB 

22 

88 

FF 

SHLD 

CHAR 

/CURRENT CHARACTER 

1567 

O30E 

CD 

23 

20 

CALL 

CP AD V 1 

/CLEAR CURADV FLAG 

1568 

0 3C 1 

• 

• 

• 

/******************************* 

1569 

03C1 

• 

• 

• 

Z DETERMINE 

CHARACTER FUNCTION * 

1570 

03C1 

• 

• 

• 

•ft*********************** ******* 

1571 

0 3C1 

2 A 

D2 

FF 

LHLD 

RNGTA 

/GET CURRENT RANGE TABLE ADD 

1572 

0 3C4 

• 

• 

• 

;****************♦************* 

1573 

03C4 

• 

• 

• 

; ADVANCE TO NEXT TABLE ENTRY * 

1574 

03C4 


• 

• 

;****************************** 

1575 

0 3C4 

• 

• 

• 

CHI 1 1 0 EQU 

$ 


1576 

03C4 

23 

• 

• 

I NX 

H 


1577 

03C5 

23 

• 

• 

I NX 

ri 


1578 

03C6 

23 

• 

• 

INX 

rt 


1579 

03C7 

# 

• 

• 

•******¥****************************** 

1580 

03C7 

• 

• 

• 

Z COMPARE CHARACTER 

TO CURRENT RANGE * 

1581 

03C7 

• 

• 

• 

;********************+************♦*** 

1582 

03C7 

79 

• 

• 

MOV 

A , C 

/PUT CHARACTER IN A-REG1 STER 

1583 

03C8 

96 

• 

• 

SUB 

M 

/CHARACTER > = LOWER BOUND? 

1584 

03C9 

23 

• 

m 

INX 

H 

/(SET H,L TO UPPER BOUND) 

1585 

03CA 

DA 

C4 

03 

JC 

CHI 1 1 0 

/NO - ADVANCE TO NEXT ENTRY 

1586 

03C0 

07 

• 

• 

RLC 


/YES - DOUBLE DIFFERENCE AND 

1587 

0 3CE 

47 

• 

• 

MOV 

B f A 

/SAVE VALUE IN B-REGISTER 

1588 

03CF 

7E 

• 

• 

MOV 

A, M 

/GET UPPER BOUND 

1589 

0300 

B9 

• 

• 

CMP 

C 

/CHARACTER <= UPPER BOUND? 

1590 

03D1 

DA 

C4 

03 

JC 

CHI 1 1 0 

/NO - ADVANCE TO NEXT ENTRY 

1591 

0304 

• 

• 

• 

;♦*****♦***♦ *********************** ************* 

1592 

0304 

• 

• 

• 

; CHARACTER 

FUNCTION 

FOUND - GET FUNCTION ADDR * 

1593 

0304 

• 

• 

• 

;*********************************************** 

1594 

0304 

23 

• 

0 

INX 

H 


1595 

0305 

5E 

• 

0 

MOV 

E,M 

/PUT ADDRESS ENTRY IN 

1596 

03D6 

23 

• 

0 

INX 

H 

/A (= MSB) , E (= LSB ) 

1597 

0307 

7E 

• 

0 

MOV 

A,M 


1598 

0308 

E6 

7F 

0 

ANI 

177Q 

/MASK OUT HIGH ORDER BIT 

1599 

03OA 

57 

• 

0 

MOV 

D r A 

/(PUT NEw MSB INTO D-REG) 

1600 

03DB 

96 

• 

0 

SUB 

M 

/USE INDEX TABLE? 

1601 

03DC 

C2 

E5 

03 

JnZ 

CHI200 

/NO - USE AS FUNCTON ADDRESS 

1602 

030F 

68 

• 

• 

MOV 

L,B 

/YES - PUT DIFFERENCE IN H,L 

1603 

03E0 

67 

• 

• 

MOV 

H , A 

/(A = 0) 

1604 

03E1 

19 

• 

• 

DAD 

0 

/COMPUTE TABLE ADDRESS 

1605 

03E2 

5E 

• 

• 

MOV 

e,m 

/GET INDEX TABLE VALUE 

1606 

03E3 

23 

• 

• 

INX 

H 


1607 

03E4 

56 

• 

• 

MOV 

0, M 
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1 609 

03E5 

• 

• 

• 

•44444444444444444444444444444 

1610 

03E5 

• 

• 


; PERFORM CHARACTER 

FUNCTION * 

1611 

03E5 

• 

• 

• 

•444*444444444444444444*444444 

1612 

03£5 

• 

• 

• 

CH1200 EQU 

$ 


1613 

0 3 £5 

FB 

• 


XCHG 



1614 

0 3E6 

22 

CE 

FF 

SHLD 

CNTFAD 

; SET FUNCTION ADDRESS 

1615 

036,9 

06 

01 

• 

MVl 

b, 1 

; SET INITIAL FUNCTION INDEX 

1 6 1 6 

03EB 

26 

FF 

• 

M V I 

rt , BASEH 

? SET H TO DATA PAGE 

1617 

0 3 ED 

3E 

04 

• 

MV I 

A , RSTOFF 

;D1SABSF RESET key 

16 18 

0 3 EF 

32 

80 

83 

ST A 

XOKBCO 


1619 

0312 

• 

• 

• 

•444444444444444+4444444444444444444444444444444 

1620 

03F2 

CD 

CD 

FF 

CALL 

ECGNTF 

; EXECUTE CHARACTER FUNCTION 

1621 

0 31 5 

• 

• . 

• 

•444444444444444444444444444+4444444444444444444 

1622 

0 3FS 

CD 

A4 

OF 

C A t.E 

D ISDN 3 

? PE-EM ABLE RESET K EY 

162 3 

0 3F8 

CD 

4 7 

10 

CALL 

CKDStr'F 

; DISPLAY FUNCTIONS ENABLED? 

1624 

0 3FB 

C2 

OA 

04 

JWZ 

CHI2/0 

; YES - DON'T END ESCAPE SEW ' 

1625 

0 3 F E 

21 

D 1 

FF 

LaI 

H , ESCF LG 

? MU - CHhCK escape flag 

1626 

o40 1 

46 

• 

• 

MOV 

B,M 


1627 

04 02 

05 

• 

* 

OCR 

B 

; ESCAPE SEQUENCE IN PROGRESS 

1628 

04 0 3 

FA 

OA 

04 

JM 

CHI270 

; NO - DON'T CHANGE ESC FLAG 

1629 

0406 

70 

• 

« 

MOV 

M , B 

,*YES - UPDATE ESCAPE COUNTER 

1630 

04u7 

CC 

95 

04 

cz 

ESCEND 

; RESET RANGF TABLE POINTER 

1631 

04OA 

• 

• 

• 

9 


COUNTER BECAME ZERO 

1632 

040 A 

• 

m 

• 

CHI 27 0 FQI1 

$ 


1633 

040 A 

3 A 

88 

FF 

LuA 

CHAP 

;SAVE THc, LAST CHARACTER 

1634 

0400 

32 

69 

FF 

ST A 

LC H A K 

; PROCESSED 

1635 

0410 

BC 

• 

• 

CMP 

ri 

; SET Z FALSE 

1636 

0411 

C9 

• 

• 

RET 


; RETURN 
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it 
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tl 

ii 

1638 

0412 

• 

• 

• 

•ft******************************************** 

1639 

0412 

• 

• 

• 

J CHECK CONTROL CODES 

FOR BLOCK TERMINATOR OR * 

1640 

0412 

• 

• 

• 

; BLOCK TRANSFER TRIGGER * 

1641 

0412 

• 

• 

• 

.********************************************** 

1642 

0412 

• 

• 

• 

• 

f 



1643 

0412 

• 

• 

• 

; ENTRYl 

C = INPUT 

CHARACTER 

1644 

0412 

• 

• 

• 

• 

9 



1645 

0412 

• 

• 

• 

CHKCTL EgU 

$ 


1646 

0412 

3 A 

0 4 

50 

LDA 

BLKTRM 

; GET BLOCK TERMINATOR CHAR 

1647 

0415 

B9 

• 

• 

CMP 

C 

; INPUT = BLOCK TERMINATOR? 

1648 

0416 

CA 

BA 

oc 

JZ 

SFKYOS 

; YES - DISPLAY INPUT 

1649 

0419 

3A 

6E 

FF 

LDA 

DFLGS 

; GET TRANSFER FLAGS 

1650 

04 1C 

Ed 

01 

• 

ANI 

SDACOM 

; INPUT FROM DATA COMM? 

1651 

04 IE 

C8 

• 

• 

RZ 


; NO - DO NOTHING 

1652 

04 IF 

3A 

02 

50 

LDA 

TRIGGR 

; IS INPUT CHARACTER THE 

1653 

0422 

B9 

• 

• 

CMP 

C 

JBLOCK TRANSFER TRIGGER? 

1654 

0423 

CO 

• 

• 

RNZ 


; NO - DO NOTHING 

1655 

0424 

• 

• 

• 

9 



1656 

0424 

• 

• 

* 

CHKC'I 1 EQU 

$ 

; SET BLOCK TRANSFER r i RIGGER 

1657 

0424 

3E 

01 

• 

M VI 

A , SETTRG 

; GO TO DATA COMM ROUTINE TO 

1658 

0426 

C3 

42 

12 

JMP 

DCMCTL 

; SET BLOCK TRANSFER l’PIGGE 



ITEM 

1 06 0 
X 6b 1 
1662 
X 663 
X 664 
1665 
X 666 
X 66 / 
X 668 
1669 
X 67 0 
1 1>7 1 
X 6 7 2 
167 3 
1674 
167 6 

1676 

1677 
l o7 8 
1679 

1 to 6 0 
1681 
1 to82 

1683 
lb 84 
Lt>85 
1686 

1687 

1688 
l to 8 9 
1690 
1 to9 1 
1692 
1 to9 3 

1694 

1695 
lto96 

1697 

1698 

1699 
I7 0 o 

1701 

1702 
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II 
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II 

II 

0429 

• 

• 

• 

; * * * ***************************************** 


0429 

• 

• 

• 

; DSPTCH - 

DISPATCH 

pending bluck transfers * 


0429 

• 

• 

• 

a******************************************** 


0429 

• 

• 

• 

DSPTCH EQU 

$ 



0429 

3 A 

F8 

FF 

I, DA 

CMFLGS 

; GET COMMON FLAGS 


042C 

E6 

01 

• 

AN 1 

BLKTRG 

; BLOCK TRANSFER TRIGGER 

SET? 

042R 

C 8 

• 

• 

RZ 


; NO - RETURN 


042F 

3 A 

70 

FF 

LD A 

MFLGS 

; YES - RELEASE ANY PENDING 

0432 

21 

51 

04 

LX I 

ri , DSPTAB 

; BLOCK TRANSFERS 


0435 

OF 

0 8 

• 

mV I 

C , NMpNDG 




0437 

• 

• 

• 

? 




0437 

• 

• 

• 

DSP010 

EQU 

$ 


0437 

Ot 

• 



RFC 


; TRANSFER PENDING Bll SET? 

04 38 

DA 

40 

04 


jc: 

DSP020 

; YES - GU DO TRANSFER 

0436 

23 


• 


I NX 

n 

; NO - Chk.Cn NEXT BIT 

043C 

23 

• 

• 


I W X 

H 

; INCREMENT FONCTICw TABLE AD 

043D 

00 

• 



OCR 

C 

?all bits checkfd? 

0 4 3 E 

C 2 

37 

04 


JNZ 

DSP010 

;NU - CONTINUE CHECKING 

U 4 4 1 

• 

• 

• 

9 




0 441 

3 A 

tot 

FF 


Li) A 

MFLGS2 

; YES - CHECK 2ND SET OF FLAG 

0444 

OF 

• 

• 


RRC' 


; DEVICE RECORD PENDING? 

04 4 5 

DA 

23 

28 


JC 

10RDG0 

; YES - SEND I/O RECORD 

0448 

OF 

• 

• 


RRC 


; 81 MAR? DATA PENDING? 

0449 

DA 

29 

28 


DC 

BNRYGO 

; YES - TRANSMIT THE DATA 

0 44C 

C9 


• 


RET 


;N U - RETURN 


044D 

0440 

0440 


PENDING BIT FOUND - GO TU TRANSMIT FUNCTION * 


0440 

• 

• 

• 

DSP020 

EQU 

$ 



0 4 4D 

CD 

6D 

19 


CALL 

CHAIN 

; GET TRANSMIT FUNCTION ADDR 

0450 

E9 

• 

• 


PCHL 


; GO TO 

THE FUNCTION 

0451 

• 

• 

• 

• 

9 





0451 

• 

• 

• 

DSPTAB 

EQU 

$ 



04 51 

28 

12 

• 


Ow 

DC 2 GO 

?send 

DC 2 

0453 

F 9 

OC 



n a 

STATGO 

? SEND 

TERMINAL STATUS 

0455 

12 

26 

• 


D w 

STA2G0 

; SEND 

TERMINAL STATUS 2 

0457 

ID 

2b 

• 


l) w 

IOSTGO 

; send 

I/O STATUS 

0459 

E4 

1 1 

• 


Dto 

CPSNGO 

; SEND 

CURSOR ADDRESS 

0456 

51 

14 

• 


Dw 

FKEYGO 

;SEND 

FUNCTION KEY DATA 

045D 

3B 

13 

• 


Dw 

DPSGO 

; SEND 

U I SPL A t DATA 

045F 

20 

2 8 

• 


D fi 

10DNG0 

; send 

1/0 1ERMT NATTOim CODE 

0461 

• 


• 

} 





0008 

• 

• 

• 

NMPNDG 

EQU 

C $ -DSPTAB ) /2 
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ssssss 

ii 

H 

ii 

ii 

ii 

ii 

:::: 

s::s 



ii 

ii 

n 

ii 

II 

II 

li 

ti 

li 

ii 

H 

ii 

ii 

ii 

it 

it 

M 

11 

II 

ii 

ii 

*i 

ii 

ii 

it 

ii 

li 

li 

li 

ii 

li 

it 

ii 

it 

li 

ii 

ii 

ii 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 48 




s sss 

• 35SS 

ii 

N 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 


SSSSSSS:5S3SSS3S53SStSS3:S5SS 

1704 

0461 

• 

• 

• 


****************************** 

1705 

0461 

• 

• 



ESCAPE CHARACTER PROCESSING * 

1706 

0461 

• 

• 

• 


****************************** 

1707 

0461 

# 

• 

• 

ESCAPE EQU 

$ 


1708 

0461 

3 A 

6E 

FF 


LDA 

DFLGS 


17 09 

0464 

E6 

01 

9 


ANI 

SDACQM 

; DATA FROM DATACOM? 

1710 

0466 

CA 

73 

04 


JZ 

ESC010 

; NO - DON'T LOCK KEYBOARD 

1711 

0469 

3 A 

F 3 

FF 


LDA 

MDFLG2 

; YES - GET MODE FLAGS 

1712 

04bC 

£6 

02 

• 


ANI 

blkmde' 

; BLOCK MODE? 

1713 

046F 

3E 

08 

• 


MVI 

A , ESC INP 

; (PUT IGNORE FLAG IN A-REG 

1714 

0470 

C4 

39 

17 


CNZ 

SETMF2 

; YES - SET IGNORE KFVBD FLAG 

1715 

0473 

• 

• 

• 

ESC010 EQU 

$ 


171b 

0473 

CO 

8C 

19 


CALL 

CHKSFK 

; SOFT KEV MODE? 

1717 

0476 

21 

9A 

26 


LX C 

H , ESCT AB 

; ( SET FOR NORMAL ESC TABLE 

1718 

0479 

CA 

81 

04 


JZ 

ESCAPO 

; NO - SET RANGE I ABLE 

1719 

047C 

21 

86 

26 


LX I 

H , SESCTB 

;YES - USE SOFT KEV TABLE 

1720 

047F 

• 

• 

• 


*************** ******************************** 

1721 

047F 

• 

• 

• 


ESCAPO - 

SET RANGE 

TABLE FOR ESCAPE SEQUENCE * 

1722 

047F 

• 

• 

• 


.*****************************************♦*+*** 

1723 

0 4 7 F 

• 

« 

• 





17 24 

047F 

• 

• 

• 


ENTRY; 

A = RADIX 

(BASE) FOR DIGIT PARAMETERS 

1725 

047F 

• 

• 

• 



H , L = ADDRESS OF NEW RANGE TABLE 

1726 

04/F 

• 

• 

• 





1727 

047F 

• 

• 

• 


EXIT ; 

H , L = ESCFLG 

1728 

047F 

• 

• 

• 





1729 

047F 

• 

• 

• 


ESCAPA - 

USE DECIMAL RADIX 

1730 

047 F 

* 

• 

• 





1731 

047F 

• 

• 

• 

ESCAPA EQU 

S 


1732 

04 7 F 

3£ 

0A 

• 


MVI 

A , DECRDX 

; SET RADIX FOP BASE 10 DIGIT 

1733 

0481 

• 


• 

ESCAPO EQU 

$ 


1734 

0481 

32 

D4 

FF 


STA 

RADIX 

;SET PARAMETER RADIX 

17 35 

0484 

22 

D2 

FF 


SHLD 

RNGTA 

; SET NEW RANGE TABLE 

1736 

0487 

• 

• 

• 

ESCAPB EQU 

S 

; ENTRY TO CLEAR ACCUMULATOR 

1737 

0487 

21 

DD 

FF 


LX I 

H t IOCSGN 

;CLEAR OUT THE PARAMETER 

1738 

048 A 

IE 

03 

• 


MVI 

E r 3 

; ACCUMULATOR AREA 

1739 

048C 

CD 

FF 

10 


CALL 

CLRAL1 


1740 

048F 

• 

• 

• 

ESC API EQU 

$ 


1741 

048F 

21 

D1 

FF 


LX I 

H f ESCFLG 

; SET FLAG TO RESET At TER 

1742 

0492 

36 

02 

• 


MVI 

M , 2 

; FOLLOWING CHARACTER 

1743 

0494 

C9 

m 

• 


RET 


? RETURN 



ITEM 

1745 

1746 

1747 
17 48 

1749 
17 50 

1751 

1752 

1753 
1/54 
17 55 

1750 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 
1 7 6 7 
1 7 68 

1769 

1770 
1 7 7 1 
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LOC 

OBJECT 

CODE 

source: statements 

PAGF 49 

0495 

• 

• 

• 

************** ******** ************************ 

0495 

• 

• 


; tSCEND - 

END OF ESCAPE SEQUENCE PROCESSING * 

0495 

• 

• 

» 

;********************************************* 

0495 

• 

• 

• 

ESCEND EQU 

$ 


0495 

21 

64 

2o 

LXI 

H , RTABLE 

;SET FUR NORMAL RANGE T A 6 L 

0498 

CD 

8C 

19 

CALL 

CHKSFK 

; SOFT KEY MODE ? 

0498 

CA 

A 1 

04 

JZ 

ESCENl 

; Nu - JSE NORMAL TABLF 

049E 

21 

60 

2o 

LXI 

H , DFsTBO 

;YES - USE SOFT KEY TABLE 

04 A 1 

• 

• 

• 

bSCF.nl EDU 

$ 


04A1 

22 

D2 

FF 

SHLL) 

RNGTA 

; RESET RANGE TABLF POINTER 

04 A4 

AF 

• 

• 

XR A 

A 

? CLEAR ESCAPE FLAG AND 

04A5 

3 2 

D 1 

FF 

ST A 

ESCFLG 

; ESCAPE KEYBOARD LOCKOUT 

04A8 

3E 

E7 

• 

MVI 

A,377Q-ESC1NP ; FLAG 

Q4A A 

• 

• 

• 

.^^♦**** ****************** *********** 

0 4 AA 

• 

• 

• 

J CLRMF2 - 

CLEAR FLAG 

BIT IN MFLGS2 * 

04AA 

• 

• 

• 

************** *********************** 

0 4 AA 

• 

• 

• 

9 



04A A 

• 

• 

• 

; ENTRY; 

A = 37 76 - 

FLAG BIT TO bE CLEARED 

04AA 

• 

• 

• 

9 



04 AA 

• 

• 

* 

; exit ; 

A = UPDATED 

MFLGS2 VALUE 

04 AA 

• 

• 

• 

• 

9 

H,L = MFLGS2 

04 A A 

• 

• 

• 

• 

9 



04 AA 

• 

• 

• 

CLKMt-2 EOU 

$ 


04 AA 

21 

6F 

FF 

LXI 

H f MFLGS2 


04 AD 

Ao 

• 

• 

A N A 

M 

? CLEAR THE FLAG BIT 

04AE 

77 

• 

• 

MOV 

M , A 

; SI ORE NEW SETTINGS 

04 AF 

C9 

• 

• 

RET 


? return 



1 3255* 

90003 

Rev 

AUG-01- 

76 



ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 50 

1773 

04B0 

• 

• 

• 

» 

9 



1774 

04B0 

• 

• 

• 

• 

9 

* * * * * 

****************** * 

1775 

04B0 

• 

• 

• 

• 

9 



1776 

0460 

• 

• 

• 

9 

FNDRAM - 

LOCATE END OF RAM SPACE 

1777 

04B0 

• 

• 

• 

9 



1778 

0460 

• 

• 

• 

9 

9 

ENTRY 

S B = MSB OF RAM SPACE LOWER LIMIT 

1779 

0460 

• 

• 

• 

• 

9 


H,L = ADDR OF UPPER BOUNDARY 

1780 

0400 

m 

• 

• 

w 

9 



1781 

04B0 

• 

• 

• 

9 

EXIT 

: H,L = ADDRESS OF LOWER BOUNDARY 

1782 

0460 

• 

• 

• 

m 

9 


A DESTROYED 

1783 

0460 

• 

• 

• 

• 

9 



1784 

04B0 

• 

• 

• 

FNDRAM eon 

$ 

1785 

0460 

AF 

• 

• 


XRA 

A 

17 86 

04B1 

6F 

* 

• 


MOV 

L , A ;SET ADDRESS'S LSB TO ZERO 

1787 

0462 

77 

• 

• 


MQV 

M , A ;SET RAM LOCATION TO ZERO 

1788 

04B3 

BE 

• 

• 


CMP 

M ? ALL ZEROES STORED? 

1789 

04B4 

C2 

C4 

04 


JNZ 

FRM010 ;NU - RAM LIMIT FOUND 

1790 

04B7 

35 

• 

• 


DCR 

M ; YES - TRY TO SET TO ALL ONE 

1791 

04B8 

34 

• 

• 


INR 

M JALL ONES STORED? 

1792 

0469 

C2 

C4 

04 


JNZ 

FRM010 ;N0 - RAM LIMIT FOUND 

1793 

04BC 

7C 

* 

• 


MOV 

A,H ? YES - MOVE TO NEXT IK 

1794 

04BD 

D6 

04 

• 


SUI 

4 

1795 

O40P 

67 

• 

• 


MOV 

H, A 

1796 

04C0 

88 


• 


CMP 

B ; RAM LIMIT PEACHED? 

1797 

04C1 

F2 

BO 

04 


JP 

FNDRAM ; NO - TRY NEXT IK 

1798 

04C4 

• 

• 

• 

• 

9 



1799 

04C4 

• 

• 

• 

9 

9 

RAM LIMIT 

FOUND - RETURN LOW BOUNDARY 

1800 

04C4 

• 

• 

• 

9 

9 



1801 

04C4 

• 

• 

• 

FRM010 EQU $ 


1802 

04C4 

7C 

• 

• 


MOV 

A,H ; ADJUST H,L TO TRUE LOWER 

1803 

04C5 

C6 

04 

• 


ADI 

4 ? BOUNDARY 

1804 

04C7 

E6 

FC 

• 


ANI 

3740 ; MASK FOR IK START ADDRESS 

1805 

04C9 

67 

• _ 

• 


MOV 

H, A 

1806 

04CA 

C9 

• 

* 


RET 

; RETURN 
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II 

II 

II 

II 



li 

it 

li 

it 







ITEM 

LUC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 51 

ibOb 

04CB 

• 

• 

• 

r 





1809 

04CB 

* 

• 

• 

0 

9 

* * * 

* * 

♦ * * + * 

************** 

11810 

04CB 

• 

• 

• 

© 

9 





11811 

04CB 

• 

• 

• 

0 

getbdf - 

GET BUFFER SPACE 

11812 

04CB 

• 

• 

# 

9 

9 





Id 13 

04CB 

• 

• 

• 

9 


ENTRY 

: B , C = 

LENGTH JF BUFFER REQUIRED 

11814 

04CB 

• 

• 

# 

* 

9 





31815 

04CB 

* 

• 

• 

m 

9 


EXIT 

: A , H , L 

DESTROYED 

1810 

04CB 

• 

• 

• 

9 



P - BUFFER SPACE ALLOC AT AED 

1817 

04CB 

• 

• 

• 

V 



D,E 

= BUFFER START ADDRESS 

1818 

04CR 

* 

• 

• 

9 



M - BUFFER SPACE NOT ALLOCATED 

11819 

04CB 

• 

• 

• 

9 



D,E 

DESTROYED 

18 20 

04CB 

• 

• 

• 

9 





1821 

04CB 

• 


• 

f 

ThIS 

ROUTINE ALLOCATES A CONTIGUOUS AREA UF 

1822 

04CB 

• 

• 

• 

9 

RAM. THE BUFFER 

SPACE MAX NOT START UN A 

1823 

0 4CB 

• 

• 

• 

9 

9 

256 BYTE PAGE BOUNDARY. 

1824 

04CB 

• 

• 

• 

9 





18 25 

04CB 

• 

• 

• 

GFTBUF 

FQU $ 



118 2o 

04CR 

2 A 

8 B 

FF 



LHLD 

BUFF NO 

; GET CURRENT BUFFER END AND 

182 1 

04CE 

1 1 

8E 

FF 



LX I 

D , BUFBGN + 1 ; ADDRESS OF BEGIN PTR'S MS 

1828 

0401 

CD 

F 2 

04 



CALL 

GTB1 00 

; ENOUGH SPACE? 

1829 

0404 

FA 

DD 

04 



JM 

GTB010 

; NO - TRY DISPLAY APEA 

18 30 

0407 

22 

B B 

FF 



SHLU 

BUFEND 

; YF.S - STORE NEW BuFFFR END 

1831 

04DA 

• 

• 

• 

GTB0U5 

EvU 

$ 


13 32 

040A 

EB 

• 

• 



XCHG 


? SET D,K TO LOW ADDPESS 

1833 

04 OB 

13 

• 

• 



I NX 

U 

; OF buffer 

11834 

0 40C 

C9 

• 

• 



RET 


; RETURN 

1835 

04 DO 

• 

• 

• 

* 

9 





1830 

040D 

• 

• 

• 

* 

0 

NUT 

ENOUGH NON-DISPLAY RAM - TRY DISPLAY AREA 

1183 7 

0 4DD 

• 

• 

• 

* 

9 





18 38 

0400 

• 

• 

• 

GTB010 

F;gn 

s 


18 39 

040D 

2 A 

A8 

FF 



LHLD 

L SPEND 

; GET CURRENT DISPL AY END AND 

1840 

04E0 

1 1 

AB 

FF 



LXI 

D , DSPBGN+ 

1 ; ADOR UF BEGIN PTH 'S MSB 

1841 

04E3 

CO 

Fz 

04 



CALL 

GTB100 

; ENOUGH SPACE? 

18 42 

04E6 

22 

A 8 

FF 



SOLD 

DSPEND 

; (STUPE NEW DISPLAY END 

18 43 

04E9 

F 2 

DA 

04 



JP 

GTB005 

? Y E S - RETURN BUFFER ADDRESS 

1844 

04 EC 

21 

27 

OF 



LXI 

H,BUKMSG 

; NU - REPORT ERROR 

18 45 

04EF 

C 3 

54 

12 



JMP 

HAwGUO 


1846 

0 4F 2 

• 

• 

• 

9 





1847 

04F2 

• 

• 

• 

♦ 

9 

G1B100 - 

CHECK FOR 

AVAILABLE SPACE 

11848 

04F2 

• 

• 

• 

♦ 

9 





1849 

0 4F2 

• 

• 

• 

GTbl 00 

pgu 

$ 


1850 

04F2 

70 

• 

• 



MOV 

A , L 

; SUBTRACT DESIRED SPACE 

1851 

0 4F3 

91 

• 

• 



SUB 

C 

; FROM END OF REGION 

18 52 

04F 4 

6F 

• 

• 



MU V 

L , A 


185 3 

04F5 

7C 

• 

• 



MOV 

A , H 


1854 

04F6 

98 

♦ 

• 



SBR 

B 


1855 

0 4 F 7 

67 

• 

• 



MOV 

H, A 


1856 

04F8 

EB 

• 

• 



XCHG 


; COMPARE NEW MSB OF END TO 

185 7 

04F9 

BE 

• 

• 



CmP 

M 

?MSB OF BEGINNING 

1858 

04FA 

EB 

• 

• 



XCHG 


; PUT NEW END ADDRESS IN H , L 

1859 

04FB 

C9 

• 

• 



RET 


; RETURN (P = ENOUGH) 
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1 B61 

0 4FC 




; *************************** *************** 

1862 

04FC 


• 

• 

; GETDCM - 

PROCESS DATA COMM INPUT IF ANY * 

1863 

04FC 

• 

• 

• 

. ****************************************** 

1864 

04 EC 

• 

• 

• 

9 

9 



1865 

04EC 

• 

• 

• 

; ENTRY: 

DON'T CARE 


1866 

04FC 

• 

• 

• 

9 



1867 

04FC 


• 

• 

? EXIT : 

NC 


1868 

04FC 




• 

NZ - DATA COMM INPUT BUFFER EMPTY 

1869 

04FC 




• 

9 

Z - EXIT ON 

FULL INPUT PROCESSING 

1870 

04FC 

• 

• 

• 

9 

ALL REGISTERS DESTROYED 

1871 

04FC 

• 

• 

• 

• 

9 



1872 

04FC 


• 

• 

GETDCM EOU 

$ 


1873 

04FC 

3A 

FJ 

FF 

LDA 

MDFLG2 

; GET HARD MODE FLAGS 

187 4 

04FF 

E6 

08 

• 

AM 

REMOTE 

? REMOTE MODE ENABLED? 

1 875 

05o 1 

3 A 

F8 

FF 

LDA 

CMFLGS 

; (GET COMMON FLAGS) 

1876 

0504 

CA 

44 

05 

JZ 

GDC 100 

; NO - IGNORE DATA COMM 

1877 

0507 

Fo 

10 


ANI 

REMSET 

; to AS REMOTE ON BEFORE? 

1878 

0509 

CC 

E2 

13 

CZ 

EN 1 REM 

; NO - SET REMOTE MODE 

1879 

050C 

• 

• 

• 

.********************** 

1880 

05uC 

• 

• 

• 

; GET DATA 

COMM INPUT 

♦ 

1881 

050C 

• 

• 

• 

*********************** 

1882 

050C 

• 

• 

• 

GDC010 EQU 

$ 


1883 

050C 

CD 

17 

50 

CALL ZGETDC 

; AN Y DATA COMM INPUT? 

1884 

05QF 

DA 

36 

05 

JC 

GDC050 

; (PROCESS ERROR IF ANY) 

1885 

0512 

CO 


• 

RNZ 


; NO - RETURN 

1886 

0513 

4F 

• 

• 

MOV 

C,A 

; YES - SAVE INPUT INTO C-REG 

1887 

0514 

• 

• 

• 

*************************** 

1888 

0514 


• 

• 

; PROCESS DATA COMM INPUT * 

1889 

0514 

• 

• 

• 

. + 4 * 4 .*** ******************* 

1 890 

0514 



• 

GDC020 EQIJ 

$ 


1891 

0514 

CD 

OF 

17 

CALL SETDFO 

; SET DATA COMM INPUT FLAG 

1892 

0517 

3A 

F 4 

FF 

LDA 

MDFLG1 

; GET SOFT MODE FLAGS 

1893 

051 A 

E6 

40 


ANI 

RECORD 

; RECORD MODE ENABLED ? 

1894 

05 1C 

CA 

2A 

05 

JZ 

GDC030 

; NO - PROCESS THE INPUT 

189b 

051F 

79 

• 

• 

MOV 

A,C 

; YES - LOOK FOR RECORD TRIGG 

1896 

0520 

FE 

OD 

• 

CPI 

CR 

; INPUT = RETURN? 

1897 

0522 

CA 

2 A 

05 

JZ 

GDC030 

; YES - PROCESS THE CHARACTER 

1898 

0525 

FE 

OA 

• 

CPI 

LF 

; IS IT LINE FEED? 

1899 

0527 

C2 

26 

28 

JNZ 

RCRDGO 

; NO - EXECUTE RECORD FUNCTIO 

1900 

052A 



• 

GDC0 30 EOU 

$ 

;YES - PROCESS THE CHARACTER 

1901 

052A 

CD 

50 

03 

CALL CHINT 

? PERFORM INPUT PROCEDURE 

1902 

052D 

CA 

OC 

05 

JZ 

GDC010 

; FAST STORE - DO SHORT LOOP 

1903 

1904 

0530 

0530 

• 

• 

• 

• 

• 

GET DC 1 EgU 

$ 

; SET THE DISPLAY CURSOR 

1905 

0530 

CD 

9E 

OF 

CALL DI5LN1 

; SET DISPLAY CURSOR ROW AND 

1906 

0533 

C3 

AO 

03 

JMP 

CHINT2 

; COLUMN AND EXIT Z-TRUfc, 



ITEM 

LOC 

1908 

05 36 

1909 

0536 

1910 

0536 

1911 

0536 

1912 

0536 

1913 

0539 

1914 

053C 

1915 

05 3 F 

191b 

0541 

1917 

0544 

1918 

0544 

1919 

05 44 

1920 

0544 

1921 

0544 

1922 

0544 

1923 

0546 

1924 

0549 

1925 

054 A 
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it 

ii 

ii 

it 

ii 

ii 

k 

it 

ii 

n 

ii 

;? 

II 

Ii 

ii 

II 

it 

ii 

H 

it 

fi 

sssssisrsssssssssssssssssssss: 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE; 5 3 

ii 

it 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 


it 

it 

ii 

it 

ii 

II 

it 

ii 

a 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ti 

ii 

ii 

•i 

ii 

it 

ii 

it 

it 

• 

• 

• 

********************************* 

• 

• 

• 

? PROCESS DATA CDMM 

INPUT ERROR * 

• 

• 

• 

********************************* 

• 

• 

• 

GDC 050 EDO 

$ 


C 2 

54 

12 

JNZ 

HANGUO 

; REPORT AND HANG It- FATAL 

CD 

47 

1 0 

CALL 

CKDSPF 

; DISPLAY FUNCTIONS ENABLED? 

CC 

95 

04 

CZ 

ESCEND 

; NU - FORCE ESC SEy ABORT 

OE 

7F 

* 

MV/ 1 

C , ADEL 

; FORCE RUBOUI CHARACTER TO 

C 3 

14 

05 

JMP 

GDC 020 

; BE DISPLAYED 



; NO L IN REMOTE rtOOF - SE T TO LOCAL IF NUT * 
; IN LOCAL MOO £ ALREADY * 



E6 10 . 

C4 C7 13 
3C . 

C9 . 


GDC 100 EQU S 

An I KEMSET 
CNZ LNTLCL 
I NR A 
RET 


; FIRST TIME IN LOCAL? 

; YLS - SET TO LOCAL MODE 

; force; z false 

; RET UR N N 0 D A T A C 0 M M J [\j p U [ 
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Rev 
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H 

it 

li 

il 

H 

it 

if 

il 

il 

il 

il 

n 

li 

ii 

li 

ii 

li 

li 

it 

ii 

ii 

ii 

ii 

K 

ti 

u 

ii 

ii 

it 

n 

n 

ii 

il 

ii 

ii 

ii 

ii 

li 

il 
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OBJECT 
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1927 

0S4B 

• 

• 

• 

*********************************** 

1928 

054B 

• 

• 

• 

; GTBLk - GET A NEW DISPLAY BLOCK * 

1929 

0548 

• 

• 

• 

;********************************** 

19 30 

0546 

• 

• 

• 

• 

9 



1931 

0548 

• 

• 

• 

; entry: 

DON'T CARE 


1932 

054B 

• 

• 

• 

• 

9 



1933 

0546 

• 

• 

• 

; EXIT : 

Z - NO BLOCKS AVAILABLE (MEMORY LOCKED) 

1934 

05 4 8 

• 

• 

• 

• 

9 

ALL REGISTERS DESTROYED 

1935 

054B 

• 

• 

• 

• 

9 

NZ - BLOCK 

ALLOCATED 

1936 

054B 

• 

• 

• 

9 

9 

B,A = H,L 

= ADDRESS OF CHARACTER 

1937 

0548 

• 

• 

• 

• 

9 

PRECEDING NEXT BLOCK LINK IN BLUCK 

1938 

054B 

• 

• 

• 

* 

9 

C,D,E DESTROYED 

1939 

054B 

• 

• 

• 

• 

9 



1940 

054B 

• 

• 

• 

GTBLKF EQU 

$ 

; GET block fop single CHAR I 

1941 

054B 

3E 

C 3 

• 

M VI 

A, FILL 

;SET FILL CHARACTER TO FILL 

1942 

054D 

• 

• 

• 

• 

9 



1943 

054D 

• 

• 

• 

GTBLK EOU 

$ 


1944 

0540 

32 

8F 

FF 

STA 

FILCHF 

; SAVE FILL character 

1945 

0550 

2 A 

AC 

FF 

LHLD 

FR6LKS 

; get pointer to first 

1946 

0553 

EB 

• 

• 

XCHG 


J FREE BLOCK IN D f E 

1947 

0554 

7B 

• 

• 

MOV 

A , E 

; PUT LS8 OF LINK IN A-REG 

1948 

0555 

B 7 

• 

• 

ORA 

A 

; ANY BLOCKS AVAILABLE? 

1949 

0556 

CC 

13 

06 

CZ 

PTBLK 

? NO - RELEASE BLOCKS 

1950 

0559 

CA 

07 

OB 

JZ 

MLOCK 

; And FORCE MEMORY LOCK ON 

1951 

055C 

Ed 

FO 

# 

ANI 

J77Q-BLKSM 

; COMPUTE ADDRESS OK 

1952 

055E 

6E 

• 

• 

MUV 

L, A 

? NEXT BLOCK LINK 

1953 

055F 

62 

• 

• 

MOV 

H , D 


1954 

0560 

7E 

• 

• 

MOV 

A,M 

; GET LSB OF NEXT BLOCK LINK 

1955 

0561 

4F 

• 

• 

MUV 

C,A 

; SAVE LSB IN C-REG1STER 

1956 

0562 

2F 

• 

• 

CMA 


; END OF LINE LINK (LOWER 

1957 

0563 

E6 

OF 

• 

ANI 

BLKSM 

; FOUR BITS * ALL ONES)? 

1958 

0565 

CA 

76 

05 

JZ 

GBL100 

; NO - RELEASE NEXT BLOCK 

1959 

0568 

• 

• 

• 

********************** 

******** 

1960 

0568 

• 

• 

• 

; RELEASE LAST BLOCK OF LINE * 

1961 

0568 

• 

• 

• 

.*****************************, 

1962 

0568 

13 

* 

« 

INX 

D 

; SET H,L TO LSB PART OF PREV 

1963 

0569 

13 

• 

• 

I NX 

D 

; LI NE LINK 

1964 

056A 

6B 

• 

• 

MUV 

L , E 


1965 

056B 

CD 

6D 

19 

CALL 

CHAIN 

? GET PREV LINE ADDR IN H,L 

1966 

056E 

22 

AC 

FF 

SHLD 

FRBLKS 

; SET AS NEw FREE BLOCKS HEAD 

1967 

0571 

42 

• 

m 

MOV 

b , D 

; PUT CURRENT BLOCK ADDRESS 

1968 

0572 

76 

• 

9 

MOV 

A, E 

; IN B , A 

1969 

05 7 3 

C3 

84 

05 

JMP 

GBL200 

; FILL BLOCK WITH FILL CHARS 
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ii 

I) 

it 

ii 

It 

u 

it 

li 

ii 

it 

ii 

it 

it 
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it 

ii 

M 
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1971 

0576 

• 

• 

. ;***************************** 

1972 

0576 

• 

• 

. ? RELEASE NEXT BLOCK 

OF LINE * 

1973 

0576 

• 

• 

. ;***************************** 

1974 

0576 

• 

• 

. GBL100 EQ.U 

$ 


1975 

0576 

23 

• 

• 

I NX 

H 

? GET MSB OF NEXT BLOCK LINK 

1976 

0577 

4o 

• 

• 

MOV 

6,M 


1977 

0578 

2B 

• 

• 

DCX 

H 

; RESTORE H,L TO ADDRESS OF 

197 8 

05 7 9 

• 

• 

• 7 


UF LSB PART IN FIRST BLOCK 

1979 

0579 

79 

• 

• 

MU V 

A,C 

? COMPUTE ADDRESS OF NEXT 

1980 

05 /A 

E6 

FO 

• 

AN I 

377Q-BLKSM ;BLOCK LINK IN SECOND BLOC 

1981 

057C 

4F 

• 

• 

MOV 

C,A 


1982 

0570 

OA 

• 

• 

IDA A 

B 

; TRANSFER NEXT BLOCK LINK UF 

1983 

057 E 

7 7 

• 

• 

MOV 

M,A 

; SECOND BLOCK TO NEXT BLOC 

198 4 

05 7 F 

03 

• 

• 

J NX 

6 

?HNn in FIRST BLOCK 

1985 

0580 

23 

• 

• 

I NX 

H 


1986 

0581 

OA 

• 

• 

LD A X 

B 


198 / 

0582 

77 

• 

• 

MOV 

Mr A 


1988 

0583 

79 

• 

• 

MOV 

A f C 

; SET A-REG1STER FOR "BLNKFL" 

1989 

0584 

• 

• 

• 

>******************************************* 

1990 

0584 

• 

• 

• 

F ILL BLOCK 

WITH specified fill character * 

1991 

0584 

• 

• 

• 

******************************************** 

1992 

0584 

• 

• 

• 




1993 

0584 

• 

• 

• 

B,A = ANY 

ADDRESS 

Jiv bLUCK 

1994 

0584 

• 

• 

• 

F1LCHR = 

CHARACTER 

TO FILL BLOCK WITH 

1995 

0584 

• 

• 

• 




1 99o 

0584 

• 

• 

. 6RL200 EDU 

$ 


1997 

0584 

F’6 

OF 

• 

OR l 

BLKSM 

;SET H , L TO ADDRESS OF LAST 

1998 

0586 

6F 

• 


MOV 

L f A 

; DISPLAY CHARACTER F0SIT10 

1999 

0587 

60 

• 

• 

MOV 

H, B 

? IN BLOCK 

2000 

0588 

OE 

OD 

• 

MV I 

C t BLKSZ-3 

* SET FILL COUNT 

2001 

058 A 

3 A 

8F 

FF 

LD A 

F1LCHR 

; GE I THE FILL CHARACTER 

2002 

0580 

• 

• 

. GBL210 FDU 

$ 


2003 

0580 

7 7 

• 

• 

MOV 

M, A 

; STORE THE FILL CHARACTER 

2004 

058E 

26 

• 

• 

DCX 

H 

; MOVE TO NEXT BYTE 

2005 

058F 

OD 

• 

• 

OCR 

C 

? block fill completed? 

2006 

0590 

C2 

80 

05 

JNZ 

GBL210 

; NO - CONTINUE FILLING 

2007 

0593 

77 

• 

• 

MOV 

M, A 

? YES - WRITE LAST PAD 

2008 

0594 

7D 

• 

• 

MOV 

A , L 

; SET B, A TO EXIT ADDRESS 

2009 

0595 

B7 

• 

• 

ORA 

A 

; SET NZ 

2010 

0596 

C 9 

• 

• 

RET 


; RETURN 
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2012 

0597 

2013 

0597 

2014 

0597 

2015 

0597 

2016 

0597 

2017 

0597 

2018 

0597 

2019 

0597 

2020 

0597 

2021 

0597 

2022 

0597 

2023 

0597 

2024 

0597 

2025 

0597 

2026 

0597 

2027 

0597 

2028 

0597 

2029 

0597 

2030 

0597 

2031 

0599 

2032 

059C 

2033 

059F 

2034 

05A2 

2035 

05 A3 

2036 

05A6 

2037 

05A7 

2038 

05A9 

2039 

05AB 

2040 

05AC 

2041 

05 AD 

2042 

05AE 

2043 

05AF 

2044 

05B1 

2045 

05B2 

2046 

0563 

2047 

0584 

2048 

0565 

2049 

05B6 

2050 

0568 

2051 

05B9 

205 2 

05BA 

2053 

05BB 

2054 

05BE 

2055 

05BF 


.**************************** 

; GTNWLN - START A NEW LINE * 

; *;^***:M ****** ************** 

; ENTRY; LLINE = ADDRESS OF PREVIOUS LINE 

; EXIT ! NZ - NO BLOCKS AVAILABLE (MEMORY LOCK) 

; ALL REGISTERS DESTROYED 

; Z - LINE ALLOCATED 

H,L = ADD R OF FIRST CHAR IN NEW LINE 

? LLINE = ADDR OF LSB PART OF NEXT LINE 

; POINTER IN I HE NEw LINE 

A-E DESTROYED 


; NEW LINE IS LINKED 
; LINE EXISTS (I.E.# 


• 

• 

• 

GTNWLN EQU 

$ 

3E 

CO 

• 

M V I 

A f STPR 

32 

C5 

FF 

STA 

LSTFMT 

CD 

4B 

05 

CALL 

GTBLKF 

CA 

01 

OB 

JZ 

NZEXIT 

EB 

• 

• 

XCHG 


2 A 

A1 

FF 

LHLD 

LLINE 

EB 

• 

• 

XCHG 


F6 

OF 

• 

OR I 

BIKSM 

Db 

02 

• 

SUI 

2 

2B 

• 

• 

DC X 

H 

70 

• 

• 

MOV 

M,B 

2D 

4 

♦ 

DCR 

L 

77 

• 

• 

MOV 

M,A 

C6 

02 

• 

ADI 

2 

6F 

• 

• 

MOV 

L t A 

72 

• 

• 

MOV 

M , D 

2B 

• 

• 

PCX 

H 

73 

• 

• 

MOV 

M f E 

2B 

• 

• 

OCX 

H 

36 

CE 

• 

M V I 

M f EOF 

2B 

• 

• 

DCX 

H 

AF 

• 

• 

XRA 

A 

7 7 

• 

• 

MOV 

M , A 

22 

A1 

FF 

SHLD 

LLINE 

2B 

• 

• 

DCX 

H 

CD 

68 

OD 

CALL 

STCHR1 


TO PREVIOUS LINE IF PREVIOUS 
LSB OF PREV LINE, ADDR ft 0) 


; SET LAST FORMAT CONTROL COD 
; TO START PROTECT 
; GET A BLOCK FROM FREE LIST 
? RETURN NZ IF NO BLOCKS 
;D,E = NEW BLOCK ADDRESS 
; GET ADDRESS OF PREVIOUS 
JUNE IN D,E 

; COMPUTE ADDRESS OF LSB PART 
; OF NEXT LINE LINK 
; STORE ADDRESS INTO NEXT 
; BLOCK LINK 

; (USE DCR TO AVOID CARRY) 

; SET ADDRESS TO MSB PART OF 
; PREVIOUS LINE LINK 
; SET PREVIOUS LINE LINK TO 
; POINT TO OLD LINE 


; SET NEXT LINE LINK TO M EOP" 
; SET TERMINATOR (LSB s 0) 

; STORE NEW LAST LINE ADDRESS 
; SET FIRST DISPLAY CHARACTER 
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2057 

0502 

• 

• • 


2058 

05C2 

• 

• • 

? LINK NEW LINE BACK 

TO PREVIOUS LAST LINE * 

2059 

05C2 

# 

• # 

********* * * * * * * * * ******* ******** ************ 

2060 

05C2 

B3 

• • 

Of! A E 

/PREVIOUS LINE EXIST (LSB#0) 

2061 

05C3 

C 8 

• • 

ftZ 

JNO - RETURN 

2062 

05C4 

EB 

• • 

XCHG 

?YES - LINK NEW LINE TO 

206 J 

05C5 

7i 

• • 

MOV M,E 

; PREVIOUS LINE 

2o64 

05C6 

2 3 

• • 

1 w X rt 


2065 

05C7 

7 2 

• • 

MUV M , D 


206b 

05C8 

EB 

• • 

XCHG 

; restore h,l 

2 00 7 

05C9 

BE 

• • 

CMP A 

?SET Z TRUE 

2068 

05CA 

C 9 

• • 

RET 

? RETURN 



1 i 2 5 5 1 

ITEM 

2u7o 
207 1 
207 2 
207 i 

207 4 
2o 7 5 
20 7b 
2 u 7 7 

2078 

2079 
2u80 
2081 
200 2 

208 3 
2 0 8 4 

2085 

2086 
2 0b / 
20 8 8 

2089 

2090 

209 1 
2092 
2 09 3 
2 0 9 4 
209b 
209b 
2097 
209 8 

2099 

2100 
2101 
2102 


90003 Pev A(JG-0t-7b 
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05CB 
05CB 
05CB 
05CB 
05CB 
05CB 
0 5 C 6 
05C8 
05CB 
05CB 
05CB 
05C8 


* * ** * * * * 4 * * * * 4 ■ * 4 * * * 4 * * * 4 * 4 * 4 4 4 * * 4 * * 4 4 4 4 4 4 
IB ITUS - SET UP INITIAL DISPLAY VALDES * 


EXIT : H,L, = ADDRESS OK THE LSB PART GK THE 

NEXT LINE POINTER IN THE INITIAL 
DISPLAY BLOCK 
A DESTROYED 


THIS ROUTINE ALLOCATES THE INITIAL LINE OK 
THE DISPLAY AND INITIALIZES THE DISPLAY 

parameters: 


05CB 

05CB 

Q5CP 

05CB 

05CB 

05CB 

05CB 

05CB 


DISPST,CURADR = ADuRESo OF THE FIRST DISPLAY 
CHARACTER IN I*Hl INITIAL DISPLAY BLOCK 

TSTlIn ,1 LINE, TOPLIN = ADDRESS OF THE I, SB 
PARI OF THE NEXT bine pointer IN THE 
INITIAL DISPLAY BLOCK 


05CB 

• 

• 

• 

05CB 

• 

• 

• 

05CB 

• 

• 

• 

05CB 

CD 

9 7 

05 

OSCE 

22 

EE 

KE 

0501 

22 

C 3 

EE 

05U4 

23 

• 

• 

05D5 

22 

C9 

FF 

05D8 

22 

9F 

FF 

05DB 

72 

CB 

FE 

OSDE 

3E 

4E 

• 

OSEO 

3 1 

BE 

FF 

05E3 

C 9 

• 

• 


; RHTMGN 

= MAXCOL 

! 

IMTDS EgU 

$ 

CALL 

G TNWL M 

Sh LL 

DISPsT 

ShLd 

CURADR 

I N X 

H 

SHLD 

LSTLIN 

S H L D 

KLINE 

SHLD 

TOPLIN 

MV1 

A, MAXCOL 

ST A 

bHlMGN 

PET 



C = 7 9 J 


; GET INITIAL DISPLAY BLOCK 
; SET THE DISPLAY POINTER 

/AND THE CURRENT ChAR ADdR 


; SET ThE CURRENT LINE 
; PARAMETERS 

; IN JTIALTZE THE RIGHT MARGIN 
;TO THE Lt A S T COLUMN 
; RETURN 



1 rEM 

2104 

2105 

2106 
2107 

2 108 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 
/ 1 2 1 
2122 
2123 
2 12 4 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 
213o 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 
214b 

2147 

2148 

2149 

2150 

2151 
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05E4 
0564 
056 4 
0564 
0564 
0564 
05t4 
0564 
0564 
0564 
05nv4 
0564 
0564 
0564 
0564 
0564 
0564 
0564 

0567 
05 69 

05 EC 
056F 
05EF 
056F 
05EF 
056F 
Q5F2 
05F5 

0568 
056 A 
056C 
056F 

06 OO 
0603 
06g4 
0607 

0609 
06o A 
060A 
060 A 
060 A 
060 A 
Q6 u A 
060A 
06 0 A 
060 A 
060D 

0610 


********jM**** ♦♦******♦**♦*♦ ******** 
LOCl.il N - PROCESS LOCAL DATA E N X R Y 4 
************************************ 

ENTRY; C = INPUT CHARACTER 

(CHAPIN) = KEY B(J ARP INPUT COPE 


EXIT 


ALL REGISTERS DESTROY ED 


THIS ROUTINE PROCESSES INPUT CHARACTERS FROM 
KEYBOARD. THE ROUTINE DETERMINES WHETHER OR 
NOT THE CHARACTER SHOULD BE TRANSMITTED OR 
processed LOCALLY 

LOCblO - PROCESS FUNCTIONAL KEY INPUT 


LOCLIO FOU 


3 A 

FB 

FF 

LDA 

66 

01 

• 

A w I 

CC 

47 

1 0 

Cl 

CA 

OA 

Oo 

JZ 

• 

• 

• 

• 

• 

p T T TTTTTTTT 

; TRANSMIT < 

« &£*£***£&* 

• 

• 

# 

• 

• 

p TTTTTTTT ~ T 

LOC LI W EQU 

CD 

8C 

19 

call 

C* 

OA 

Ob 

ONZ 

3 A 

F3 

FF 

LDA 

Eb 

OA 

• 

AMI 

F.6 

08 

• 

XRI 

C2 

OA 

Ob 

JNZ 

79 

• 

• 

MOV 

CD 

Cl 

17 

CALL 

06 

• 

• 

RC 

3 A 

FC 

FF 

LDA 

Eb 

80 

• 

AN I 

CO 

• 

• 

RnZ 


K8JMPR ; GET << EYbOARu JUMPERS A-H 
CONDI S ; DISPLAY ALL FUNCTIONS OR 
CKDSPF ; DISPLAY FUNCTIONS ENABLED 

LC 1050 ; NO - PROCESS LOCALLY ONLY 

IF IN REMOTE CHARACTER MODE * 


CHKSFK ; SOFT KEY DEFINE f **UDE? 

LC 1050 ; YES - PROCESS LOCALLY ONLY 

MDFLG2 ;NO - GET HARD MODE FLAGS 
rfkote+blkmde 

REMOTE ? REMOTE AND NOT BLOCK MODE? 
LC 105 0 ;NU - PROCESS LOCALLY ONLY 
A,C ;YES - RECALL THE INPUT 

XPuTDC ; OUTPUT 1H6 CHARACTER 

; (RETURN IF OUTPUT ERROR) 
KRDCS'W i 061 THE DATA COMM SWITCHES 

FULDUP ; FULL DUPLEX? 

; YES - RETURN 

• NO - PROCESS INPUT LOCALLY 
***************************** 

; PROCESS THE INPUT LOCALLY * 

* *********************** f * * * * * 

9 

; INPUT CHARACTER IN C-REGISTER 


; FORM AT/SOFT KEY DEFINE MODE 
; YES - FORCE FULL PROCESSING 
; NO - 1ST TRY FAST PRCCESSIN 


• 

• 

• 

LCI050 EfcU 

$ 

CD 

7b 

19 

CALL 

CHKFMS 

C 2 

B9 

03 

JN21 

CHI Nil 

C 3 

50 

03 

JMP 

CHINT 



13255 


ITEM 


2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 
2ld5 

2 1 6 b 

2167 

2 1 b8 

2169 

2170 

2171 
217 2 

2173 

2174 

2175 
217b 

2177 

2178 

2179 

2180 
2181 
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0613 
0613 
0613 
0613 
0613 
061 3 
0613 
0613 
0613 
0613 
0613 
0613 
0613 
0613 
0613 
0613 
0613 
06 1 3 
0616 

0619 
06 1 C 
06 lC 
06 1 F 

0620 
06 2 3 
06^6 
0629 
06 2 A 
0620 


• 

« 

m 

m 

• 

• 

PTBLh - RELEASE A 

LINE TO THE FREE LIST FPUM * 

• 

• 

• 

THE DISPLAY LIST 

* 

• 

• 

• 

•**t*=M***************************************** 

• 

• 

• 

• 

• 

• 

Entry : 

DON'T CAPE 

• 

• 

• 

• 

• 

• 

EXIT ; 

Z - LINE 

NO 1 released 

• 

• 

• 


NC - MEMORY LOCKED 

• 

♦ 

# 


C - OUTPUT FAILED EOF EDIT MODE 

• 

• 

• 


ALT. REGISTERS DESTROYED 

• 

• 

• 


N Z - LINE 

RELEASED 

• 

• 

• 


d , e = address of Fir th byte from 

* 

• 

• 


A = E 


• 

• 

• 


B , C , H , L 

DESTROYED 

« 

• 

• 

• 

• 

• 

J TbLK FgU 

$ 


CO 

81 

19 

CALL 

CHMuK 

; MEMORY LOCK ENABLED? 

CA 

07 

06 

JZ 

MLUCK 

; YES - FLAG MEMORY FULL 

CD 

47 

Ob 

CALL 

PI6100 

; Switch display paramf ieks 

• 

• 

• 



IF IN SOFT KEY M 0 D E 

3 A 

9 A 

Fir 

LDA 

NRQWS 

; get number of po*s needed 

B 7 

• 

• 

MKA 

A 

;NE*- HOwS BEING ADDED? 

CC 

4D 

tu 

CZ 

CREDIT 

; Nu - EDIT MODE? 

C 2 

51 

Oo 

JNZ 

PTB2O0 

; YES - RELEASE TUP LINE 

2 A 

C9 

EF 

LuLD 

LSI LIN 

; f' 0 - GET CURRENT LI NE Aj DR 

Bb 

« 

• 

Oka 

M 

currently in rut; last line 

CA 

51 

06 

JZ 

P T b 2 0 0 

; YES - RELEASE TUP LINE 


Im Q - RELEASE BOTTOM LINE) 
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2183 

062D 

• 

* 

• 

******************************* 

2184 

0620 

• 

• 

• 

; RELEASE LAST LINE 

UF DEMUR I * 

2185 

062D 

• 

• 

• 

; UPDATE LAST LINE 

POINTER * 

2186 

0 6 2 D 

• 

• 

• 

******************************* 

218 7 

062D 

2 A 

A 1 

FF 


LHLD 

LL1NE 

; GET LAST LINE ADDRESS 

2188 

0630 

2 3 

• 

• 


IN X 

H 

; GET PREVIOUS LINE ADDRESS 

2189 

0631 

23 

• 

• 


I NX 

H 


2190 

0632 

5E 

• 

• 


MOV 

E,M 


2191 

0633 

23 

• 

• 


I N X 

H 


2192 

0634 

56 

• 

• 


MOV 

D f M 


2193 

0635 

EB 

• 

• 


XCBG 



2194 

06 36 

22 

A 1 

FF 


SriLD 

LLINE 

; SET PREV lJnF AS LAST LINE 

2196 

0639 

« 

• 

• 

;***************************** 

2196 

0639 

• 

• 

• 

; STORE 

EOF 

IN NEW 

LAST LINE * 

2197 

0639 

• 

• 

• 

;***************************** 

2198 

0639 

3b 

00 

• 


MV I 

M , 0 

; SET TERMINATOR CODE IN 

2199 

063B 

23 

• 

• 


I N X 

H 

?NfcW LASi line 

2200 

063C 

3 b 

CE 

• 


MV I 

H,EOP 


2201 

063E 

IB 

• 

• 


DC X 

D 

; SET D,F TO Pi j 1 N 1 TO I, SB PAR 

2202 

063F 

IB 

m 

• 


DC X 

D 

; N E X T LINE POINTER IN OLD 

2 20 3 

0640 

IB 

• 

• 


OCX 

D 

; LAST LINE 

2204 

0641 

C 3 

8C 

Ob 


JMP 

P T B 3 0 0 

; ADD LINE 10 FREE LIST 

2206 

0644 

• 

• 

• 

;********* **************** ****** ********** 

2206 

06 44 

• 

• 

• 

; PTB10O - 

SET PROPER UISPLAl PARAMETERS * 

220 7 

06 4 4 

• 

• 

• 

;****** 

* * ♦♦ 

******** 

*********************** 

2208 

0644 

• 

• 

• 

PTB090 

F.gu 

S 

; I/O OUTPUT FAIL EXIT 

2209 

0644 

CD 

19 

OB 


CALL 

MLK010 

; CLEAR RUNS ALLOCATED FLAG 

2210 

0647 

• 

• 

• 

PTBIUO 

EDO 

$ 


2211 

0647 

CD 

8C 

19 


CALL 

CHKSFK 

; SUFI K E i DEFINE MODE? 

2212 

06 4 A 

37 

• 

• 


STC 


;(SE1’ C-FLAG FOR I/O FAIL) 

2213 

064B 

C 2 

68 

21 


JNZ 

SWAP 1 

; YES - SvV AP DISPLAY FARMS 

2214 

0 6 4 E 

C9 

• 

• 


RET 


;NO - RETURN 

2216 

064F 

00 

• 

• 


NOP 


; M N OP'S " FOR PATCH TO "Pl/72 

2 216 

0650 

00 

• 

• 


NOP 
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3533 


============= 

ii 

ii 

M 

II 

II 

II 

II 

H 

II 

u 

ii 

ti 

it 

ii 

it 

ii 

ii 

ii 

*i 

ii 

ii 

ii 

it 

ii 

n 

ii 

ii 

ii 

ii 

it 

it 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 62 

~ 5 3 X 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

•*3 33 

5335 

===== 

============= 


============================= 

2218 

065 1 

• 

• 

• 

.********** ********* ************ 

2219 

0651 

• 

• 

• 

? RELEASE FIRST LINE 

OF MEMORY * 

2220 

0651 

• 

• 

• 

•ft***************************** 

2221 

0651 

• 

• 

• 

PTB200 EQU $ 



2222 

0651 

2 A 

CB 

FF 

LHLD 

TOPLIN 

; GET TOP LINE ADDRESS 

2223 

0654 

23 

• 

• 

INX 

H 

; SET FOR PREVIOUS LINF 

2224 

0655 

23 

• 

• 

I NX 

H 

; ADDRESS 

2225 

0656 

7E 

• 

• 

MOV A 

t M 


222b 

0657 

B7 

• 

• 

ORA A 

• 

9 

TOP LINE = FIRST LINE? 

2227 

0658 

C2 

71 

06 

JNZ PTB220 ; 

FIRST LINE IS NOT TOP LINE 

2228 

065B 

• 

• 

• 

.********************************************** 

2229 

065B 

• 

• 

• 

? TOP LINE OF DISPLAY 

IS FIRST LINE OF MEMORY * 

2230 

065B 

• 

• 

• 

; DO ROLL-UP 

* 

2231 

065B 

• 

• 

• 

.***♦******************* *************** ******** 

2232 

0658 

21 

CO 

FF 

LX I 

H,CURROW 


2233 

065E 

3 A 

6B 

FF 

LDA 

MLKRQW 

,’USER WORKING IN FIRST 

2234 

0661 

BE 

• 

• 

CMP 

M 

? UNLOCKED HOw? 

2235 

0662 

C4 

27 

OC 

CNZ 

ROLLUP 

? NO - ROLL UP DISPLAY 

2236 

0665 

CA 

04 

OB 

JZ 

MLOCKO 

; POLL UP FAIL - LOCK MEMORY 

22 3 7 

0668 

21 

CO 

FF 

LX I 

H #CURROW 

; DECREMENT CURSOR ROW 

2238 

066B 

46 

• 

• 

MOV 

B r M 


2239 

066C 

05 

• 

• 

DCR B 



2240 

0660 

FA 

71 

06 

JM PTR220 ; 

DON'T STORE IF ROw = 0 

2241 

0670 

70 

• 

• 

MOV V 

r B 


2242 

0671 

• 

• 

• 

.***************************** 

2243 

0671 

• 

• 

• 

; ADVANCE FIRST LINE 

POINTER * 

2244 

0671 

# 

• 

• 

. ***************************** 

2245 

0671 

• 

• 

• 

PTB220 EOU 

s 


2246 

0671 

2 A 

9F 

FF 

LHLD 

FLINE 

; GET ADDRESS OF FIRST DISPLA 

2247 

0674 

EB 

• 

• 

XCHG 


; LINE 

2248 

0675 

CD 

4D 

10 

CALL 

CREDIT 

? EDIT MODE ENABLED? 

2249 

0678 

C4 

32 

28 

CNZ 

PTTPLN 

; YES - TRY TO OUTPUT LINE 

2250 

06 7 B 

DA 

44 

Ob 

JC 

PTB090 

; OUTPUT FAILED - RETURN FAIL 

2251 

067E 

EB 

• 

• 

XCHG 


; PUT ADDRESS BACK INTO D , E 

2252 

067F 

5E 

• 

• 

MOV 

E , M 

? GET ADDRESS OF NEW FIRST 

2253 

0680 

23 

• 

• 

INX 

H 

? FT R5T LINE 

2254 

0681 

56 

• 

• 

MOV 

D,M 


2255 

0682 

13 

• 

• 

INX 

D 

; SET TO NEXT LINE POINTER 

2256 

0683 

EB 

• 

• 

XCHG 



2257 

0684 

22 

9F 

FF 

SHLD 

FLINE 

? STORE AS NEW FIRST LINE 

2258 

0687 

• 

• 

• 

.****************************** *************** 

2259 

0687 

* 

• 

• 

; CLEAR PREVIOUS LINE PNTR IN NEW FIRST LINF * 

2260 

0687 

• 

• 

• 

;********************************************* 

2261 

0687 

23 

• 

• 

INX 

H 

; ADVANCE TO PREVIOUS LINE 

2262 

0688 

23 

• 

• 

INX 

H 

; POINTER 

2263 

0689 

36 

00 

• 

M V I 

M , 0 

; ZERO LSB TO FLAG AS TOP LIN 

2264 

068B 

IB 

• 

• 

DCX 

D 

;SET D , E TO LSB OF NEXT LINE 

2265 

068C 


• 

♦ 

• 

9 


POINTER IN LINE TO BE 

2266 

068C 

• 

• 

• 

• 

9 


RELEASED 
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ITEM LOC OBJECT CODE 

2268 068C 

2269 Q68C 

2270 068C 

2271 068C 

2272 068C 

2273 066C D5 . 

2274 0680 CD 47 06 

22 7b 0690 01 


SOUPCF STATEMENTS 

******************************* 
; RELEASE LINE * 

; L,E = START ADDRESS OF LINE * 
************************* ****** 


PAGF 63 


PTB300 E<2U $ 

PUSH D ;SAVE REGISTERS D,E 

CALL PTB100 ; RESTORE PROPER DISPLAY FARM 

POP D ; RESTORE D , E 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

H 

11 

11 

II 

11 

II 

II 

II 

II 

II 

H 

If 

II 

tt 

II 

It 

II 

II 

II 
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ITEM 

LOC 

OBJECT 

CODE SOURCE STATEMENTS 

PAGE 64 

— 

it 

ii 

n 

ii 

ii 

It 

11 



ii 

H 

II 

II 

11 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 


ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

n 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

1! 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

2277 

0691 

• 

• 

• 

********* ************************ 

2278 

0691 

• 

• 

• 

PUTLIN - 

ADD LINE 

TO FREE LIST * 

2279 

0691 

• 

• 

• 

.********************************* 

2280 

0691 

• 

• 

• 




2281 

0691 

• 

• 

• 

ENTRY: 

D,E = ADDRESS 01 NEXT LINE FIELD'S LSB 

2282 

0691 

• 

• 

9 


OF LINE 

TO BE RELEASED 

2283 

0691 

• 

• 

9 




2284 

0691 

9 

• 

9 

EXIT ; 

D * E UNCHANGED 

2285 

0691 

• 

• 

9 


A = E 


2286 

0691 

• 

• 

9 


Z FALSE 


2287 

0691 

• 

• 

9 


H,L DESTROYED 

2288 

0691 

• 

• 

9 


FREE BLOCKS LIST UPDATED TO INCLUDE 

2289 

0691 

• 

• 

• 


RELEASE 

LINE 

2290 

0691 

• 

• 

• 

> 



2291 

0691 

• 

• 

. PUTLIN FOU 

$ 

; RESET MEMORif LUCKED FLAG 

2292 

0691 

CD 

CO 

10 

CALL 

MLKOF 

2293 

0694 

2 A 

AC 

FF 

LHLD 

FRBLKS 

; GET CURRENT FREE BLOCKS HEA 

2294 

0697 

EB 

• 

• 

XCHG 


; SET H,L TO MSB PART OF NEXT 

2295 

0698 

22 

AC 

FF 

SHLD 

FPBLKS 

; SET FREE BLOCKS POINTER TO 

2296 

069B 

7D 

• 

• 

MOV 

A, L 

? RELEASED LINE 

2297 

069C 

23 

• 

• 

I NX 

H 

; PUT PREVIOUS FREE BLOCKS 

2298 

069D 

23 

• 

• 

I NX 

H 

; HEAD INTO PREVIOUS LINE 

2299 

069E 

73 

• 

• 

MOV 

M , E 

; POINTER OF RELEASED LINE 

2300 

069F 

2C 

« 

• 

INR 

L 

; ( USE INR 10 FORCE NZ) 

2301 

06 AO 

72 

• 

• 

MOV 

M,D 


2302 

0 6 A 1 

EB 

• 

• 

XCHG 

; RELEASED LINE ADDRESS IN D, 

2303 

06A2 

5F 

• 

• 

MOV 

E , A 

;SET A = E 

2304 

06A3 

C9 

• 

• 

RET 


; RETURN 
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II 

II 

II 

II 

II 

» 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

It 

H 

II 

II 

11 

II 

Ii 

II 

II 

II 

II 

tl 

II 

it 

II 

II 

if 

tl 

tl 

II 

II 

II 

ii 

(1 

ii 

II 

li 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

tl 

ll 

ll 

ll 

ITEM 

LUC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 65 

2306 

06 A 4 

• 

• 

• 

.***************♦******♦**♦*******♦*********** 

2307 

06 A 4 

• 

• 

♦ 

; RCADRA - 

LOCATE CURRENT CURSOR POSITION . * 

2 30 8 

06A4 

• 

• 

• 

; IF BUS I T ION EXIST 

- DON'T EXTEND DISPLAY * 

2309 

06A4 

• 

• 

• 

;*** + ******♦*♦♦ * * * ******* ************** ♦*♦♦*** 

2310 

06 A4 

• 

• 

* 




2311 

06A4 

• 

• 

• 

; ENTRY: 

DON'T CARE 


2312 

06A4 

• 

• 

• 

• 

9 



2313 

06 a4 

# 

m 

♦ 

; EXIT : 

SEE "RCA DDR" 

2314 

06A4 

• 

• 

• 

• 

9 



2315 

06A4 

• 

• 

• 

RCADRA EQU 

$ 


231o 

06 A4 

CD 

23 

20 

CALL 

C RAD V 1 

; CLEAR CURSOR ADVANCE FLAG 

2317 

06 A7 

3E 

01 

• 

M V I 

A t IGNTRM 

; SET TO IGNORE NUN-DISPLAY IN 

2318 

06A9 

32 

6D 

FF 

ST A 

TRMFCT 

; TERMINATOR 

2319 

06 AC 

• 

. 

• 

RCADHB EQU 

3 


2320 

06 AC 

36 

FF 

• 

M V I 

A , 37 7 Q 

; SET "bLKFIL" TO INHIBIT 

2321 

06AE 

32 

91 

FF 

ST A 

6LKFIL 

JL1NE EXTENSION 

2322 

0661 

C3 

B8 

06 

JMP 

RCADR2 

; LOCATE CURSOR POSITION 

2323 

06B4 

• 

• 

# 

;*********** $ * * mtn 

***** ***************** 

2324 

06B4 

• 

• 

• 

; LOCATE ADDR CORRESPONDING TO ROW/CULUMN * 

2325 

0664 

• 

• 

• 

; DO NOT ADD ROWS IF 

RUN DUES NO 1 EXIST * 

2 32o 

0664 

• 

• 

• 

********** ********************************* 

2327 

06B4 

• 

• 

• 

RC ADR 1 EyU 

S 


2328 

06 w4 

AF 

• 

• 

XRA 

A 

;SET TO LOCATE COLUMN 0 

2329 

0665 

32 

Cl 

FF 

SI A 

CURCuL 

; T N DESIRED ROW 

2330 

0668 

« 

• 

• 

EChDR 2 EyU 

3 


2331 

0668 

3 A 

Cl 

FF 

LUA 

CURCGL 

; GET THE CURRENT COLUMN 

2332 

066B 

• 

# 

* 

RC ADR3 EQU 

$ 


2333 

06BB 

21 

9 A 

FF 

LXI 

6 , NRUWS 

; SET "NROWS" TO INHIBIT 

2334 

066E 

3b 

FF 

• 

M V I 

M, 3770 

? BUI DOING OF NEw ROWS 

2 335 

06C0 

CD 

06 

07 

CALL 

RCADRO 

; F I N 0 CHARACTER ADDRESS 

2336 

06C3 

21 

9A 

FF 

LXI 

H , NRGWS 

; RESET BUILD INHIBIT FLAGS 

2337 

06C6 

36 

no 

* 

MV I 

M,0 

; WITHOUT CHANGING PPOCESSO 

2338 

06C8 

26 

91 

• 

MVI 

L , BLKF1L- 

BASE ; FLAGS 

2339 

06 CA 

36 

0 0 

• 

MV 1 

M , 0 


2340 

06CC 

C9 

• 

• 

RET 


; RETURN 
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ITEM 

LOC 

OBJECT 
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2342 

06CD 

• 

• 

• 

;************************** ********************** 

2343 

06CD 

• 

• 

• 

RCADP4 - GET ADDRESS OF FIRST CHARACTER AFTER * 

2344 

06CD 

• 

• 

• 

AFTER PREVIOUS ROW AND COLUMN * 

2345 

06CO 

• 

• 

• 

f********************* ********************* ****** 

2346 

06CD 

• 

• 

• 


234 7 

06CD 

• 

• 

• 

ENTRY: CURROW = CURRENT ROW 

2348 

06CD 

• 

• 

• 

CURCOL = CURRENT COLUMNN 

2349 

06CD 

• 

• 

• 

’ 

2350 

06CD 

• 

• 

• 

EXIT : Z - CHARACTER FOUND 

2351 

06CD 

• 

• 

• 

C = COLUMN NUMBER 

2352 

06CD 

• 

• 

• 

D,E = CHARACTER ADDRESS 

2353 

06CD 

• 

• 

• 

IF FORMAT MODE ENABLED 

2354 

06CD 

• 

• 

• 

B = -1 , CHARACTER PROTFCTED 

2356 

06CD 

• 

• 

• 

# -1, CHARACTER NUT PROTECTED 

2356 

06 CD 

* 

• 

• 

OTHERWISE , B DESTROYED 

2357 

06CD 

• 

• 

• 

A,H,L DESTROYED 

2358 

06CD 

• 

• 

• 

NZ - CHARACTER NOT FOUND 

2359 

06CD 

• 

• 

• 

ALL REGISTERS DESTROYED 

2360 

06CD 

• 

• 

• 


2361 

06CD 

• 

• 

. RCADR4 EQU $ 

2362 

06CD 

3 A 

Cl 

FF 

LDA CURCOL ; GET CURRENT COLUMN NUMBER 

2363 

06D0 

30 

• 

• 

OCR A ; SET FOR PREVIOUS COLUMN 

2364 

06D1 

CD 

BB 

06 

CALL RCADR3 ;DGES CHARACTER EXIST 

2365 

06D4 

CO 

• 

• 

RNZ ; NO - RETURN 

2366 

06D5 

4F 

• 

• 

MOV C,A ? YES - SAVE COLUMN FOUND IN 

236/ 

0606 

OC 

• 

• 

INR C ; ADVANCE TO NEXT COLUMN 

2368 

0607 

CO 

87 

OB 

CALL NXTCHP J GET NEXT CHARACTER 

2369 

060 A 

CO 

76 

19 

CALL CHKFMS ;FOPMAT/SOFT KEY DEFINE MODI 

2370 

06DD 

47 

• 

• 

MOV B,A ; (SET B TO INDICATE NOT 

2371 

060E 

• 

• 

• 

PROTECTED IF NUT FORMAT) 

2372 

060E 

• 

• 

• 

NEXT STATEMENT RETURNS) 

2373 

060E 

c« 

• 

• 

RZ ; NO - RETURN 
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OBJECT 

CODE 

SOURCE STATEMENTS PAGE t>7 

2375 

060P 

• 

• 

<s»sss« 

• 

• 

9 

2376 

ObDF 

• 

• 

• 

? FORMAT MODE - SEE Ii* NEXT ASCII CHAR PROTECTED 

237 7 

06 DF 

• 

• 

• 

• 

9 

237b 

06DF 

CD 

65 

10 

CALL CKPROT ? PREVIOUS CHAR PROTECTED? 

2379 

06E2 

CA 

F7 

06 

JZ RCA440 ; YES - SEE IF NEXT CHAR UNPR 

2380 

06t5 

• 

• 

• 

;********************¥*********** 

2381 

06E5 

• 

• 

• 

; LAST char WAS unprotected * 

2382 

06E5 

• 

• 

• 

; SEE IF NEXT CHAR IS PROTECTED ♦ 

2383 

06E5 

• 

• 

• 

;*****¥*¥♦****************♦*♦***♦ 

2384 

06E5 

CD 

9D 

IE 

CALL FNDCHO ; IS NEXT CHARACTER PROTECTED 

2385 

0 6 E 8 

C 2 

F7 

06 

JNZ RCA440 ? YES - SEE IF NEXT IS UNPRUT 

2386 

06EB 

2 A 

C 3 

FF 

LHLD C (JkADR ?NQ - RECALL CURRENT CHAR 

238 7 

06 EF 

f;b 

• 

• 

XCHG ; ADDRESS AND PUT INTO D , E 

2388 

06EF 

• 

• 

• 

RC401O EQU $ 

2389 

06EF 

CD 

8 / 

OB 

CALL NXTCHR ; GET NEXT DISPLAY CHARACTER 

2390 

0 6 F 2 

06 

00 

* 

MV I 6,0 ? SET B FOR NOT PROTECTED 

2391 

06 F 4 

C 3 

02 

07 

JMP RCA460 ?F XI i CHARACTER FOUND 

2392 

06F7 

. 

• 

• 

;:M* I********************* ********** 

2393 

06F 7 

• 

• 

# 

; PROTECT CHAR FOUND ♦ 

2394 

06F7 

• 

• 

* 

; SEE IF SUBSEQUENT UNPROTECT CHAR * 

2395 

06F7 

m 

• 

• 

;*********************************** 

2396 

06F7 

• 

• 

• 

RCA440 EQU $ 

2397 

06 F 7 

21 

C2 

Cl 

LX I H f ENuPR*2564XM0NLY ; IS NEXT CHARACTER 

2398 

06FA 

CD 

AO 

IE 

CALL ENOCH ; AN UNPROTEC l UR XMIT ONLY 

2399 

06FO 

C2 

EF 

06 

JNZ RC4010 ;YES - RETURN UNPROTECTED 

2400 

0 7 o 0 

06 

FF 

• 

M VI B,-l ; NO - RETURN CHAR PROTECTED 

2401 

0702 

• 

• 

• 

KCA460 EQU $ 

2402 

07o2 

21 

Cl 

FF 

I.XI H,CURCUL 

2403 

0705 

4E 

• 

• 

MOV C,M ; RECALL CURSOR COLUMN 

2404 

0 7 06 

• 

• 

• 

• 

9 

2405 

0 7 06 

# 

• 

• 

; ZRETRN - RETURN WITH Z-FLAG TRUE 

2406 

07u6 

• 

• 

• 

• 

9 

240 7 

07 06 

• 

• 

• 

ZRETRN EQU $ 

2408 

0 7 06 

AF 

• 

• 

XRA A ; SET ZERO FLAG 

2409 

0707 

C9 

• 

• 

RET ; RETURN 
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2411 

0708 

9 

• 

• 


************************************** *********** 

241 i 

07u8 

m 

• 

• 


RCADDR - DETEPMIwF LOCATION UK ASCII CHARACTER * 

2413 

0708 

* 

• 

• 


AT SPECIFIED ROW AND COLUMN UF DISPLAY LIST * 

2414 

0708 

• 

• 

9 


********* **************************************** 

2415 

0708 

• 

• 

• 



2416 

0708 

• 

• 

9 


ENTRY: C URKO W r C ORCUL = DESIRED ROW/COLUMN 

2417 

0708 

9 

• 

9 


LSTROw , LS 1C0L = LAST ROw /COLUMN DONE 

2416 

0708 

9 

• 

9 


CUPAOK = ADDRESS CORRESPOND! MG TO 

2419 

0708 

9 

• 

9 


LSTROw, LSTCOL 

2420 

0708 

9 

• 

9 


LSTLlN = ADDRESS OF LINE CORRESPONDING 

242,1 

0708 

9 

• 

9 


TO LSi'RUW 

2422 

0708 

9 

• 

9 


NROaS = 0, BUILD NEW ROwS AS NEt.DED 

2423 

0/08 

9 

• 

9 


# 0, DON"! BUILD NEwROWS 

242 4 

0708 

9 

• 

9 


BLKFIL = 0 f EXTEND LIwE AS NEEDED 

2425 

0708 

9 

• 

9 


« Of DON'T EXTEND lTNF. 

2 42o 

07o8 

9 

• 

9 



2427 

0708 

9 

• 

9 


EXII : Z - CHARACTER FOUND 

24 28 

()7u8 

9 

• 

9 


A,B,C,L DESTROYED 

2429 

0708 

• 

• 

9 


NZ - CHARACTER, nut found 

2430 

0708 

• 

• 

9 


M - RUWd NOf bU ilt 

2 4 31 

0 7o8 

• 

• 

• 


E = NUMBER UF Ruws NEEDED 

2432 

0708 

• 

• 

• 


P - ROW LOCATED 

2433 

07u8 

• 

• 

• 


A = COLUMN NUMBER FUlJND 

2434 

07w8 

9 

• 

• 


R = Run NUMBER FOUND 

24 36 

07 0 8 

9 

• 

• 


C = NUMBER OF CHARACTERS NEEDED 

2 4 3 o 

0708 

9 

• 

• 


D , E = ADDRESS OF bAof CHARACTER FOUND 

24 3 7 

07u8 

9 

• 

• 


H = BASEH 

24 36 

07o8 

9 

• 

• 



24 39 

07o8 

9 

• 

• 


LS fROw , LSTCOL r LSTblN ,CUkADR ARE UPDATED 

2440 

0708 

9 

• 

• 


TO THE LAST CHARACTER FOUwD. 

2441 

07 0 8 

9 

• 

• 



2442 

07v/8 

9 

• 

• 

RCADUR ROD $ 

2443 

07u8 

3 A 

Cl 

FF 


LDA CURCUL ;GET DESIRED COLUMN NUMBER 

2444 

070B 

• 

• 

9 

KCADkO EyU $ 

2 44 5 

0708 

32 

85 

FF 


STA TMPCUL ;SAVE DESIRED COLUMN NUMBER 

2 4 46 

07uE; 

3 A 

CO 

n* 


LDA CURRUto ; GET THE DESIRED ROW NUMBER 

244 7 

0711 

2 A 

C7 

FF 


LHLD LSTROW ; GET LAST ROw AND COLUMN DON 

2448 

0714 

44 

9 

• 


MOV B fh ; PUT LAST COLUMN IN B-KEg 

2449 

0715 

95 

9 

• 


SUB L ; MOVED TO A NE.w ROw? 

2450 

07 16 

2 A 

C9 

FF 


LHLD LS XL IN ? (GE T LAST LINE DONE ADD n) 

2451 

0719 

CA 

5t. 

0 1 


JZ hC A 2 4 0 ;YES - LOCATE COLUMN 

245z 

071C 

• 

• 

9 


******************** ****** 

2 453 

071C 

• 

• 

• 

i 

ROw HAS CHANGED * 

2 454 

07 1C 

• 

• 

9 


LOCATF START OF HEW ROW * 

2455 

071C 

• 

• 

9 


************************** 

245 6 

071C 

5F 

• 

9 


MOV E, A ; SAVE COUNT 

2 457 

07 ID 

B7 

• 

m 


OKA A ;SET FLAGS 

2458 

071E 

F2 

35 

0 7 


JP RCA 140 ; ROW IS AHEAD UF THIS ROW 
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II 
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2460 

0721 

• 

• 

• 

****** ************** * ******** 

2461 

0721 

• 

• 

• 

; ROW IS BEFORE CURRENT RUW * 

2462 

0721 

• 

• 

• 

; SEARCH BACK 

* 

246 3 

0721 

• 

• 

• 


2464 

0721 

* 

• 

• 

RCA120 EQU $ 


2465 

0721 

23 

• 

• 

INX H 

; SET ADDRESS TO PREVIOUS 

2466 

0722 

23 

• 

• 

I NX H 

; L 1 N E POINTER 

2467 

0723 

CD 

6D 

19 

CALL CHAIN ; GET ADDRESS OF PREVIOUS ROW 

2468 

0726 

1C 

• 

• 

INP E 

; ROW FOUND? 

2469 

0727 

C2 

21 

07 

JNZ RCA120 

;NO - CONTINUE BACKING UP 

2470 

072A 

C 3 

54 

0 7 

JMP RCA220 

; YES - SET NEW ROW 

2471 

07 2D 

• 

• 

• 

? ***************jM**** ********* 

2472 

0 7 2 D 

• 

• 

• 

; ROw IS AHEAD OF CURRENT ROW * 

2473 

07 2D 


• 

• 

; SEARCH AHEAD 

* 

2474 

0720 

* 

• 

• 

; * ***************************** 

2475 

0720 

• 

» 

• 

RCA130 EQU $ 


2476 

072D 

CD 

6D 

19 

CALL CHAIN 

; GET ADDRESS OF NEXT ROW 

2477 

0730 

23 

# 

• 

INX H 

; SET TO NEXT LINE PTR ADD RES 

2478 

0731 

ID 

• 

• 

OCR E 

; ROW FOUND? 

2479 

0732 

CA 

54 

07 

JZ RCA220 

; YES - LOCATE COLUMN 

2480 

0735 

• 

• 

• 

RCA 1 40 EQU $ 

; NO - CHECK FOR ANOTHER ROW 

2 481 

0735 

7 E 

• 

• 

MOV A , M 

; GET LSB OF NEXT RUW POINTER 

24 82 

0736 

B 7 

• 

• 

ORA A 

; DOES NEXT ROW EXIST? 

248 3 

0737 

C2 

2D 

0 7 

JNZ RCA130 

; YES - CHECK FOR ROW FOUND 

2484 

07 3 A 

• 

• 

m 

.******************** 


2485 

07 3 A 

• 

• 

0 

; ROW NOT IN MEMORY * 


2486 

073A 

♦ 

• 

• 

? CREATE NEW ROW * 


2487 

07 3 A 

• 

• 

• 

.***#*^************** 


2488 

07 3 A 

• 

• 

• 

RCA200 EQU $ 


2489 

07 3 A 

CD 

76 

19 

CALL CHKFMS 

? FORM AT/SOFT KEY DEFINE MODE 

2490 

07 30 

C2 

01 

OB 

JNZ NZEXIT 

; YES - DO NOT BUILD ROWS 

2491 

0740 

21 

9 A 

FF 

LX I H,NRUWS 

; NfJ - GET bUILu FLAG 

2492 

0743 

B6 


• 

ORA M 

; INHIBIT ROW BUILD? 

2493 

0744 

CO 

• 

• 

RNZ 

; YES - RETURN C A = 377b) 

2494 

0745 

73 

• 

• 

MUV M r E 

; NU - STUPE » OF ROWS NEEDED 
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2496 

0746 

• 

• 

• 

******************************* 

2497 

0746 

• 

• 

• 

; GET NEW ROW AND LINK TO OLD ♦ 

2498 

0746 

• 

• 

• 

.****************************** 

2499 

0746 

• 

• 

• 

RCA210 EQU $ 


2500 

07 46 

CD 

97 

05 

CALL GTNWLN 

; ADD A LINE TO THE DISPLAY 

2501 

0749 

CO 

• 

• 

RNZ 

; RETURN FAIL IF MEMORY LOCKE 

2502 

074A 

21 

9 A 

FF 

LX1 H,NRQWS 

; DECREMENT « OF ROWS NEEDED 

2503 

0740 

35 

• 

. 

DCR M 

; ALL NEEDED ROWS ALLOCATED? 

2504 

074E 

C2 

46 

07 

JNZ RCA210 

; NO - GET ANOTHER ROW 

2505 

0751 

• 

• 


;************************************ 

2506 

0751 

• 

• 

• 

; ALL REQUIRED ROWS 

HAVE BEEN ADDED * 

2507 

0751 

• 

• 

• 

;************************************ 

2508 

0751 

2A 

A 1 

FF 

LHLD LL1NE 

; GET START ADDRESS OF ROW 

2509 

0754 

• 

• 

• 

RCA220 EQU $ 

; UPDATE LOCATE COLUMN 

2510 

0754 

CD 

9C 

OA 

CALL LSTLUP 

; SET "LSTLIN" TO NEW ROW 

2511 

0757 

3A 

85 

FF 

LDA TMPCQL 

; RECALL COLUMN TO BE FOUND 

2512 

075 A 

4F 

• 

• 

MOV C,A 

; PUT COLUMN NUMBER INTO C-RE 

2513 

0756 

C 3 

69 

07 

JMP RCA245 

;GO LOCATE THE COLUMN 
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2515 

075E 

• 

• 

* i 

**************** ************ 

2516 

075E 

• 

• 

• i 

CURRENT ROW = DESIRED ROW ♦ 

251 / 

075E 

• 

• 

• 

CHECK COLUMN 

* 

2516 

075E 

• 

• 

• i 

**************************** 

2519 

075E 

• 

• 

. RCA240 EQU $ 


2520 

075E 

3 A 

85 

FF 

LD A TMPCGL 

; GET THE DESIRED COLUMN 

2521 

0761 

4F 

« 

• 

MU V C t A 

; PUT IT INTO THE C-REG1STER 

2522 

0762 

90 

• 

• 

SUB 6 

; COLUMN WANTED >= LAST DONE? 

2523 

0763 

F2 

71 

07 

JP RCA 2 50 

; Yfc,S - SCAN FORWARD 

2524 

0766 

• 

• 

• 

****************************************** 

2525 

07b6 

• 

• 

• 

DESIRED COLUMN LESS THAN CURRENT CUL.UMN * 

2526 

0766 

• 

• 

• 

START SEARCH AT BEGINNING OF ROW * 

2527 

07 66 

• 

• 

• 

****************************************** 

2526 

07 66 

CD 

9F 

OA 

CALL LSTLUl 

; SET LINE START PARAMETERS 

2529 

0769 

• 

• 

• 

• 9 

(PUTS R t L INTO D,E) 

2530 

0769 

• 

• 

„ RCA 2 45 EQU $ 


2531 

0769 

3E 

01 

• 

M V 1 A r IGNTRM 

; SET FUNCTION FLAG TO IGNORE 

2532 

076B 

32 

6D 

FF 

STA TRMFCT 

; NON -DISPLAY I NG TERMINATOR 

2533 

076E 

C 3 

7b 

07 

JMP RCA255 

; GO LOCATE COLUMN 

2534 

07 71 

• 

• 

• 

.I******************************************* 

2535 

07 71 

• 

• 

• 

; DESIRED COLUMN AT 

OR PAST CURRENT COLUMN * 

2536 

0771 

• 

• 

• 

; START SEARCH AT CURRENT COLUMN * 

2537 

0771 

• 

• 

• 

• ************** ********* ******************** 

2536 

0771 

• 

• 

. KCA250 EQU $ 


2539 

0771 

4E 

• 

• 

MOV C , A 

; SAVE # OF COLUMNS TO ADVANC 

2540 

07 7 2 

2 A 

C 3 

FF 

LHLD CUKADR 

; GET ADDR OF LAST CHAR DONE 

2541 

07 75 

EB 

• 

• 

XCHG 


2542 

07 7 6 

04 

• 

• 

I N R B 

; DUES LSTCUL = -1? 

2543 

0777 

C2 

1C 

07 

JNZ RCA260 

?NU 

2544 

07 7 A 

OD 

• 

• 

OCR C 

? DECREMENT COLUMN COUNT 

2545 

077B 

• 

• 

. RCA255 EQU $ 


2546 

07 7 B 

IB 

* 

• 

OCX D 

; SET TO NEXT DISPLAY BYTE 
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If 
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LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

RAGE 12 

H 

H 

II 

II 

ii 

II 
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ii 
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H 
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II 

ii 

ii 
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2548 

077C 

• 

• 

• 

;*******♦*********** ********* 

2549 

077C 

• 

• 

• 

; ROW HAS BEEN FOUND 

4 

2550 

077C 

• 

• 

• 

; SEARCH FOP 

DESIRED 

COLUMN 4 

2551 

OTIC 

• 

• 

• 


255z 

OTIC 

• 

• 

• 

RCA260 EQU $ 



2553 

07/C 

21 

FK 

FF 

LX I 

H , DI SPST 

? SET FOR HU CHARACTER MATCH 

2554 

077F 

CD 

CF 

IE 

CALL 

FNDCHR 

;D0ES CHARACTER EXIST? 

2555 

0782 

3E 

00 

• 

MVI 

A , DELTRM 

i SET FUNCTION FLAG TO DELET E’ 

2550 

0784 

32 

6D 

FF 

ST A 

TRMFCT 

? NUN-D1SRLAY1NG TE'KKINATUR 

2 557 

0787 

CC 

69 

09 

CZ 

eolmvo 

;N0 “ TR t TO MOVE EOL 

2558 

07 8 A 

Kb 

• 

• 

XCHG 


; SET NEW CURRENT CHAR ADORES 

2559 

0788 

22 

C3 

FF 

SHLD 

CURADR 


2500 

07ttE 

KB 

• 

• 

XCHG 



25o 1 

0 7 8F 

21 

CO 

FF 

LXI 

h,curpuw 


2502 

0792 

46 

• 

• 

MOV 

B, M 

I GET DESIRED ROW AND COLUMN 

2563 

0793 

3 A 

85 

FF 

LDA 

TMPCOL 


2564 

0796 

0D 

• 

• 

DCR C 

f 

CONVERT TO COLUMN FOUND 

2505 

0797 

FA 

9B 

07 

JM PCA270 


2500 

07 9 A 

91 

• 

• 

SUB C 



256 / 

0798 

• 

• 

• 

RCA270 FOU $ 



2568 

079B 

68 

• 

• 

MOV 

L , B 

; UPDATE LAST ROW AND COLUMN 

2569 

079C 

67 

• 

• 

MOV 

H , A 

; DONE 

2570 

0790 

22 

C7 

FF 

SHLD 

LSTRUW 


2571 

07 AO 

2o 

FF 

• 

MVI 

H, BASER 

;SET H TO DATA PAGE 

25 72 

0/A2 

OC 

• 

• 

INR C 

• 

t 

RESTORE ZERO FLAG 

2573 

07A3 

C9 

• 

• 

RET 

r 

RETURN 
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ii 

ii 

ii 

il 

ii 

============================= 

2575 

Q7A4 

• 

• 

• 

j ********************* ******** 

2576 

07A4 

• 


• 

; TIMER INTERRUPT PROCESSING * 

2577 

07A4 

• 

• 

• 

j ***************************** 

257 6 

0 7 A 4 

• 

• 

• 

m 

9 



257 9 

07A4 

• 

• 

• 

? ENTRY : " 

PSW" AND 

B,C PUSHED 

2580 

07 A4 

• 

• 

• 

; a 

s INTERRUPT CODE 

2581 

07A4 

• 

• 

• 

0 

9 



2582 

07A4 

• 

• 

• 

1M1NTR EQU $ 



258 3 

07A4 

Co 

65 

91 

CALL 

INTVEC 

;try alternate interrupt 

2584 

07 A 7 

3 A 

F5 

FF 

LDA 

PRCCTL 

; GET PROCESSOR STATE 

2585 

07AA 

05 

• 

• 

PUSH 

0 

; SAVE REMAINING REGISTERS 

2586 

q7AB 

E5 

• 

• 

PUSH 

H 


2587 

07 AC 

Eb 

FO 

* 

AM 

37 7Q-T.M1EN 

2588 

07AE 

03 

70 

0 

OUT 

RRUCSR 

; ACKNOWLEDGE TIMER INTERRUPT 

2589 

0760 

F 6 

02 

• 

OR I 

TMiEN 


2590 

07B2 

03 

70 

• 

OUT 

PROCSR 

; RE-ENABuE THE TIMER 

2591 

0764 

21 

DO 

FF 

LXI 

H t RSTTMR 

; DECREMENT SOFT RESET DELAY 

2592 

0767 

7E 

• 

• 

M(j V 

A , M 

; TIMER 

2593 

0768 

3D 

• 

• 

OCR 

A 

; COUNT 1 NG DOWN? 

2594 

07B9 

FA 

C 2 

07 

JM 

TM1010 

; NO - DON'T UPDATE TIMER 

2595 

07bC 

77 

• 

0 

MOV 

M, A 

; YES - STORE NEW VALUE 

2596 

07BD 

36 

06 

• 

MVI 

A, KNOTS? 

; C SET FOR RESET LED'S) 

2597 

07BF 

CC 

08 

48 

cz 

ZKbCTL 

; RESET LED'S IF TIME DONE 

2598 

0 7C2 

• 

• 

• 

TMI010 EQU 

$ 


2599 

07C2 

26 

50 

• 

MVI 

L , l'PSTAL-BASE ; DECREMENT TAPE STALLED 

2600 

07C4 

7E 

• 

• 

MQV 

A f M 

; COUNTER 

2601 

07C5 

3D 

• 

• 

DCR 

A 

? STALL LIMIT REACHED? 

2602 

07C6 

FA 

CA 

0 7 

JM 

TMI020 

;YES - DON'T UPDATE COUNTER 

2603 

07C9 

77 

• 

• 

MU V 

M, A 

;NO - STORE NEW VALUE 

2604 

0 7C A 

• 

• 

• 

TM 1020 EgU 

S 


2605 

07CA 

2E 

52 

• 

MVI 

L , CTBLTM-BASE ; DECREMENT BLINK TIMER 

2606 

07CC 

3d 

• 

• 

OCR 

M 

; TIME OUT? 

2607 

07CD 

C2 

DB 

07 

JNZ 

TM 1100 

; NO - EXIT 

2608 

0700 

3b 

20 

• 

MVI 

M r CTBDbY 

;YES - RESET TIMER 

2609 

0702 

23 

• 

• 

I NX 

H 


2610 

0703 

7E 

# 

• 

MOV 

A, M 

; GET CTU BLINK MASK 

2611 

0704 

26 

55 

• 

MVI 

l,cmnd-base 

2o 1 2 

07D6 

At. 

• 

• 

XR A 

M 

; TOGGLE BLINKING LIGHTS 

2613 

0707 

7 / 

• 

• 

MOV 

M, A 

; UPDATE LIGHT STATE 

2614 

0708 

32 

00 

8B 

SI A 

IOCTCO 

;SEI C1U LIGHTS 
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it 

IS 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

m 

ii 

ii 

ti 

ii 

ssss 

li 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ti 

it 

ti 

ii 

it 

ii 

n 

it 

3=s:z:sss: 

11 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

It 

II 

II 

II 

II 

II 

St 

II 

II 

IS 

II 

ti 

II 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS* 

PAGE 74 

2616 

07DB 

• 

• 

• 

;***************************************** 

2617 

07DB 

• 

• 

• 

; PERFORM KEYBUARD AND 

DATA COMM MONITOR * 

2618 

070B 

• 

• 

• 

? ROUTINES 


* 

2619 

07DB 

• 

• 

• 

****************************************** 

2620 

0708 

• 

• 

• 

TMI100 EOU 

$ 


2621 

0708 

21 

F6 

FF 

LXI 

H , INTFLG 

; GET INTERRUPT FLAG 

2622 

070E 

BE 

04 

• 

M V I 

A,TMRINT+1 

? TIMER INTERRUPT ALREADY 

2623 

07E0 

BE 


• 

CMP 

M 

; IN PROGRESS? 

26 24 

07E1 

CA 

F7 

07 

JZ 

TMI110 

? YES - DON'T DO MONITOR CALL 

2625 

07E4 

77 

• 

• 

MOV 

h , A 

; NO - SET IN-PROGRESS FLAG 

2626 

07E5 

3A 

7F 

FE 

LDA 

DEtfFLG 

; GET DEVICE FLAGS 

2627 

07E8 

8 7 

• 

• 

ADD 

A 

; ALTERNATE I/O INSTALLED? 

2628 

07E9 

FC 

OB 

60 

CM 

ZMQNAL 

; YES - MONITOR ALT DEVICE 

2629 

07EC 

CD 

OB 

48 

CALL 

ZKBMON 


2630 

07EF 

F3 

• 

• 

DI 


.*************************** 

2631 

07FO 

CD 

OE 

50 

C ALL 

ZDCMON 

;* KEYBOARD MONITOR ROUTINE 

2632 

07F3 

• 

• 

• 

• 

9 


♦ RE-ENABLES INTERRUPTS * 

2633 

07F3 


• 

• 

9 


********* i *********** ******** 

2634 

0 7 F 3 

21 

F6 

FF 

LXI 

H t INTFLG 

;SET INTERUPT CODE TO 

2635 

07F6 

35 

• 

# 

OCR 

M 

; INDICATE TIMER INTERRUPT 

2636 

07F7 

• 

• 

• 

TMIUO EOU 

$ 


2637 

07F7 

El 

• 

• 

POP 

H 

; RESTORE CONTENTS OF 

2638 

07F8 

D1 

• 

• 

POP 

D 

; ALL REGISTERS AND 

2639 

07F9 

Cl 

• 

• 

POP 

B 

; ALL CONDITION FLAGS 

2640 

07FA 

FI 

• 

* 

POP 

PSW 


2641 

07FB 

FB 

• 

• 

El 


; RE-ENABLE INTERRUPTS 

2642 

07FC 

C9 

• 

• 

RET 


; RETURN TO NORMAL PROCESSING 



ITEM 

LOC 

2644 

07FD 

2645 

07FD 

2646 

07 fD 

264 7 

0 7FD 

2648 

OR 00 

2649 

0800 

2650 

0R01 


13255-90003 


Hev AUG 


OBJECT CODE SOURCE STATEMENTS 


PAGE 


51 

08 


j************************** 

; ROM BREAK 1 * 

************** r****** ****** 

ORG 6EG1N+4000Q 
2.BRK1 EgU $ 

DB VERSN1 i RUM PRESENT 
DB ZBRK1/256 


FLAGS 


- 01-7 6 

75 



3255- 

90003 

Rev 

AUG-01-76 




ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

sss 

tt 

11 

II 

II 

II 

II 

II 

II 

II 

II 

tl 

II 

II 

II 

II 

It 

tl 

ii 

li 

II 

H 

II 

II 

II 

II 

H 

II 

ll 

tl 

li 

ll 

it 

if 

it 

ll 

ll 

ii 

it 

ii 

it 

li 

ii 

ii 

ii 

ll 

ll 

ll 

it 

ll 

ll 

tl 

ll 

ll 

ii 

it 

ll 

ITEM 

LOC 

OBJECT 

CODE SOURCE STATEMENTS 

PAGE 7b 


ii 

ii 

n 

it 

ii 

ii 

ii 


sss 

ii 

ii 

it 

ii 

it 

ii 

ii 

tl 

ii 

H 

II 

11 

II 

II 

H 

II 

II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

li 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ll 

ii 

ii 

2652 

0802 

• 

• 

• 

>***************************************** 

2653 

0802 

• 

• 

• 

BINOCT - 

CONVERT BINARY 10 OCTAL ASCII * 

2654 

0802 

• 

• 

• 

******************************* ********** 

2655 

0802 

• 

* 

• 




265t> 

0802 

* 

• 

• 

ENTRY; 

A = DIGIT 

TO BE CONVERTED 

2657 

0802 

• 

• 

• 


H,L = ADDRESS OF OUTPUT BUFFER'S 

2658 

0802 

• 

• 

• 


HIGH ORDER BYTE 

2659 

0802 

• 

• 

• 




2660 

0802 

• 

• 

• 

EXIT : 

H , L = H , L (ENTRY ) +4 

2661 

0802 

• 

• 

• 


A-C DESTROYED 

2662 

0802 

• 

• 

• 




2663 

0802 

• 

* 

• 

FIRST BYTE IS SET 

TO BLANK. THE NEXT THREE 

2664 

0802 

• 

• 

• 

BYTES CONTAIN THE 

ASCII OCTAL EOUIVALENT OF 

2665 

0802 

9 

• 

• 

ThE INPUT VALUE. 

THE FIFTH BYTE IS SET TO 

2666 

0802 

9 

• 

• 

ZERO (NULL). 


2667 

0802 

9 

• 

• 




2668 

0802 

9 

• 

. BINOCT FQU 

$ 


2669 

0802 

36 

20 

• 

MVI 

M , ABLNK 

; SET FIRST BYTE TO BLANK 

2670 

0804 

23 

• 

• 

IN X 

H 


2671 

0805 

06 

03 

• 

MVI 

6,3 

;SET B TO NUMBER OF DIGITS 

267 2 

0807 

07 

• 

• 

RLC 


? ROTATE DOWN TWO HIGH ORDER 

2673 

0808 

07 

• 

• 

PLC 


;bits 

2674 

0809 

4F 

• 

• 

MOV 

C , A 

;SAVE VALUE IN C-PEGISTER 

2675 

080A 

E6 

03 

• 

ANI 

30 

; MASK OUT TWO HIGH ORDER BIT 

267 6 

q80C 

9 

• 

. BN 00 1 0 EQU 

s 


2677 

080C 

F6 

07 

• 

ANI 

IQ 

; MASK OUT NEXT THREE BITS 

2678 

OBOE 

F6 

30 

• 

OR I 

ZERO 

; ADD IN ASCII ADJUSTMENT 

2679 

0810 

77 

• 

• 

MOV 

M,A 

; STORE ASCII CHARACTER 

2680 

0811 

23 

• 

• 

I NX 

H 

; INCREMENT TO NEXT BYTE 

2681 

0812 

79 

• 

• 

MOV 

A , C 

; RECALL INPUT 

2682 

0813 

07 

• 

• 

RLC 


; ROTATE TO NEXT THPEF BITS 

2683 

0814 

07 

• 

• 

PLC 



2684 

0815 

07 

• 

• 

RLC 



2685 

0816 

4F 

• 

• 

mqv 

C , A 

; SAVE VALUE 

2686 

0817 

05 

• 

• 

DC P 

B 

? ALL BITS DONE? 

2687 

0818 

C 2 

oc 

08 

JNZ 

BN0010 

?NO - SET NEXT BYTE 

2688 

08 IB 

70 

• 

• 

MOV 

M , B 

; YES - STORE NULL IN BUFFER 

2689 

oeic 

C9 

• 

• 

PET 


; RETURN 
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ITEM ”l.OC OBJECT CODE SOURCE STATEMENTS ^GF^ JJ_ 


2691 

0 8 1 D 

• 

m 

• 

********************************** 

2692 

0 8 1 D 

« 

• 

• 

BN2DE0 - CONVERT SINGLE BYTE TO * 

2693 

081D 

• 

• 

• 

ASCII DECIMAL * 

2o94 

08 ID 

• 

• 


********************** ************ 

2695 

08 ID 

• 

• 

• 


2696 

08 ID 

# 

• 

• 

ENTRY: A = BYTE TO BE CONVERTED 

2697 

08 ID 

• 

• 

• 

H,L = ADDRESS OF OUTPUT BUFFER'S 

2698 

0 8 1 D 

• 

• 

• 

HIGH ORDER ADDRESS 

2699 

08 ID 

• 

• 

• 


2 700 

0810 

• 

• 

• 

EXIT : NZ 

2701 

0810 

• 

• 

• 

H , L = H , L t ENTRY i + 3 

2702 

081D 

0 

• 

* 

A-E DESTROYED 

2703 

0810 

0 

♦ 



2704 

08 ID 

• 

0 

. BN2PE0 Eyn $ 

2705 

0810 

22 

96 

FF 

SHLD LNKSAV ,*SAVE BUFFER ADDRESS 

2706 

0820 

21 

6 A 

08 

LXI H , B2D200 ,* SET OUTPUT ROUTINE TO BUFFE 

270/ 

08 2 3 

• 

• 

. BN2DE1 EQU $ ; STORE ROUTI NE 

27 oy 

0823 

22 

Ct 

FF 

SHLD CNTFAD ,*Sfc;T OUTPUT ROUTINE ADDRESS 

27 09 

0826 

• 


. 

BN2DE2 EOli $ ; ENTRY FUR "ASCOUT” 

2710 

0826 

5F 

• 

0 

vi(jv E , A ; CHANGE INPUT INTO DOUBLE 

2711 

0827 

Id 

00 

0 

EV1 D # 0 ? B YTE VALUE 

2712 

0829 

OE 

01 

0 

MVI c , 1 ? SET ZERO SUPPRESS FLAG 

2713 

0820 

C 3 

45 

08 

Jhp B2D050 ;GO TO CONVERT ROUTINE 
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II 

n 

n 

n 

n 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

===== 

ii 

it 

(i 

ii 

ii 

ii 

ii 

M 

ii 

it 

il 

n 

it 

ii 

ii 

ii 

ti 

ii 

II 

II 

H 

II 

II 

II 

11 

II 

II 

ii 

ti 

ii 

ii 

ii 

it 

H 

it 

i( 

ti 

ii 

ii 

ii 

ll 

li 

il 

ii 

it 

li 

ll 

li 

li 

ll 

ll 

li 

ll 

ll 

it 

it 

ITEM 

LOC 

OBJECT 

CODE SOURCE STATEMENTS 

PAGE 78 

ii 

ii 

it 

ii 

it 

ii 

■I 



==== 

ii 

ti 

ii 

ii 

it 

ti 

ii 

ii 

ii 

it 

ii 

tt 

ii 

ii 

it 

it 

it 

it 

II 

II 

II 

II 

II 

II 

II 

Ii 

II 

;:s::s:s:;s:::s::ss:sr:r:5s=:r 

2/3d 

082?: 

• 

• 

• 

. ************************************************* 

2 71b 

08 2E 

• 

• 

• 

; BN2DEC - 

CONVERT DOUBLE WORD BINARY TO DECIMAL * 

2717 

082E 

• 

• 

• 

J*********** ******************* ******************* 

2718 

082E 

• 

• 

• 

• 



2719 

082E 

• 

• 

• 

? entry: 

D,E = BINARY VALUE 

2720 

082E 

• 

• 

• 


H,L = ADDRESS OF HIGH ORDER BYTE IN 

2721 

082E 

• 

• 

• 

' 

BUFFER 


2722 

082E 

• 

• 

• 




2723 

082E 

• 

• 

• 

EXIT : 

H,L = H , L 

centry ) +5 

2724 

0«2E 

• 

• 

• 


A-E DESTROYED 

2725 

082E 

• 

• 

• 


LNKSAV DF 

STROYFD 

2726 

082E 

• 

• 

• 




2727 

082E 

• 

• 

• 

THE FIRST FIVE BYTES OF THE BUFFER CONTAIN THE 

2728 

082E 

• 

• 

• 

ascit decimal value, the sixth bite is set to 

2729 

082E 

• 

• 

• 

ZERO (NULL). LEADING ZEROES ARE BLANKED 

2730 

082E 

• 

• 

• 




2731 

082E 

• 

• 

. BN 2 DEC EyU 

$ 


2732 

082E 

22 

96 

FF 

SHLD 

LNKSAV 

;SAVE BUFFER ADDRESS 

2733 

0831 

21 

6 A 

08 

LXI 

H,B2D200 

; SET OUTPUT ROUTINE 10 BUFFE 

2 7 34 

0«34 

22 

CE 

FF 

SHLD 

CNTFAD 

; STORE ROUTINE 

2735 

0837 

OE 

01 

• 

MV I 

C,1 

; SET ZERO SUPPRESS FLAG 

2736 

0839 

21 

FO 

Db 

LXI 

H, -10000 


27 3 7 

083C 

CD 

58 

08 

CALL 

B2D100 

; EXTRACT 10 r O00'S VALUE 

2738 

083F 

21 

18 

FC 

LXI 

H , - 1 000 


2 739 

0842 

CD 

58 

08 

CALL 

B2D100 

; EXTRACT 1, 000 'S VAI.IJF 

2740 

0845 

• 

• 

. B2D050 EOU 

$ 


2741 

0845 

21 

9C 

FF 

LXI 

H , - 1 00 


2 742 

0848 

CD 

58 

08 

CALL 

B2D100 

? EXTRACT 100'S VALUE 

2 743 

084R 

21 

F 6 

FF 

LXI 

H,-10 


2744 

08 4 E 

CD 

58 

08 

CALL 

B2D100 

; EXTRACT 10 'S VALUE 

2745 

0851 

7 B 

• 

• 

MOV 

A, E 

; CONVERT UNITS DIGIT TO 

2746 

0852 

E6 

30 

• 

OKI 

ZERO 

? ASCII AMD STORE IN 

2747 

0854 

OD 

• 

• 

DCR 

C 

;SET C TO FORCE ZERO STORE 

2748 

0855 

C 3 

CD 

FF 

JMP 

EC ON IF 

;GU TO OUTPUT ROUTINE 
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II 

II 

II 

II 

II 

«i 

ti 

ii 

if 

ii 

ii 

ii 

ii 

n 

ii 

it 

ii 

::: 

ii 

u 

ii 

ii 

ii 

it 


ITEM 

LOC 

OBJECT 

CODE 
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ti 

ii 

ii 

ii 

ii 

n 


s::: 


ii 

ii 

it 

ii 

ii 

it 

ii 

ii 

it 

ii 

ii 

ii 

h 

ii 

ti 

ii 

a 

ii 


2750 

0858 

• 

• 

• 

; ************ ************ 

2751 

0858 

• 

• 

ft 

; B2D100 - 

EXTRACT RADIX VALUE 4 

2752 

0858 

• 

• 

ft 

;******************************* 

2753 

0858 

• 

• 

• 

• 

9 


2754 

0858 

• 

• 

• 

; ENTRY; 

C = 0, SUPPRESS ZERO 

2755 

0858 

• 


• 

• 

9 

< 0, DON'T SUPPRESS ZEROES 

2756 

0858 

• 

• 

• 

« 

9 

D , K = VALUE TO BE CONVERTED 

2757 

0858 

• 

• 

ft 

9 

H,L = -RADIX 

275b 

0858 

• 

• 

• 

• 

9 

LNKSAV = CURRENT BUFFER ADDRESS 

2759 

0858 

• 

ft 

• 

9 


2 760 

0858 

• 

• 

• 

/ EXIT ; 

C < 0, CHARACTER STORED 

2761 

0858 

• 

• 

• 

• 

9 

= 0, ZERO SUPPRESSED 

2762 

0858 

• 

• 

• 

m 

9 

(LNKSAV) s (LNKSAV) El 

2763 

0858 

• 

• 

• 

• 

9 

A-C, H,L DESTROYED 

2 764 

0 8 5 6 

• 

• 

• 

9 


2765 

0859 

• 

• 

• 

B2D100 EyU 

$ 

2 7 66 

0858 

06 

2F 

• 

MV I 

B , ZERO- 1 ; SET INITIAL ASCII VALUE 

2767 

Q85 A 

FB 

• 

• 

XCHG 

/EXCHANGE RADIX AND INPUT 

2768 

0 8 5 B 

• 

• 

• 

b 2 D 1 1 0 EylJ 

8 

2769 

085* 

0 4 

• 

• 

INR 

B / INCREMENT ASCII VALUE 

2 770 

08 5C 

19 

• 

ft 

DAD 

D ; SUBTRACT RADIX 

27 71 

085D 

DA 

5B 

08 

JC 

62D110 /CONTINUE IF INPUT>RAD1X 

2772 

08b() 

70 

ft 

• 

My v 

A , L ; ADD BACK RADIX TO EXTRACT 

2773 

0961 

93 

• 

ft 

SUB 

E /REMAINDER 

2774 

08 o 2 

5f 

• 

ft 

MOV 

E , A /SAVE REMAINDER IN D,F 

2775 

086 3 

7C 

• 

ft 

My V 

A , B 

2776 

0864 

9 A 

• 

• 

SBB 

D 

2777 

0865 

57 

• 

ft 

MtJV 

D , A 

2778 

0866 

78 

• 

ft 

MOV 

A,B ( / GET CONVERTED VALUE 

2779 

0867 

C 3 

CD 

FF 

JMP 

ECUNTF ? GO TO OUTPUT ROUTINE 

2 760 

08 6 A 

• 

• 

• 

;***♦♦******♦♦ ******** *************************** 

2781 

086 A 

• 

• 

ft 

; B 2 D 2 0 0 - 

STORE DECIMAL VALUE FOR INTERNAL USE * 

2782 

086 A 

• 

• 

ft 

/♦♦♦I******************************************** 

2783 

ObbA 

• 

• 

ft 

9 


2784 

08 6 A 

• 

• 

• 

; ENTRY; 

A = CONVERTED VALUE. 

2785 

0 8 6 A 

• 

• 

ft 

9 


2786 

096A 

• 

• 

ft 

b 2 D 2 u 0 EyU 

$ 

2787 

0 8 6 A 

Ffc 

30 

• 

CPI 

ZERO /CONVERTED VALUE = ZERO? 

2788 

086C 

C 2 

75 

08 

JNZ 

B2D210 / Ny - STORE THE DIGTT 

2789 

08bF 

OD 

• 

ft 

OCR 

C ; NON-ZERO CHAP ALREADY DONE 

2790 

0870 

FA 

7 6 

08 

J M 

B2D220 /YES - STORE THE DIGIT 

2791 

0873 

OC 

• 

ft 

INF 

C /NO - RESTORE ZERO FLAG 

2792 

0874 

C9 

• 

ft 

RET 

/AND EXIT 

2793 

0875 

• 

• 

ft 

B2D210 EyU 

$ 

2794 

0875 

OD 

• 

ft 

OCR 

C /CLEAR ZERO SUPPRESS FLAG 

2795 

0876 

• 

• 

ft 

B2D220 FyU 

$ 

279o 

0876 

2 A 

96 

FF 

LHLD 

LNKSAV /GET BUFFER POINTER 

2797 

0879 

77 

• 

ft 

MOV 

M , A /STORE CONVERTED VALUF 

2798 

087A 

23 

• 

ft 

I N X 

H /INCREMENT BUFFER POINTER 

2799 

087B 

36 

00 

ft 

M V I 

M,0 /SET NEXT BYTE TO NULL 

2800 

087D 

22 

96 

FF 

SHLD 

LNKSAV /STORE NEW POINTER VALUE 

2801 

0880 

C9 

ft 

• 

RET 

/ return 



13255- 

1 tem 

2803 

2804 

2805 

2806 

2807 

2808 

2 8 09 
2810 
2811 
2812 

2813 

2814 

2815 
2 8 l o 
2817 
28 1 8 

2819 

2820 
2821 
2822 
292 3 
2824 
28 25 
2826 
28 2 / 
2 8 2 d 
2 d 2 9 
2830 
283 1 
28 32 

2833 

2834 

2835 
2d 36 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 
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0881 

• 

• 

0881 

• 

• 

0881 

« 

• 

08 8 1 

• 

• 

0881 

• 

• 

0881 

• 

• 

0891 

• 

• 

0881 

• 

• 

0881 

• 

• 

09 91 

• 

• 

OPdl 

• 

• 

U 8 8 1 

• 

« 

0881 

• 

• 

0881 

m 

• 

0881 

• 

• 

0881 

• 

• 

0 ft d 1 

• 

• 

08 8 1 

D5 

• 

08 8 2 

E5 

• 

0883 

AF 

• 

0884 

• 

• 

0884 

8o 

• 

0985 

CE 

00 

0887 

2C 

• 

08d8 

C 2 

84 

088b 

• 

♦ 

088B 

24 

• 

088C 

15 

• 

0880 

C2 

8 4 

0990 

• 

• 

0899 

0 3 

• 

0891 

57 

• 

0892 

El 

• 

0893 

7C 

• 

0894 

FE 

FO 

0896 

C2 

9 A 

0899 

4D 

• 

089A 

• 

• 

089A 

• 

• 

08 9 A 

7 A 

• 

089B 

D 1 

• 

089C 

C9 

• 


CALCULATE CHECKSUM 
fc M 1 H V I 

( H , L ) = ADDRESS OF AREA 
TO BE CHECK SIJF, ED 

D = NO. BYTES IN A R E A / 2 5 b 
*E assume THE AREA BEGINS UK A 
256 BYTE BUUNDARY , T.E., L = 0. 
CALL CHnSUM 

exit: 

A = CHECKSUM 

ALL OTHER REGS. UNCHANGED 
FLAGS DESTROYED 


CHKSLM EOU $ 
PUSH D 


SAVE REGISTER D-H 



PUSH 

n 



XR A 

A 

; ZERO SUM 

CSU1 00 

EOU 

$ 



ADD 

'•1 

; ADD BYTE 


AC I 

0 

;AL)D CARRY 


I ft R 

b 

;BUMp ADORESo POINTER 


JlvZ 

CSUl uo 

; ADD NEXT BYTE 

i 

r u r 

H 

; FIN iSiiED A 256 BY I E BLOCK 


DC R 

D 



JNZ 

CSUl 00 

; DO NEXT 2 56 b Y T t S 

r 

ThX 

b 

; INCREMENT To nEXT STORE ADD 


M u V 

L < , A 

; SAVE CHECKSUM T N D-REGIo l t.R 


PUP 

H 

; RECALL STAR IT NG AdPRFSS 


M U V 

A,H 



CPI 

17 00 000/2 5 c ;LAST RAM BLOCK Y 


Jn Z 

CSUl 10 

; NO - EXIT 


V 

C , L 

; Y t S - SET 8,C TO FThST 

• 

f 



CHECKSUM STORE ADDRESS 

CSUl 10 

EOU 

S 



MU V 

A , D 

; PUT CHECKSUM BACK INTO A- RE 


POP 

i) 

? RESTORE n , E 


PET 


; RETURN 
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2846 

Q89D 

• 

• 

• 

•**♦*******> ****^********^ ******************* 

2847 

089D 

• 

• 

0 

? CLEAR - RESET TERMINAL BY ESCAPE SEQUENCE * 

2848 

089D 

• 

0 

0 

• * * ********** ***** ****** * * * ****************** 

2849 

089D 

0 

0 

0 

CLEAR EQU $ 


2850 

089D 

CD 

6E 

15 

CALL IOBSYC 

;WAIT UNTIL TAPES NOT BUSY 

2851 

08 40 

3E 

04 

• 

MVT A f FRCRST 

; SET FLAG TO FORCE FULL 

2852 

08A2 

CD 

00 

14 

CALL STCMFL 

? TERMINAL RESET 

2853 

08A5 

3E 

80 

0 

MVI A t C RTOFF 

;tupn off the DISPLAY 

2854 

08A7 

32 

20 

87 

STA IOC RR W 


2855 

08 AA 

C7 

0 

0 

RST ;reset 

GO DO TERMINAL RESET 


-76 



13255 

1 lEM 

2 a c > 1 
2b5 8 
2 8 5 9 
2 8 6 u 
2 s * > 1 
2 b o 2 
2 8 o 3 
2bt>4 
2 b 6 d 
2Ht>6 
2 6 t>l 
2 h u i< 
2 bt>9 
2 b 7 o 
2 b 7 1 
2b 7 2 
2b /3 
2 8 7 4 
2 b 7 8 
2 8 7o 
28 / 1 
2 b 7 b 
2b 79 
288u 
2b b 1 
2 8 8 2 
2 8 8 3 
2 8 8 4 

2885 
2 8 8 6 
2 b b / 
28 8 b 

2889 
2 8 9u 

2891 

2892 

2893 
2 8 94 
2o95 
? 8 9 o 

2897 

2898 
28 99 
2 900 

2901 

2902 

2903 

2904 


9000 3 Rev AUG-0 1 -7b 

LOC ObJKCT CODE SOURCE S i ATFmEnTS 


PAGF b2 


0 8 AS 
0 p A8 
Qb Aft 
08AB 
0 8 AB 
OFaB 
08 AB 
0.8 AB 
08 AD 
0? AB 
0 8 AB 
0 

0 8 AB 
0 8 AR 

08 AB , 
0 9 A B 
08 AB 
0 8 AB 
0 8 A R 


4 * 444 * 4 * 4 * * Iff * 4 + *+444* 

DI6PL1 - ADD ENOUGH b LOCKS TU RFaCH D F o 1 h F 0 * 
COLUMN ^ 

♦ 4 * * * * * * * * * 


ENTRY; C = MU M 8FR OF CHARACTERS uFe.DLi- - 1 
D , F = LOCATION OF FUL In LinE 

FAIT : A = 0, NOT ENOUGH BLOCKS (*fcM.lR* LOCK j 

h-r, destroyed 

A #0, MEMO h Y ALLOCATED 

D , E = F J P S T C BAR APuR I N E F w b I -J C i\ S 
B,C,H,L PEST ROY ED 

IF U N L Y CNF CHARACTER IS iU BE ADDED , T.HF 
CHAR. ACT E P 1 S A!)D F D 1 0 T H F l. I H E . U T h F R w I 5 E , A u 
PEOUlRKD BLOCKS ARE ADDED TO 1 Hr. LINE AwP TmE 
T.IE’F. IS FILLED *ITH BLANKS OR To THE DESIRED 

Ch a facte r only. 


0 8 A B 

« 

• 

• 

i 



0 8 A R 

• 

m 

9 

DlSPLl 

f:oh 

$ 

0 8 AB 

OC 

9 

9 


T iv 8 

C 

0 8 AC 

Co 

71 

0 9 


CALL 

L P L M u V 

0 8 A F 

OD 

. 

• 


DC R 

C 

0 9bD 

FA 

4A 

0 9 


J h 

D I S 2 2 0 

0 w S 3 

21 

9o 

FF 


LX f 

ti , NCrlAR 

0 8 BE 

71 

• 

• 


vuv 

M,C 

0 8 b 7 

• 

• 

• 

DISPL2 

FOU 

$ 

0 b B 7 

FB 

« 

• 


XCHG 


0 8 b 8 

2 2 

94 

Fr 


SnLD 

eOLADR 

0 8 B B 

OD 

• 

• 


DC R 

C 

0 8 «3C 

FA 

5 A 

0 9 


J M 

D J S 4 0 0 

0 8 BE 

3E 

2 0 

• 


MV I 

A , ABLNK 

08C l 

CD 

4D 

05 


CALL 

gtblk 

0fiC4 

C8 

• 

• 


R2 


08CS 

Fib 

• 

• 


XCHG 


0 8C6 

F o 

OF 

• 


OKI 

B L i\ S M 

08C9 

4F 

• 

• 


MOV 

C f A 

0 8C 9 

C5 

• 

• 


PUSH 

b 

08CA 

3 A 

9b 

FF 


LD A 

NCHAK 

08CD 

Oh 

00 

• 


M V I 

B , 0 

08CF 

• 

• 

• 

D I S 1 2 0 

FDD 

$ 

08CF 

04 

• 

• 


I N f< 

B 

OboO 

Db 

OE 

• 


SUT 

BLKSZ-? 

0 H 1.) 2 

F 2 

CF 

0 8 


vJP 

IUS12U 

08d5 

3 2 

84 

FF 


ST A 

COUNT 

08D8 

05 

a 

• 


OCR 

B 

0 8 D9 

CA 

FA 

08 


HZ 

n i s 1 6 o 


;«OVt EUL 1 F NECESSARY 


; 0 K< A R ACTE R R U S 1 T i M n F f / U i". u 
; S A V t MI M B E R OF C B A R A C T F R S 
? TU BE ADDED - 1 


; SAVE EOL ADDRESS 

; S I H G L E C H A R AC T F R A D D F D ? 

; YES - Du FAST EX IF Ml; 

;N0 - GET A DISPLAY bLuCK 
; FILLED WITH BLANKS 

; return if MEMORY locked 

; PUT BLOCK ADDRESS I iM J , t 
;CU«pniF HIGH ADD R OF BLOCK 
; SAVE ADDRESS UF F IRST NF.w 
; BLOCK ADDED 

? GET ft OF CHAPS 10 BE added 
? lull TALI ZE COUNT 

; T i.m C h F’ to F w 1 C U U w T 
;SUB. NO. OF CHARS IN Bl OCK 
; JUMP IF MURE n LUCKS MEF dFD 
;SAVE LAST CHAR BLOCK ROS 
; SINGLE BLOCK? 

,* YES 
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ii 
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ii 
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ii 

ii 

ii 

ii 

ii 
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ti 

li 

ll 

It 

ll 

If 
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ll 
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it 

ii 

li 

ti 

ii 

il 
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ti 

il 

ll 

il 
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ll 
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ii 

2906 

08 DC 


• 

• 

.*************************** 

2907 

08 DC 

• 

• 

• 

; multiple 

BLOCKS REQUIRED * 

290 1* 

08DC 

• 

• 

• 

;*******)|^*^** ************* 

2909 

08DC 

21 

99 

FF 

LXT 

H,NRLKS 

; SAVE BLOCK COUNT 

2910 

08DF 

70 

• 

• 

MOV 

M,R 


2911 

O^EO 

• 

• 

• 

. * ************* ********** 

2912 

08t0 

• 

• 

• 

; GET SUBSEQUENT BLOCKS * 

2913 

08£0 

• 

* 

• 

.*J^***JM**************** 

2914 

0 8 E0 

05 

• 

• 

PUSH 

D 

; SAVE ADDRESS OF LAST BLOCK 

2915 

08E1 

• 

• 

• 

D 1 Si 40 EQU 

$ 


2916 

08E1 

3E 

20 

• 

MV I 

A # ABLNK 

; GET A DISPLAY BLOCK FILLED 

2917 

08E3 

CD 

4D 

05 

CALL 

GTBLK 

; WITH BLANKS 

2918 

08 E 6 

EB 

• 

• 

XCHG 


; PUT BLOCK ADDRESS TN D , E 

2919 

0«E7 

El 

• 

• 

POP 

H 

? RECALL ADDRESS OF LAST BLOC 

2920 

08E8 

CA 

54 

09 

JZ 

DIS240 

;EXIT IF MEMORY LUCKED 

2921 

0 8 EB 

D5 

• 

• 

PUSH 

D 

;SAVE NEW LINE ADDRESS 

2922 

08 EC 

2B 

• 

• 

DCX 

a 

; LINK NEW BLUCK TO PREVIOUS 

292 3 

08ED 

F 6 

OF 

• 

OR I 

BLKSM 


2924 

08 EF 

70 

• 

• 

MOV 

M,R 

; MSP * S 

2925 

08 F 0 

2B 

• 

• 

OCX 

H 


2926 

0 8F1 

77 

• 

« 

MOV 

M , A 

; STORE LSB 

2 927 

08 F 2 

21 

99 

FF 

LXI 

il , NBLKS 


2928 

0PF5 

35 

• 

• 

DCF 

to 

; ALL BLOCKS ALLOC ATFD? 

2929 

08F6 

C2 

El 

08 

JN2 

DIS140 

; NO - GET ANOTHER BLOCK 

2930 

08F9 

FI 

• 

• 

PUP 

PSW 

; YES - PUP THE STACK 
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M 

II 

11 

II 
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H 

li 

ii 
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ii 
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ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

n 

ii 

33S 

:::: 

li 

ii 

1! 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

M 


ssssssssssss 2 sss:sss:s:s 8 s:ss 

2932 

08FA 

• 

• 

• 

.***^**^4 ********************* 

2933 

08 EA 

• 

m 

• 

; ALL BLOCKS 

HAVE BEEN ADDED * 

2934 

08FA 

• 

• 

• 

.***************************** 

2935 

08FA 

• 

• 

• 

DIS160 EQU 

$ 


2936 

08 FA 

3A 

84 

FF 

LDA 

COUNT 

; COMPUTE NUMBER OF BYTES 

2937 

08FD 

2F 

• 

• 

CMA 


; TO FILL 

2938 

08FE 

3C 

• 

• 

INP 

A 


2939 

08FF 

4F 

* 

• 

MOV C 

# A 

SAVE IN C 

2940 

0900 

83 

• 

• 

ADD F 

9 

GET FIRST FILL ADDR 

2941 

0901 

3D 

• 

• 

OCR 

A 

; SET FIRST LSB FILL ADDRESS 

2942 

0902 

6F 

• 

• 

MOV 

L , A 

; PUT LSB INTO L 

2943 

0903 

62 

• 

• 

MU V 

H,D 

; GET MSB FROM D 

2944 

0904 

06 

CC 

• 

MVJ 

B , EOL 

; SET "EOL" CHARACTER 

2945 

0906 

3 A 

Cl 

FF 

IDA 

CURCOL 

; GET CURRENT COLUMN 

2946 

0909 

FE 

4F 

• 

CPI 

MAXCOL 

; CH AR ADDED TO LAST COLUMN? 

2947 

090B 

C2 

15 

09 

JNZ 

DIS170 

•NO - SET "FUL" CHARACTER 

2948 

090E 

3 A 

89 

FF 

LDA 

DCHAR 

;YES - GET CHARACTER STORED 

2949 

0911 

B7 

• 

• 

OKA 

A 

; IS IT ASCII? 

2950 

0912 

F2 

16 

09 

JP 

D IS 1 7 5 

; YES - DON'T ADD "LOL” 

2951 

0915 

« 

• 

• 

J 


NO - SET "EOL" CHARACTER 

2952 

0915 

m 

• 

• 

;*#***************************♦**************** 

2953 

0915 

m 

• 

• 

; FILL UNUSED PART Of 

BLOCK WITH "FILL" CODES * 

2954 

0915 

• 

• 

• 

.********************************************** 

2955 

0915 

• 

• 

• 

DIS170 EQU 

$ 


2956 

0915 

70 

• 

• 

MOV 

M,b 

; STORE FILL/EQL CHARACTER 

2957 

0916 

• 

• 

• 

UIS175 EQU 

$ 


2958 

0916 

2B 

• 

• 

DCX 

H 

; GO TO NEXT BYTE 

2959 

0917 

OD 

• 

• 

DC R 

C 

; ALL UNUSED BYTFS FILLED? 

2960 

0918 

06 

C3 

• 

MV I 

a,f ill 

; (SET "FILL" CODE) 

2961 

091A 

C2 

15 

09 

JNZ 

DIS170 

; NO - SET NEXT BYTE 

2962 

091D 

• 

• 

• 

.*****#***************+**** 

2963 

091D 

9 

• 

• 

; WRITE LINK 

TO NEXT 

LINE * 

2964 

091D 

m 

• 

• 

• a************************** 

2965 

091D 

• 

• 

• 

DIS1 80 EQU $ 



2966 

091D 

2A 

C9 

FF 

LHLD 

LSTLIN 

; GET ADDR CURRENT LINE 

2967 

0920 

EB 

• 

• 

XCHG 



2968 

0921 

2B 

« 

• 

DCX 

H 

; STORE AS NEXT BLOCK POINTER 

2969 

0922 

72 

• 

• 

MOV 

M,D 


2970 

0923 

2B 

• 

• 

DCX 

H 


2971 

0924 

13 

• 

• 

IN X 

D 

; POINT TO NEXT LINE POINTER 

2972 

0925 

73 

• 

• 

MOV 

M,E 
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ii 

ii 

ii 

ii 

ii 

m 

ii 

it 

H 

ii 

ii 

ii 

it 

ii 
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ll 
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ii 

ll 
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it 

ii 
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n 

ti 
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H 

ii 
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ti 
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it 

ii 

it 

i« 

ii 

it 
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ii 

ii 

It 

2974 

0926 

• 

• 

• 

;**:M************ *********** 

2975 

0926 

• 

• 

• 

; LINK NEW BLOCK (S) 

TO OLD * 

2976 

0926 

9 

• 

• 

• ^****:M** ***************** 

297 7 

0926 

01 

• 

• 

POP D 

; RECALL FIRST NEW BLOCK ADDR 

2976 

0927 

3 A 

9B 

FF 

LDA NCHAK 

; GET # OF CHARS ADDED - 1 

2979 

092A 

B7 

• 

• 

OKA A. 

; DOES NEW CHAP REPLACF EOL? 

2980 

0920 

3 A 

89 

FF 

LLA DCHAR 

; (DEFAULT TO ADD 1 CHAR) 

2961 

092E 

CA 

3 3 

09 

JZ 0TS210 

; YES - OVERWRITE EOL 

2982 

0931 

3E 

20 

• 

MVI A,ABLNK 

; NO - STORE BLANK OVER EOL 

2983 

09 3 3 

• 

• 

• 

0IS210 EQU $ 


2984 

0933 

47 

• 

• 

MOV B , A 

; SA VE CHARACTER TO BE STORED 

2985 

09 3 4 

2 A 

94 

FF 

LHLU EOL ADR 

; RECALL EOL ADDRESS 

298 b 

0937 

IA 

CO 

FF 

LDA CURRUW 


2987 

093A 

F 6 

40 

• 

OR I MAYEOL 

; SET FUR POSSIBLE EOL SFIP 

2988 

09 3C 

F 3 

• 

• 

01 

; D 1 SABLE INTERRUPTS 

2989 

0930 

3 2 

20 

8 1 

STA IOCRRW 

; T U R N UFF UI5PLM DMA 

2990 

0940 

7 0 

• 

• 

MUV M,B 

; OVERWRITE EOL 

2991 

0941 

26 

• 

• 

DC X H 


2992 

0942 

72 

• 

• 

Mu V M,D 

; CHANGE NEXT BLOCK LINK 10 

2993 

0943 

26 

• 

• 

OCX H 

; POINT TO NEW BLOCKS 

2994 

0944 

73 

• 

• 

MQV M , E 


2995 

0945 

CO 

9E 

OF 

C ALL DISLN1 

; TURN DISPLAY BACK ON 

2996 

0948 

64 

• 

• 

OKA H 

; SET Z-FALSE 

2997 

0949 

C9 

• 

• 

Pfc T 

; RETURN 

2998 

094 A 

• 

• 

• 

;**♦************************** 

2999 

094A 

• 

• 

• 

; EOL MOVE SATISFIED REQUEST * 

3000 

094A 

• 

• 

• 

; CHECK FOR SINGLE CHARACTER * 

3001 

094A 

• 

• 

• 

• if**************************** 

3002 

094 A 

• 

• 

• 

PIS220 EQU $ 


3003 

0O4A 

30 

• 

• 

OCR A 

? SINGLE CHARACTER? 

3004 

094B 

32 

96 

FF 

STA NCHAR 

; ( SET NCHAK) 

3005 

094E 

CO 

• 

• 

RNZ 

; NO - RETURN 

300b 

094F 

3 A 

89 

FF 

LDA DCHAR 

; YES - GET THE CHARACTER 

3007 

0952 

12 

• 

• 

STAX D 

; STORE THE CHARACTER 

3008 

0953 

C9 

* 

• 

RET 

; RETURN 

3009 

0954 

• 

• 

• 

.*************************** 

3010 

0954 

• 

• 

• 

; ALL bLOCKS NOT AVAILABLE * 

3011 

0954 

• 

• 

• 

; INITIALIZE END OF 

LTNE * 

3012 

0954 

• 

• 

• 

.*************************** 

3013 

0954 

• 

• 

• 

DIS240 EQU $ 


3014 

0954 

36 

CC 

• 

MVI M , EOL 

; STORE AN EOL 

3015 

0956 

FB 

• 

• 

XCHG 

; P U T ADDRESS INTO D , E 

3016 

0957 

C 3 

ID 

09 

JMP DIS180 
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3018 

095 A 

• 

* 

• 

***************************** 

3019 

095 A 

• 

• 

• 

; SINGLE CHARACTER 

ADDITION * 

3020 

095A 

• 

• 

• 

;**************************** 

3021 

095 A 

• 

• 

• 

DIS400 EQU $ 


3022 

095 A 

CD 

4B 

05 

CALL GTBLKF 

; GET A DISPLAY BLOCK 

3023 

095D 

C8 

• 

• 

RZ 

;PETURN IF MEMORY LOCKED 

3024 

095E 

54 

• 

• 

MOV D , H 

; SAVE BLOCK ADDRESS IN D , E 

3025 

095F 

5D 


• 

MOV £ , L 


3026 

0960 

F 6 

OF 

• 

ORI BLKSM 

;PUT AN EOL AT THE FIRST 

3027 

0962 

6F 

• 

• 

MOV L , A 

; DISPLAY CHARACTER 

3028 

0963 

36 

cc 

• 

MVI M,EOL 

;lgcation in thr block 

3029 

0965 

£5 

• 

• 

PUSH H 

; SAVE ADDRESS OF BLOCK 

3030 

0966 

C 3 

ID 

09 

JMP DIS1 80 

,*LINK block TO DISPLAY 
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n 

il 

if 

il 

ii 

ii 

ii 

ii 

H 

n 

it 

1! 

3032 

0969 

• 

• 

• 





3033 

09b9 

• 

• 

• 

* * * 

* * 

*•***♦ 

************** 

3034 

0969 

• 

• 

• 





3035 

0969 

• 

• 

• 

EULMOV - 

MOVE EOL 

IN A BLOCK 

3036 

0969 

• 

• 

• 





3037 

0969 

• 

• 

• 


ENTRY 

S C = NUMBER OF BYTES NEEDED 

303d 

0969 

• 

• 

• 



n,E = 

ADDKESS OF EXISTING FOL 

30 3 9 

0969 

• 

* 

• 





3040 

0969 

• 

• 

• 


EXIT 

: A = NUMBER OF CHARACTERS ADDED 

3041 

0969 

• 

• 

• 



C = 0, 

CHARACTER FOUND 

3042 

0969 

• 

• 

• 



D,E 

= ADDRESS OF CHARACTER 

304 3 

0969 

• 

• 

• 



C = NUMBER of characters needed 

3044 

0969 

• 

• 

• 



D,E 

= ADDRESS OF LAST BYTE IN BLK 

3045 

0969 

• 

• 

• 



H = BASER 

304b 

09o9 

• 

• 

• 



R,L DESTROYED 

3047 

0969 

• 

• 

• 





3048 

0969 

• 

• 

• 

EOLMVO - 

MOVE ONLY 

IF unprotected 

3049 

0969 

• 

• 

• 

• 




3050 

0969 

• 

• 

. EOLMVO 

Eyu 

$ 

; GET BLOCK FILL INHIBIT FLAG 

3051 

0969 

3 A 

91 

FF 


LI) A 

bLKFIL 

3052 

09oC 

3C 

• 

« 


I NR 

A 

? BLOCK FILL INHIBITED OR 

305 3 

0960 

C 4 

65 

10 


CwZ 

CKFRCJT 

; CURSOR IN PROTECTED FIELD 

3054 

0970 

C8 

• 

• 


RZ 


; YES - RETURN 

3055 

09 71 

• 

• 

• 

} 




305 b 

0971 

• 

• 

. eoLMuv 

FOU 

8 

; COMPUTE NUMBER OF BYTES 

3057 

0971 

7 B 

• 

• 


MIJV 

A , E 

3058 

0972 

F!6 

OF 

• 


ANI 

BLKSM 

; AVAILABLE IN BLOCK 

3059 

0974 

06 

02 

• 


SUI 

2 

; (DELETE BYTES FOP LINK) 

3060 

0976 

C8 

• 

• 


RZ 


; RETURN IF NONE AVAILABLE 

3061 

09 7 7 

EH 

• 

• 


XCHCt 


; PUT CURRENT ADDRESS IN H , L 

3062 

0978 

B9 

• 

• 


CMP 

C 

? ENOUGH CHARACTERS? 

306 3 

09 79 

4 7 

• 

• 


MOV 

b, A 

; (SET b TO FILL BLOCK) 

306 4 

097A 

1 1 

40 

CC 


LX I 

D r EOb*256+MAYEOL ; ( SFl FOR PARTIAL 

3065 

0 9 7 D 

• 

m 

• 

• 



LINE EXTENSION) 

306b 

097D 

FA 

92 

09 


JM 

ELM 00 

; MU - BLANK REST OF BLOCK 

306 7 

0980 

41 

« 

• 


MOV 

B , C 

; YES - BLANK WHAT'S NEEDED 

3068 

0981 

3 A 

Cl 

FF 


LL) A 

CURCOL 

; GET CURRENT COLUMN POSITION 

3u6 9 

0984 

FE 

4F 

• 


CPI 

MAXCOL 

; ADDING TO LAST COLUMN? 

3070 

0986 

C 2 

92 

09 


JNZ 

ELM10O 

; NO - NEED EOL AT LINE END 

3071 

0989 

3 A 

89 

FF 


LDA 

DCHAR 

; YES - GET NEW CHARACTER 

3072 

09dC 

B7 

• 

• 


ORA 

A 

; IS IT ASCII? 

307 3 

098D 

FA 

92 

09 


JM 

ELM 100 

; NO - NEED EOL AT LINE END 

3074 

0990 

16 

C 3 

• 


M V I 

D,FILL 

; YES - DON'T NEED EOL 
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H 
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it 
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it 

it 

ii 

it 

ii 

ii 

it 

ii 

tl 

ii 

ii 

ii 

H 

it 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

tt 

it 

ii 

it 

ii 

ii 

ii 

tl 

it 

it 

ii 

ii 

3076 

0992 

• 

• 

• 

i 




3077 

0992 

• 

• 

• 

? FILL 

THE 

BLOCK 


3078 

0992 

• 

m 

• 

t 

9 




3079 

0992 

• 

• 

• 

ELM100 

EQIJ 

$ 


3080 

0992 

79 

• 

• 


MU V 

A f C 

; COMPUTE NUMBER OF ADDITION A 

3081 

0993 

90 

• 

• 


SUB 

B 

; BYTES NEEDED 

3082 

0994 

4F 

• 

• 


MOV 

C , A 

? SAVE IT IN C FOR RETURN 

3083 

0995 

3A 

CO 

FF 


LDA 

CURROW 

; SET CONTROL TO TURN OFF DMA 

3084 

0998 

B3 

• 

• 


ORA 

E 


3085 

0999 

58 

• 

• 


MOV 

E,B 

; SAVE NUMBER OF BYTES ADDED 

3086 

099A 

F 3 

• 

• 


Di 


;DISABLE INTERRUPTS 

3087 

099B 

32 

20 

8 7 


STA 

IOCRRW 

;TURN OFF DMA 

3088 

099E 

• 

• 

• 

• 

9 




3089 

099E 

• 

• 

• 

ELM1 10 

EQU 

$ 


3090 

099E 

36 

20 

• 


MVI 

M , ABLNK 

,-FILL 8LUCK WITH BLANKS 

3091 

09A0 

2B 

« 

• 


DCX 

ii 

; MOVE TO NEXT BYTE 

3092 

09A1 

05 

• 

• 


OCR 

b 

; FILL COMPLETED? 

3093 

09A2 

C2 

9E 

09 


JNZ 

ELM 110 

; NO - DO NEXT BYTE 

3094 

09A5 

7 2 

* 

• 


MOV 

M,D 

;YES - ADD FUL OR EOL FILL 

3095 

09A6 

CD 

9E 

OF 


CALL 

DISLN1 

;TURN DISPLAY BACK ON 

3096 

09A9 

AF 

• 

• 


XRA 

A 

;CLFAR A-REGISTFR 

3097 

09AA 

B 1 

• 

• 


ORA 

C 

;ALL CHARACTERS DONE? 

3098 

09AB 

C2 

AF 

09 


JNZ 

ELM 130 

; NO - RETURN ADDRESS OF EOL 

3099 

09AE 

23 

• 

• 


I N X 

H 

; YES - RETURN AD DR OF LAST C 

3100 

09AF 

• 

• 

• 

ELM l 30 

FQU 

$ 


3101 

09AF 

7B 

• 

• 


MOV 

A, E 

;PUT » OF CHAPS DONE IN A-RE 

3102 

09B9 

EB 

• 

• 


XCHG 


?PUT CHARACTER ADDRESS IN D, 

3103 

09B1 

21 

90 

FF 


lxi 

H t EOLM V 

?(SET H TO DATA PAGF) 

3104 

09B4 

36 

01 

• 


MVI 

M , 1 

/•SET EOLMV FLAG 

3105 

09B6 

C9 

• 

• 


RET 


/•RETURN 
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ii 

ii 
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II 
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it 

ii 

ii 

it 

ii 

it 

3107 

0987 

• 

• 

• 

.******************* 


3106 

09B7 

• 

• 

• 

; LD - LINE DELETE * 


3109 

0987 

• 

• 

• 

;*****$*J ************ 


3110 

09B7 

• 

9 

• 

LINPEL E0U $ 


3111 

09B7 

CD 

7b 

19 

CALL CHKFMS 

? FORMAT MODE? 

3112 

098A 

CC 

B4 

06 

CZ - PC ADR 1 

; F 1 N P LINE IF NOT 

3113 

09bP 

CO 

• 

• 

RNZ 

; L I N E NOT FOUND 

3114 

0 9 B E 

2 A 

C9 

EE 

LHLD LSIL1N 

; GET AODR OF LAST LTNF DUNE 

3115 

09C! 

7E 

• 


MU V A,M 

; GET PRFVIUUS LINE'S USB 

3116 

09C2 

B7 


• 

ORA A 

; AN V PRFVIUUS LTNFS? 

3117 

09C3 

CA 

D4 

09 

JZ LI 0 0 5 0 

; NO - DO CLFAR LINE ONLY 

3116 

09C6 

CO 

DA 

09 

CALL LINPLO 

; YES - DELETE CURRENT LINE 

3119 

09C9 

• 

9 

• 

; ***********)M**+******4** ************* 

3120 

09C9 

• 

9 

• 

; UPDATE LSTLIN AND 

CURAOR TO ADDRESS * 

3121 

09C9 

• 

9 

• 

; UF NEXT LINE 

* 

3122 

09C9 

• 

9 

• 


3123 

09C9 

60 

9 

• 

MOV H , B 

; PUT NEW LINE ADDRESS INTO 

3124 

Q9C A 

69 

9 

• 

MOV L,C 

;h # I, 

3125 

09CB 

CO 

E6 

16 

CALL BACK T5 

? UPDATE CURRENT LINE AND ADD 

3126 

09CE 

CO 

27 

0A 

CALL LININO 

, GO UPDATE TOP LINE IF MEEOF. 

3127 

09D1 

C 3 

91 

06 

JMP PIJTLIN 

;AOD LINE TO FREE LIST 

3126 

0904 

• 

• 


LI0050 EQU $ 


3129 

0904 

CD 

3C 

1C 

CALL CLEARL 

? CLEAR THE. LINE 

3130 

0907 

C 3 

C5 

21 

JMP CURPRT 

; SET CURSOR AT LEFT MARGIN 
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3132 

09DA 

* 

• 

• 

*************************************** 

3133 

09DA 

• 

• 

• 

LINDLO - 

PMOVF. LINE FROM LINKED LIST * 

3134 

09DA 

• 

• 

• 

*************************************** 

3135 

09DA 

• 

• 

• 



313b 

09DA 

• 

• 

• 

ENTRY: 

H,L = ADDRESS OF NEXT LINE FIELD 

3137 

09DA 

• 

* 

• 


( LSB ) OF LINE TO BE DELETED 

3138 

090A 

• 

• 

• 



3139 

090 A 

• 

• 

• 

EXIT : 

B , C = ADDRESS OF LSB PORTION OF 

3140 

090A 

• 

• 

• 


NEXT LINE POINTER IN NEW LINE 

3141 

09DA 

• 

• 

• 


D , E = H,L(ENTRY) 

3142 

09DA 

• 

• 

• 


A,H,L DESTROYED 

3143 

09DA 

• 

• 

• 



3144 

090A 

• 

• 

. LINDLO EQU 

$ 

3145 

09DA 

50 

• 

• 

MOV 

E , L ;SAVE ADDRESS OF LIME TO BE 

3146 

09DB 

54 

• 

• 

MOV 

D,H ? DELETED IN D , E 

3147 

090C 

4E 

• 

* 

MOV 

C,M ; GET ADDRESS OF NEXT LINE 

3148 

09DD 

23 

• 

• 

INX 

ri 

3149 

090E 

46 

• 

• 

MOV 

B,M 

3150 

09DF 

23 

• 

• 

InX 

H ; GET ADDRESS OF PREVIOUS LIN 

3151 

09EO 

7E 

• 

• 

MOV 

A , M 

3152 

09E1 

23 

• 

• 

INX 

h 

3153 

09E2 

66 

* 

* 

MOV 

H, M 

3154 

09E3 

B7 

• 

• 

OHA 

A ; DOES PREVIOUS LINE EXIST? 

3155 

09E4 

C2 

FO 

09 

JNZ 

LID200 ;YES - LINK 2 LTNES TOGETHER 

3156 

09E7 

• 

• 


. ********************* ****** *********** 

3157 

09E7 

• 

• 

• 

? first line deleted - update fline * 

3158 

09E7 

• 

• 

• 

. ************************************** 

3159 

09E7 

60 

• 

• 

MOV 

H , B ; MOVE NEW CURRENT LINE TO H, 

3160 

09E8 

69 

• 

* 

MOV 

L , C 

3161 

09E9 

23 

• 

• 

INX 

H ; SET ADDR TO NEXT LINE FIELD 

3162 

09EA 

22 

9F 

FF 

SHLD FLINE 

3163 

Q9ED 

C 3 

F6 

09 

JMP 

LID300 ; SET NEW PREV LINE POINTER 
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it 

it 

•i 

ii 

H 

it 

ii 

ii 

ii 

it 

ii 

n 

ii 

ii 

ii 

ii 

ti 

ii 

;s 

ii 

ii 

ti 

ii 

ii 

ii 


it 

ii 

ii 

li 

ii 

ii 

ii 

s 55 s:sr;=s:s:s:s::=s==ss:::s;:s 

3165 

0 9 F 0 

* 

• 

• 

.***********************♦*♦**************** 

3166 

09F*> 

• 

• 

• 

; UPDATE NEXT LINE 

FIELD IN PREVIOUS LINE * 

3167 

Q9F0 

• 

• 

• 

j****** ************************************ 

316b 

09F0 

• 

• 

• 

L I D 2 u 0 FyU $ 



31t>9 

09F0 


• 

• 

MOV 

L,A 

; PUT LSP INTU L-KFGTSTEP 

3170 

09F1 

23 

• 

• 

T NX 

H 

; SET TO MSB OF NEXT LINE FLD 

3171 

09 F 2 

CD 

95 

OF 

CALL 

DISLNK 

; SET NEw M£X1 LIME LINK TO 

3172 

09F5 


• 

• 

9 


CURRENT RON 

3173 

09F5 


• 

• 

.*************************************** 

3174 

09F5 

• 

• 

• 

; SET PREVIOUS LINE 

FIELD IN NEXT LINE * 

3175 

09F5 

• 

• 

• 

• *9***3 ********************************** 

3176 

09F5 

70 

• 

• 

M 0 V 

A , L 

;SAVE PPE V LINE ADDP'S LSB 

3177 

09p'6 

• 

• 

• 

LID 300 FQU 

$ 


3 l 7 d 

0 9 F 6 

03 

• 

• 

TNX 

ti 

; INCREMENT TO NEXT LINE PTH 

3179 

09F7 

Cb 

• 

• 

PUSH 

B 

;SAVE ADDRESS 

3ib0 

09F8 

03 

• 

• 

I NX 

B 

; SET ADDRESS TO PREVIOUS 

3181 

09F9 

03 

• 

• 

I NX 

b 

; LI M E FIELD 

3182 

0 9 F A 

02 

• 

• 

STAX 

B 

; STORE LSB VALUE 

3183 

0 9 F P 

0 3 

• 

• 

T N X 

B 


318 4 

09FC 

7C 

• 

• 

MOV 

A , H 


3185 

09FD 

0 2 

• 

• 

STAX 

B 

; STORE MSB VLAUF 

318o 

09FF 

Cl 

• 

• 

POP 

B 

; RESTORE CONTENTS OF B,C 

318 7 

09FF 

C 9 

• 

• 

PET 


; RETURN 
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il 
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3189 

OAOO 


• 

• 

************ ******** 


3190 

OAOO 

• 

• 

• 

? LI - LINE INSERT * 


3191 

OAOO 

• 

• 

• 

******************** 


3192 

OAOO 

• 

• 

• 

LININS EOU S 


3193 

OAOO 

CD 

7 o 

19 

CALL CHKFMS 

; FORMAT MODE? 

3194 

0A03 

CC 

B4 

Oo 

CZ RCADR1 

;FJND LINE IF NOT 

3195 

0A06 

CO 

• 

• 

RNZ 

; RETURN IF LINE NOT FOUNU 

3196 

0A07 

CD 

4B 

05 

CALL GTBLKF 

; GET BLOCK FOR NEW LINE 

3197 

OAOA 

C8 

• 

• 

RZ 

? RETURN IF NOT AVAILABLE 

3198 

0 AoB 

• 

• 

• 

********************************* 

3199 

0A0B 

• 

• 

• 

; STORE LINK AT END 

OF NEW LINE * 

3200 

0 AOB 

• 

0 

• 

;******************************** 

3201 

0 AOB 

C6 

OB 

• 

ADI BLKSZ-5 

; GET A DDR UF NEXT LINE FIELD 

3202 

OAOO 

2D 

• 

• 

OCR L 


3203 

0 AOE 

74 

• 

• 

MU V M,H 

; STORE LINK MSB'S 

3204 

OAOF 

2D 

• 

• 

DCR L. 


3205 

0 A 1 0 

77 

« 

• 

MOV M , A 

; STORE LINK LSB'S 

3206 

0 A 1 1 

06 

02 

• 

SUI 2 

; STORE EOL IN NEW LINE 

3207 

OA 1 3 

6F 

• 

• 

MOV L,A 


3208 

0 A 1 4 

CD 

68 

CD 

CALL STCHR1 

; SET FIRST DISPLAY CHARACTER 

3209 

0 A 1 7 

• 

• 

• 

.***************+***************************** 

3210 

0A17 

• 

• 

• 

? ADJUST LSTLTN AND 

CURADR PNTRS TO NEW LINE * 

3211 

OA 1 7 

• 

0 

• 

;********************************************* 

3212 

0 A 1 7 

22 

C3 

FE 

SHLD CURADP 

;SET CURADR TO 1ST CHAR 

3213 

0 A 1 A 

23 

• 

• 

I N X H 

; SET TU NEXT LINE POINTER 

3214 

0 A 1 B 

7 D 

• 

• 

MOV A f L 

; PUT LSB INTO A-REGISTER 

3215 

0 A1C 

EB 

• 

• 

XCHG 


3216 

0A1D 

2 A 

C9 

FF 

LHLD LSTLIN 

; GET CURRENT LINE ADDRESS 

3217 

0A20 

EB 

• 

• 

XCHG 


3218 

0A21 

22 

C9 

FF 

SHLD LSTLIN 

;SLT NEW CURRENT LINE ADDRES 

3219 

0A24 

CD 

3C 

OA 

CALL LININ1 

; ADD LINE TO DISPLAY LIST 

3220 

0A27 

• 

• 

• 

.**************************** 

3221 

0A27 

• 

0 

• 

; UPDATE TOPLIN IF ROW ZERO * 

3222 

0A27 

• 

0 

• 

.**************************** 

3223 

0 A27 

• 

0 

• 

LININO EQU 5 


3224 

0 A27 

CD 

AO 

OA 

CALL LSTLU2 

; SET INITIAL LINE STATE 

3225 

0 A2A 

CD 

C5 

21 

CALL CURPRT 

; SET CURSOR TO LEFT MARGIN 

3226 

0A2D 

AF 

• 

• 

XRA A 

; SET LAST COLUMN DONE TO 

3227 

0A2E 

32 

C8 

FF 

STA LSTCOL 

? ZERO 

3228 

0A31 

21 

CO 

FF 

LXI H f CURROW ; GET CURRENT ROW NUMBER 

3229 

. OA 34 

B6 

0 

• 

ORA M 

; DID TOP ROW CHANGE? 

3230 

0A35 

CO 

• 

• 

RNZ 

?NU - RETURN 

3231 

0A36 

C 3 

86 

OF 

JMP T0PUP1 

; YES - UPDATE TOP LINE VALUE 
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ITEM 
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OBJECT 
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323 3 

0 A 39 

• 

• 

• 

.****************************************** 

3234 

0 A 39 

• 

• 

• 

LIN INI - ADD LINE 

TO LINK LIST * 

3235 

0A 39 

• 

* 

• 

ENTR*: D,E=NEXT PAGE FIELD ADDH IN LINE * 

3236 

0 A 39 

• 

• 

• 

BfcJ'URE 

WHICH NEw LINE IS * 

3237 

0 A 39 

• 

• 

• 

TO BE 

INSERTED * 

3236 

0A39 

• 

• 

• 

A,B = \'EXT PAGE FIELD ADDH OF LINE * 

3239 

0 A 3 9 

• 

* 

# 

ro BE 

inserted 

3240 

0 A 39 

• 

• 

• 

EXIT ; C,R 

= A, B( ENTRY) 

3241 

0 A 3 9 

• 

• 

• 

D-L 

DESTROYED 

3242 

0 A39 

• 

• 

• 

►*******+*+******** ******+****♦*♦*****♦**** 

3243 

0 A 39 

• 


. LIN I rv A EG'J $ 


3 24 4 

0A39 

7 B 

• 

• 

MOV A,E 

JPUT POLLED LINE ADDRFSS TNT 

3245 

0A3A 

42 

• 

• 

MOV B,D 

;B,A 

3 246 

0 A 3B 

FB 

• 

• 

XCHG 

; PUT CHAR ADDRESS INTO D , E 

324 7 

0A3C 

• 

• 

. LIN IN 1 EDO S 


3248 

0A3C 

66 

• 

• 

MOV L , E 

; UPDATE PREV LINE PTR 

3249 

0 A 3D 

62 

• 

• 

MOV H , D 

; 1 n NEXT line 

3250 

0A3E 

23 

• 

• 

I N X H 

; SET ADDRFSS Tu PREVIOUS 

3251 

0 A 3F 

23 

» 

• 

I N X H 

; L 1 N E POINTER 

3252 

0 A 4 0 

4E 

• 

• 

MU V C,M 

; GET ADDR OK PRF V LlivE 

325 3 

0A41 

7 7 

m 

• 

ML V M,A 

; STORE ADDR UF NEW LINE 

3254 

0 A 42 

23 

• 

• 

T U X H 


3255 

0A43 

5b 

• 

• 

MU V D,M 


3256 

0 A4 4 

70 

• 

• 

MOV M, B 


3257 

0 A45 

• 

• 

• 

» * ♦ * * * * 1 ************** *********** 

3258 

0 A 4 5 

• 

• 

• 

UPDATE NEX I /PREVIOUS POINTERS * 

3259 

0 A45 


• 

• 

; IN MEW LINE 

* 

3260 

0A45 

• 

• 


•** ******************* *********** 

32o 1 

0 A45 

6F 

• 

• 

MOV L f A 

; Gt.T ADDR OF NEXT LINF FIELD 

3 262 

0 fl 46 

7C 

• 

• 

MU V A , H 


326 3 

OA 47 

60 

• 

• 

MOV H,R 


3264 

0A4H 

ID 

• 

• 

OCR E 

; Sk T P OVER POINTERS 

3265 

0 A 49 

73 

• 

• 

MU V M,E 

; STORE NEXT LINE LSB'S 

3266 

0A4A 

23 

• 

• 

I NX H 


3267 

0A4B 

77 

• 

• 

Mu V M , A 

; STORE NEXT LInF M£,r'S 

3268 

0A4C 

23 

• 

• 

f N X ft 


3269 

0 A 4D 

71 

• 

• 

MOV M,C 

; STORE PREV LINE LSB'S 

3270 

0 A 4 E 

23 

• 

• 

1 N X H 


3271 

0 A 4 F 

72 

• 

• 

MOV M,D 

; STORE PREV LINE MSB'S 
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II 

II 

II 

II 

3273 

0 A50 

• 

• 

• 

.******************************** 

3274 

0A50 

• 

• 

• 

; SEE IF NEW LINE IS 

FIRST LINE * 

3275 

OA50 

• 

* 

• 

• * * * * ***************** *********** 

3276 

0A50 

79 

• 

• 

MOV A,C 

; GET PREV LINE LSB'S 

3277 

0A51 

B7 

• 

• 

ORA A 

;SET FLAGS 

327 8 

0A52 

7 D 

• 

• 

MOV A,L 

? ( PUT LSB OF ADDR IN A-PEG) 

3279 

0A53 

CA 

61 

0A 

JZ LI I 200 

; JUMP IF NEW LINE IS 

3280 

0 A56 

• 

« 

• 

• 

9 

FIRST LINE 

3281 

0 A56 

• 

• 

• 

; *********** ********************** 

3282 

0 A56 

« 

• 

• 

? NEW LINE IS NOT FIRST LINE * 

3283 

0 A56 

• 

• 

• 

? LINK PREVIOUS LINE 

TO NEW LINE * 

3284 

0 A56 

• 

• 

• 

; **** ****** ****** ********* ******** 

3285 

0A56 

D6 

04 

« 

SUI 4 

; GET ADDR OF NEW LINE DATA 

3286 

0A58 

69 

• 

• 

ML1V L,C 

; GET ADDR OF NEXT PAGE FIELD 

3287 

0A59 

62 

• 

• 

MOV H,D 

; OF PREVIOUS LINE 

3288 

0 A5 A 

4F 

• 

• 

MOV C,A 

;NEW LINE'S LSB TO C 

3289 

0A5B 

2 3 

• 

• 

INX H 

; SET TO MSB PART OF FIELD 

3290 

0A5C 

CD 

95 

OF 

CALL DISLNK 

; LINK PREV LINE TO NEW LINE 

3291 

0A5F 

oc 

• 

• 

INR C 


3292 

0 A60 

C9 

• 

• 

RET 

; RETURN 

3293 

0 A6 1 

• 

• 

• 

.************************* 

3294 

0 A6 1 


• 

• 

? NEW LINE IS FIRST 

LINE * 

3295 

0A61 

• 

• 

• 

.************************* 

3296 

0 A 6 1 

• 

• 

• 

LI 1200 E0U $ 


3297 

0 A6 1 

D6 

03 

• 

SUI 3 

; GET ADDR OF NEXT PAGF. FIELD 

3298 

OAo 3 

4F 

• 

• 

MOV C,A 

; PUT LSB INTO C-REGTSTER 

3299 

0 A6 4 

6F 

• 

• 

MOV L,A 

; SET NEW FIRST LINE POINTER 

3300 

0A65 

22 

9F 

FF 

SHLD FLINE 


3301 

0A68 

C9 

• 

• 

RET 

; RETURN 
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3303 

0A69 

• 

• 

• 

* 

9 

****$*:r* ************** 

3304 

0 A69 

• 

* 

• 

♦ 

9 

LINE 

feed 

PROCESSOR 

4 

3305 

0 A69 

• 

• 

• 

9 

*****$******* $**.***4.** 

3 306 

0A69 

# 

• 

• 

CONDLF 

EQU 

$ 


3307 

0 A69 

3 A 

Fb 

FF 



DU A 

K6JMPR 

; GET THE STRAP SETTINGS 

3 308 

0A6C 

Eb 

04 

• 



AN I 

UNWRP 

;WKAP AROUND ENABLED? 

3309 

0 A bE 

CB 

• 

• 



RZ 

r 

YES - LF NOT REQUIRED 

3310 

0 AbF 

• 

• 

• 

LNFEfcU 

EgU 

$ 


331 1 

0 A6F 

21 

6C 

FF 



LX I 

H t SPO w'L 

; CLEAR SPUN LATCH 

3312 

0 A 7 2 

36 

FF 

• 



■MV I 

M,SPQWOF 


3313 

OA74 

2E 

CO 

• 



M V I 

L , CURROW- 

BASE i GET CURSOR ROW 

3314 

0 A7 6 

7 £ 

• 

• 



MQV 

A , M 


3315 

0 A 7 7 

FE 

17 

• 



CPI 

y A X RON ; 

IS CURSOR IN BOTTOM ROW? 

3316 

0 A 7 9 

CA 

81 

OA 



JZ 

IiNFIOO 

; YES - POLL UP THE DISPLAY 

3317 

0 A7C 

3C 

• 

• 



I NR 

A 

;MQ - MOvh CURSOR TO TEXT HO 

3318 

0 A7D 

7 7 

• 

• 



MOV 

i'l t A 

; STORE HEW ROW NUMBER 

3319 

0A7E 

32 

20 

8 7 



ST A 

JOCRRW 

;SET SCREE* CURSOR 

3320 

0 Ab 1 

• 

• 

• 

LMF100 

EQU 

S 


3321 

0 A 8 1 

CC 

27 

OC 



CZ 

ROLLUP 

; (ROLL UP IF AT BOTTOM ) 

3322 

0 A 8 4 

• 

• 

• 






3323 

0A8 4 

• 

• 

• 


BUILD FIRST BLOCK 

OF NEw ROW IF NECESSARY 

332 4 

0 AB 4 

• 

• 

• 






3325 

0 A 8 4 

3 A 

70 

FF 



I, DA 

MFLGS 

; GET BLOCK XFR PENDING FLAGS 

3326 

0 AB 7 

Fb 

40 




ANI 

SFN TER/256 ; ENTER PENDING? 

3327 

0 A 8 9 

CO 

• 

• 



Rim Z 


; YES - DO NOT BUILD NEW ROw 

3328 

0 A 8 A 

3 A 

6 4 

FF 



DU A 

i OF LG 2 

; NO - GET I/O FLAGS 

3329 

0 A B 0 

Eb 

2 0 

• 



ANT 

XDS2BF 

? DISPLAY TO I/O BUFFER? 

3330 

0 A 8 F 

Cu 

• 

• 



PtoZ 

• 

9 

YES - DO NOT BUILD ME A ROW 

3331 

0A90 

• 

• 

• 






3332 

0 A 9 0 

• 

• 

• 


ACQUIRE 

MEMORY FOR 

EDIT MODE IF NEEDED 

3333 

0 A 9 0 

• 

• 

• 






3334 

0A90 

3E 

FF 

• 



MV I 

A,-l 

; LOCATE BEGINNING OF NEW 

3335 

0 A 9 2 

CD 

OB 

07 



CALL 

RCADKO 

; P o w 

3336 

Q A 9 5 

CD 

4D 

10 



CALL 

CKEDIT 

; CHECK FOR SUFFICIENT FREE 

333 / 

0 A9 8 

C 4 

OA 

1 5 



C to Z 

F PEC NT 


3338 

0 A9B 

C9 

• 

• 



RET 


; RETURN 
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3340 

0 A9C 

• 

• 

• 





3341 

0 A9C 

• 

• 

• 

* * * 

♦ * 

♦ * * * * 

************** 

3342 

0 A9C 

• 

• 

* 





3343 

0 A9C 

• 

• 

• 

LSTLUP - 

UPDATE M LSTLIN M 

3344 

0A9C 

• 

• 

• 





3345 

0 A9C 

• 

• 

• 


ENTRY 

I H,L = 

ADDRESS TO BE STORED 

3346 

0A9C 

• 

« 

• 





3347 

0A9C 

• 

• 

• 


EXIT 

; D,E = 

LSTLIN = H , L ( ENTRY ) 

3348 

0 A9C 

• 

• 

• 



A,H,L 

DESTROYED 

3349 

0 A9C 

• 

• 

• 



LSTDCD 

= 0 

3350 

0 A9C 

• 

• 

• 



PRUFLD SET TO INDICATE PROTECTED 

3351 

0A9C 

• 

• 

• 



FIELD OF FORMAT MODE ENABLED 

3352 

0A9C 

• 

• 

• 





3353 

0 A9C 

• 

m 

- LSTLUP 

EOU 

$ 


3354 

0A9C 

22 

C9 

FF 


SHLD 

LSTLIN 

;SLT NEW M LSTLIN " VALUE 

3355 

0 A9F 

• 

• 

. LSTLU1 

Fgu 

$ 


3356 

0A9F 

FB 

• 

• 


XCHG 


; PUT "LSTLIN" VALUE INTO D, 

3357 

OA AO 

• 

• 

. LSTLU2 

EQU 

$ 


3358 

0 A AO 

AF 

• 

• 


XRA 

A 

; CLEAR LAST DISPLAY CODE 

3359 

0 AAl 

32 

C6 

FF 


STA 

LSTDCD 


3360 

0 A A 4 

3E 

CO 

* 


M VI 

A , STPR 

; INITIALIZE LAST FORMAT 

3361 

0 A A6 

32 

C5 

FF 


STA 

LSTFMT 

; CONTROL CODE TO "STPR" 

3362 

0 AA9 

CD 

76 

19 


CALL 

CHKFM5 ; 

FORMAT MODE i 

3363 

0 A AC 

C6 

« 

• 


RZ 

• 

9 

NO - RETURN 

3364 

O A AO 

3E 

FF 

• 


MVI 

A,-l 

; YES - SET PROTECT FLAG TO 

3365 

0 AAF 

32 

C2 

FF 


STA 

PROFLD 

; INDICATE PROTECTED FIELD 

336b 

0AB2 

21 

06 

0 7 


LX I 

H , ZRETRN 

INITIALIZE FIELD CHECKING 

3367 

0AB5 

22 

86 

FF 


SHLD 

CHKRTN 

? ROUTINE 

3368 

0AB8 

C9 

• 

• 


RET 
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3370 

0AB9 

• 

• 

* 

; ****************** 


3 3 7 1 

0 A B 9 


• 

• 

; MEMORY LOCK OFF * 


337? 

0AB9 

# 

• 

• 

******************* 


3373 

OAB9 

• 

• 


MLKOFO EQU $ 


337 4 

0 A 6 9 

3 A 

6 B 

FF 

LDA MLKPOW 

; GET MEMORY LOCK ROW 

3 3 7 5 

OAbC 

R7 

• 

• 

ORA A 

; SET FOR FULL LOCK OUT? 

3 3 76 

0 ABO 

C 2 

CO 

10 

JNZ MLKOF 

; NO - CLEAR LOCK OUT ONLY 

337 7 

0 AC 0 

• 

m 

• 

MLKOFF Evil $ 

; YES - TORN UFfr MEMORY LOCK 

3 3 7 8 

0 ACO 

21 

0 0 

00 

LX I ri,0 

; SET MEMORY LOCK ROW AND 

33 7* 

0 AC 3 

2 2 

6 A 

FF 

SHLD MLKFlG 

; EjuAG TO ZERO 

3380 

0AC6 

3E 

04 

• 

MV I A , MFMLUK 

; T U R N OFF MEMORY LOCK 

338 1 

0 AC 8 

C3 

11 

4b 

JMP ZCbMul 

? F L A G 

338? 

0 ACB 

m 

• 

• 

****************** 


3 38 3 

OACB 

• 

• 

• 

; MEMORY LOCK ON * 


3384 

0 ACB 

• 

• 

• 

; ***************** 


3385 

OACB 

* 

• 

• 

MI.KON FOU $ 


3 3 86 

OACB 

3 A 

CO 

FF 

LDA CURROW 

; get current cursor row 

338 7 

0 AC F 

B7 

• 

• 

oka a 

; SET FOR OVERFLOW INHIBIT? 

3 3 8b 

0 A C F 

C2 

06 

OA 

JftlZ MLU005 

; K u - SET MEMORY LOCK KOw 

3589 

0 AU? 

CO 

40 

10 

call ckedit 

?FLJT MO OF? 

3390 

0 A 0 5 

CO 

• 

• 

PiSlZ 

; YES - DON'T ALLOW LOCK OUT 

3391 

0 A D6 

# 

• 

• 

MLU005 FOU $ 

; NO - SEI MEMORY LOCK ROw 

3392 

0 A 0 6 

3 2 

6B 

FF 

ST A MLKRU’V 


3393 

0AD9 

• 

• 

• 

ML0010 F.QH $ 


3394 

0 A 09 

3E 

04 

• 

MV I A , MEMLOK 

; TURN MEMORY LUCK FLAG 

3395 

0 A L> B 

Ob 

00 

• 

M V I B , U 

; ON AN 0 DON ' 1 BLINK LFu 

3396 

0 A L)0 

?1 

6 A 

FF 

L X I H , MLKF LG 

; (CLEAR THE MEMORY LOCK 

3397 

0 A E 0 

70 

• 

• 

MOV M»B 

? FLAG ) 

3398 

OAF! 

C 3 

OE 

48 

JMP ZSTMD1 

.. 
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ii 

ii 
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ii 
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ii 
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II 

II 

II 

3400 

0 AE4 

• 

• 

# 

*********************************** 

3401 

0 AE4 

• 

• 

• 

MLKSCH - 

LOCATE MEMORY LOCK ROW * 

3402 

0AE4 

• 

• 

• 

*********************************** 

3403 

0 AE4 

• 

• 

• 




3404 

0AE4 


• 

• 

ENTRY: 

DON'T CARE 


3405 

0AE4 

• 

• 

• 




3406 

0AE4 

• 

• 

• 

EXIT : 

Z - MEMORY 

LOCK ROW NOT FOUND 

3407 

0AE4 

• 

• 

• 


A,C,H,L 

DESTROYED 

3408 

0 AE4 

• 

• 

• 


NZ - MEMORY LOCK ROW FOUND 

3409 

0 AE4 

• 

• 

• 


H,L = ADDRESS OF LAST LOCK ROW 

3410 

0 AE4 

• 

• 



(POINTS TO LSB OF NEXT LINE 

3411 

0AE4 

• 

• 

• 


POINTER) 

3412 

0 AE4 

m 

• 

• 


A , C DESTROYED 

3413 

0AE4 

• 

• 

• 




3414 

0 AE4 

• 

• 

. MLKSCO EQU 

$ 

; LOCATE FIRST UNLOCKED ROW 

3415 

0AE4 

3 A 

6B 

FF 

LDA 

MLKROW 

; GET MEMORY LOCK ROW 

3416 

0 AE7 

B7 

• 

• 

OKA 

A 

; SET FOR PARTIAL SCPEFN LOCK 

3417 

0 AE8 

2 A 

CB 

FF 

LHliD 

fOPLIN 

; ( SET FOR TOP DISPLAY LINE 

3418 

0 AEB 

CA 

01 

OB 

JZ 

NZEXIT 

; NO - RETURN FOUND (NZ) 

3419 

OAEE 

• 

m 

• 

» 


YES - LOCATE MEMORY LOCK ROW 

3420 

0 AEE 

• 

• 

. MLKSCH EQU 

$ 


3421 

OAEE 

3 A 

6B 

FF 

LDA 

MLKROW ; 

GET MEMORY DOCK ROW 

3422 

0 A F 1 

B7 

• 

• 

ORA 

A 

; SET FOR PARTIAL SCREEN LOCK 

3423 

0AF2 

C8 

• 

• 

RZ 


; NO - RETURN 

3424 

OAF' 3 

. 

• 

• 

.***************** 


3425 

0AF3 

• 

• 

• 

? search for row * 


3426 

OAF 3 

• 

• 

* 

****************** 


3427 

OAF 3 

2 A 

CB 

FF 

LHLD 

TOPLIN 

; GET TOP LINE ADDRESS 

3428 

0 A F 6 

• 

• 

. MLKSC1 EQU 

$ 

? LOCATE LINE; (A-REG) 

3429 

0AF6 

4F 

• 

• 

MUV 

C, A 

; PUT LINE NUMBER IN C-RF.G 

3430 

0AF7 

• 

• 

. MLS 120 EQU 

$ 


3431 

0AF7 

CD 

6D 

19 

CALL 

CHAIN 

; GET ADDRESS OF NEXT LINE 

3432 

OAFA 

B7 

• 

• 

ORA 

A 

; DOES NEXT LINE EXIST? 

3433 

0 AFB 

C8 

• 


PZ 


?N0 - RETURN FAIL (Z) 

3434 

0 AFC 

23 

• 

• 

I NX 

H 

; YES - SET TO NEXT LINE PTR 

3435 

O-AFD 

OD 

• 

• 

OCR 

C 

; ALL LINES FOUND? 

3436 

OAFE 

C2 

F7 

OA 

JNZ 

MLS 1 20 

; NO - DO NEXT LINE 

34 37 

OBOt 

• 

• 

• 

• 

9 



3438 

0B01 

• 

• 

. NZEXIT EQU 

$ 


3439 

OBOl 

F6 

FF 

• 

OKI 

377Q 

;SET NZ, S 

3440 

QB03 

C9 

• 

• 

RET 

r 

RETURN (ZERO FLAG FALSE) 
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if 

ii 

it 

ii 


•i 


3442 

0BU4 

• 

# 

• 

►*$***************************♦*♦************* 

3443 

0BO4 

• 

• 

• 

BLOCK - TURN -ON MEMORY LUCK FULL CONDITION * 

3444 

0 B 0 4 

• 

• 

• 

■***^****♦^4** ********* ********4***** ******** 

3445 

0B04 

• 

# 

• 




344b 

0B04 

* 

• 

• 

ENTRY : 

DON'T CARE 


3447 

OBO 4 

• 

• 

• 




3446 

0B04 

• 

• 

• 

EXIT : 

A = 0 


3449 

OBO 4 

• 

• 

• 


Z = T 


3 450 

0BU4 

• 

• 

• 


MLKTMR = -1 

C377B) 

3 451 

0Bu4 

• 

• 

• 




3452 

0PO4 

• 

• 

. MLOCKO F:yn 

$ 


345 3 

0P04 

CD 

47 

06 

CALL 

PTB1 00 

; RESTORE PROPER DISPLAY PARM 

3 454 

0BO7 

* 

• 

. BLOCK EO II 

$ 


3 455 

OBO 7 

21 

6 A 

FF 

LX I 

H , mlkflg 

; SET H , L TO MEMORY LOCK FLAG 

345b 

OBOA 

Bb 

• 

• 

ORA 

M 

,* MEMORY ALREADY LOCKED? 

345 7 

OBOB 

C 2 

19 

OB 

J N 7 

MLK010 

;YES - DON'T SOUND BELL 

3 45 8 

OBOE 

3E 

04 

• 

MV'I 

A , MEMLUK 

; NO - FORCE MEMORY LOCK ON 

3459 

OB 10 

Ob 

FF 

• 

MVI 

t) , 3 7 7 Q 

?Ar*D BLINKING 

3450 

OB 12 

70 

# 

• 

MOV 

M,B 

; SET MEMORY LOCK FLAG 

3461 

OBI 3 

CD 

OE 

4 B 

CALL 

ZSTMD1 


3462 

OBI 6 

• 

• 

. MLUCK1 EyU 

$ 

; SOUND BELL AND RE I (JRN A = 0 

3463 

OB i 6 

CD 

14 

48 

CALL 

ZBELL 

; SOUND THE Bell 

3464 

OB 1 9 

• 

• 

. MLKOIO EyU 

$ 


346 5 

OP 19 

AF 

• 

• 

XR A 

A 

?set z-flag 

3 466 

OBI A 

21 

9 A 

FF 

LX I 

_ H,NROWS 

; C SET H TO DATA PAGE) 

3 467 

OB ID 

7 7 

« 

• 

MOV 

* M, A 

; CLEAR UROaS FOP PC ADD R 

346 b 

OB IE 

C9 

• 

• 

RET 


; RETURN 14 = 0, L- T) 

3469 

OB IF 

00 

• 

• 

MOP 


; NOP FOR PATCH TU M PT772 H 



13255- 

ITEM 

3471 

3472 

3473 

3474 

3475 

3476 
3 477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 
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LOC OBJECT CODE SOURCE STATEMENTS 


PAGE 100 


0B20 
0B20 
0B20 
0820 
0820 
0B20 
0B20 
0820 
0820 
0820 
OB 20 
0B20 
0B20 
0820 
0B20 
0B21 
0B22 
OR23 
0B24 
0B25 
0B25 
0B28 
082B 
0B2C 


7E 

7 

8 
2 
3 
B 
E 
2 
7 
9 


CE 

20 


OB 


************************* 

; MOVCHR - MOVE CHARACTER STRING 

; ENTRY: H , L = SOURCE POINTER 

; B,C = DESTINATION POINTER 

; EXIT : B,C = NEXT STORAGE LOCATION 

; H,L = END OF SOURCE STRING 

; Z - TERMINATED BY A NULL BYTE 

; WZ - TERMINATED BY AN EOP 


MOVCHR EQU 

$ 


MOV 

A , M 

; GET DATA BYTE 

ORA 

A 

; IS IT A NULL? 

RZ 


;YES - RETURN (Z - TRUE) 

STAX 

B 

; NO - STORE THE BYTE 

I NX 

H 

? INCREMENT TO NEXT SOURCE BY 

DCX 

B 

; DECREMENT TO NEXT PEST BYTE 

CPI 

EOP 

; WAS LAST BYTE AN EOP? 

JnZ 

MOVCHR 

; NO - DO NEXT BYTE 

ORA 

A 

; YES - SET Z-FALSE 

PET 


; RETURN 
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ti 

H 

H 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

II 

ii 

II 

il 

II 

II 

Ii 

II 

II 

ti 




ITEM 

LOG 

OBJECT 

CODE 

SOURCE STATEMENTS 


PAGE 101 

3496 

0B2D 

• 

• 

• 

; ************ 



3497 

0B2D 

• 

• 

• 

; NEXT PAGE 

* 



349d 

0B2D 

• 

• 

• 

************* 



3499 

OB 20 


• 

• 

NEXTPG ECU 

S 



3500 

OB 2D 

E 

18 

• 

MV I 

A,MAXR0W+1 

; COMPUTE NUMBER 

OF LINES 

3501 

0H2F 

E 

6B 

• 

M V I 

L , MLKROW 

; TO ROLL UP 


3502 

0B31 

6 

• 

• 

SUB 

M 



3503 

0 B 3 2 

CD 

45 

OB 

CALL 

NX! 100 



3504 

0B35 

• 

« 

m 

NX TO 40 EQU 

$ 



3505 

0H35 

3 A 

6B 

FF 

LD A 

MIiKRUW 

? SET CURRENT CURSOR POSlTluN 

3506 

0B3B 

32 

CO 

FF 

ST A 

C LI PH ON 

; TO MEMORY LOCK 

ROW AND 

3507 

0B3B 

CD 

C5 

21 

CALL 

CDRPRT 

; LEFT MARGIN 


3508 

0B3E 

CD 

76 

19 

CALL 

CHKFMS 

; FORM AT/SOFT KEY 

DEFINE MODE 

3509 

OB 41 

C 2 

C 4 

1 L 

JNZ 

F I.DSR 

; YES - TAB TO NEXT FIELD 

3510 

0B44 

C9 

• 

9 

PET 


; N U - RETURN 




13255-90003 Rev AUG-01-76 


II 

II 


3SSS 

sss 

3SS3SS 

M 

II 

M 

ft 

II 

ii 

n 

ft 

ii 

ii 

it 

tl 

ii 

it 

H 

li 

n 

tl 

it 

II 

li 

il 

li 

it 

li 

il 

il 

li 

il 

il 

li 

ITEM 

LOC 

object 

CODE 

SOURCE STATEMENTS PAGE 102 

3512 

0B45 

• 

• 

• 


. - 

3513 

0B45 

• 

• 

• 


********** 

************** 

3514 

0B45 

• 

• 

• 




3515 

0B45 

• 

• 

• 


NXTPG1 - ROLL UP N 

LINES 

3516 

0B45 

• 

• 

• 




3517 

0B45 

• 

• 

• 


ENTRY: A = NUMBER OF ROWS 10 ROLL UP 

3516 

0B45 

• 

• 

• 


H = BASER 

3519 

0B45 

« 

• 

• 




3520 

0B45 

• 

• 

• 


EXIT : C = NUMBER OF LINES ROLLFD 

3521 

0845 

• 

• 

• 


H , L = 

NMROLL + 

3522 

0*45 

• 

• 

• 


A / B , D f 

E DESTROYED 

3523 

0B45 

• 

• 

• 

NXT100 EQU $ 


3524 

0B45 

• 

• 

• 

NXTPG1 EQU $ 


3525 

0*45 

4F 

• 

• 


MOV C,A 

; PUT POLL PARAMETER IN C-RE 

3526 

0B46 

2E 

82 

« 


MV I L,ROLLCT 

;SAVE ROLL PARAMETER 

3527 

0848 

71 

• 

• 


MOV M,C 


3528 

0949 

23 

• 

• 


INX H 


3529 

0*4 A 

• 

• 

• 

NXT110 EQU $ 


3530 

0B4A 

71 

• 

• 


MOV M,C 


3531 

0648 

CD 

27 

oc 


CALL ROLLUP 

; ROLL UP SUCCESSFUL? 

3532 

0B4E 

21 

82 

FF 


LXI H , ROLLCT 

; (RECALL ROLL COUNT) 

3533 

0B51 

4E 

• 

• 


MOV C,M 


3534 

0B52 

CA 

59 

Ob 


JZ NXT120 

;NO - EXIT 

3535 

0855 

OD 

• 

• 


DCR C 

; ALL LINES DONE? 

3536 

0B56 

C2 

4 A 

Ob 


JNZ NXTUO 

; NO - ROLL UP ANOTHER LINE 

3537 

0B59 

• 

• 

• 



YES - EXIT (C = 0) 

3538 

0B59 

• 

• 

• 


********************* ******* ***************** 

3539 

0B59 


• 

• 


TERMINATE ROLL UP - 

RETURN NUMBER OF LINES * 

3540 

0B59 

• 

• 

• 


ROLLED 

* 

3541 

QB59 

• 

• 

• 


********************************************* 

3542 

0B59 

• 

• 

• 

NX 11 20 EQU $ 


3543 

0B59 

23 

• 

• 


INX H 

; GET NUMBER OF LINES TO BE 

3544 

0B5A 

7E 

» 

• 


MOV A,M 

; ROLLED UP 

3545 

0B5B 

91 

• 

• 


SUB C 

JCUMPUTE ACTUAL NUMBER DONE 

3546 

0B5C 

4F 

• 

• 


MOV C f A 

; RETURN VALUE IN C-REGISTER 

3547 

0B5D 

C9 

• 

• 


RET 

; RETURN 
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II 

II 

ti 

II 

II 

ti 

ii 

it 

ii 

H 

11 

11 

it 

ii 

ii 

it 

•i 

== = 

ii 

ti 

ii 

it 

il 

ii 

ii 

ii 

ii 

i* 

ii 

ti 

il 

it 

ii 

H 

II 

H 

II 

II 

II 

II 

II 

ii 

II 

II 

It 

II 

II 

It 

ii 

II 

II 

II 

II 

II 

II 

il 

II 

li 

II 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

il 

it 

il 

II 

II 

ITEM 

LOC 

OBJECT 

CODE 

source; statements 

PAGE 103 

ti 

ii 

li 

it 

it 

ti 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

II 

II 

II 

SS5 

ii 

ii 

ii 

ii 

ft 

ii 


II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

li 

ll 

II 

II 

II 

II 

II 

II 

tl 

II 

II 

II 

il 

H 

II 

II 

y 

it 

ll 

il 

tt 

ii 

it 

ii 

ll 

it 

II 

li 

3549 

0B5F 

• 

• 

• 

;***************************************** 

3550 

0B5E 

• 

• 

• 

? GET ADDRESS UF NEXT 

* 

3551 

0B5E 

• 

• 

• 

; RAM BLOCK 


* 

3552 

QR5E 

• 

• 

♦ 

; entry: 


* 

3553 

0B5E 

• 

• 

• 

? E, BIT 7 

= 0, 4K INCREMENTS 

* 

3554 

0B5E 

• 

• 

• 

• 

r 

= 1, 256 

* 

3555 

0B5F 

• 

• 

• 

• 

9 


* 

3556 

OBSF 

• 

• 

• 

; bit o 

: = 0, IN HON -DISPLAY RAM 

* 

3557 

0B5E 

• 

* 

• 

r 

= 1 , DISPLAY RAM 

* 

355 8 

0B5F 

• 

• 

• 

t 


* 

3559 

0B5E 

• 

• 

• 

? H = 0 IF 

FIRST ENTRY OK ROUTINE 

* 

3560 

0B5F 

• 

• 

• 

f 


* 

3561 

0B5F 

• 

• 

• 

? CALL 

NXSBLK 

* 

3562 

0B5F: 

• 

• 

• 

7 


* 

3563 

0B5E 

• 

• 

• 

; exit: 


* 

3564 

0 fl 5 E 

• 

• 

• 

; (H,L) = ADDRESS Of NEXT 

* 

3565 

0 B 5 E 

• 

• 

• 

9 

BLOCK 

* 

3566 

0B5F 

• 

• 

• 

; A = 

0 IF END OF MEMORY 

* 

3567 

0 B 5 E 

• 

• 

• 

; F SET TO INDICATE A PPROP . RAM 

* 

3568 

0B5F 

• 

• 

• 

; OTHER REGS. UNCHANGED, FLAGS ARE 

. * 

3569 

0B5E 

• 

• 

• 

;*****♦*************♦********************* 

35 70 

0B5E 

« 

« 

• 

NXSBlK EQli 

$ 


3571 

0B5F 

C5 

• 

• 

PUSH 

B 


3572 

0B5F 

AF 

♦ 

• 

XR A 

A 


3573 

0B60 

BC 

» 

• 

CMP 

H ; H = 0? 


3574 

0B61 

C 2 

7 5 

OB 

JNZ 

NXB 100 ; NU - ADVANCE TO 

NEXT BLOCK 

3575 

0Bb4 

2 A 

80 

Ff 

LHLD 

BUFBGN ; I S THERE ANY NON 

DISPLAY 

3576 

0Bb7 

• 

* 

• 

N X B 0 6 0 Eyu 

$ 


3577 

OB 6 7 

3 A 

8C 

FF 

LD A 

BUf END* 1 ; MEMORY? 

4 

35 7 8 

OBbA 

BC 

• 

• 

CMP 

H 


3579 

0 B 6 B 

02 

83 

OB 

J H C 

NXB200 ;yes, exit 


3580 

0B6F 

2A 

A A 

Ff 

LHLD 

DSPBGN ?N0, IJSE DISPLAY 

MEMuR Y 

3581 

OB 7 1 

1C 

• 

• 

I NR 

E ; INDICATE DISPLAY 

memory 

3582 

OB 7 2 

Ci 

83 

OB 

JMP 

NXB200 ; f X T I 


3583 

OB 75 

• 

• 

• 

WXB100 Eyu 

$ 


3584 

0B75 

B3 

• 

• 

ORA 

£ ; INCREMENT BY 4K 

fBIT 7=0) 

3585 

0B7 6 

01 

00 

10 

LX I 

b ,100000 ;(6ET for 4K InCRFMENT) 

358o 

0679 

F2 

7 E 

OB 

UP 

N X B 1 5 0 ; YES - COMPUTE NEXT BLOCK AD 

3587 

OB/C 

06 

01 

• 

MVI 

B, 256/256 ?N0 - INCREMENT 

BY 25b ONLY 

3586 

06 7 E 

• 

• 

• 

NXb 1 50 EQU 

$ 


3589 

0B7E 

09 

• 

• 

DAD 

B ; BUMP POINTER 


3590 

0B7F 

OF 

• 

• 

RHC 

,* TESTING NUN-|)iSPLAY AREA? 

3591 

OB 80 

0 2 

6 7 

OB 

JNC 

NXBOoO ;YES - CHECK UPPER BOUNDARY 

3592 

008 3 

• 

• 

• 

NXB2U0 FgiJ 

$ 


3593 

0 B 8 3 

7C 

• 

• 

MOV 

A , H ? IK wE WENT OVER 

TuP OF 

3594 

0B64 

• 

• 

• 

« 

9 

MEMORY H,= 0 


3595 

0B84 

Cl 

• 

• 

PGP 

B 


359b 

0B85 

C9 

• 

• 

PET 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS PAGE 104 


3598 

0B86 

• 

• 

• 

* ********* j*****^******************** ** ******* 

3599 

0B86 

• 

• 

• 

NXTCHR - 

GET NEXT CHARACTER IN DISPLAY LIST * 

3600 

0B86 

• 

• 

• 

>*********j^********jM*** + ************** ******* 

3601 

0H86 

• 

• 

• 



3602 

0B86 

• 

• 

• 

ENTRY! 

D,E s ADDRESS OF CURRENT CHARACTER 

3603 

0B86 

• 

* 

• 



3604 

0B86 

• 

• 

• 

EXIT ; 

Z = T, CHARACTER IS NOT AN EOL LINK 

3605 

0B86 

• 

• 

• 


A = DISPLAY CHARACTER 

3606 

0B86 

• 

• 

• 


Q,E = ADDRESS OF CHARACTER 

3607 

0B86 

• 

• 

• 


F, NEXT CHARACTER IS EOL LINK 

3608 

0B86 

• 

• 

• 


A DESTROYED 

3o09 

0B86 

• 

• 

• 


D t E s ADDRESS Ofr NEXT LINE LINK 

3610 

0B86 

• 

• 

• 



3611 

0B86 

• 

• 

. NXTCHO ECU 

$ 

3612 

0B86 

EB 

• 

• 

XCHG 

; PUT POINTER INTO D , E 

3613 

0B87 

• 

• 

. NXTCHR EQU 

$ 

3614 

0687 

IB 

• 

• 

DCX 

D ; GET THE NEXT DISPLAY 

3615 

0B88 

i A 

• 

• 

LDAX 

D ;CHAKACTER 

3616 

0B89 

FE 

DO 

• 

CPI 

LNKLIM ,*IS IT A LINK? 

3617 

0B8B 

DA 

99 

OB 

JC 

NCH010 ? NO - EXIT 

3618 

0B8E 

EB 

• 

• 

XCHG 

; YES - GET NEW ADDRESS 

3619 

0B8F 

2B 

• 

• 

DCX 

H ; GET LSB OE LINK 

3620 

0B90 

6E 

• 

• 

MOV 

L r rt 

3621 

0B91 

67 

• 

• 

MOV 

H, A 

3622 

0R92 

EB 

• 

m 

XCHG 

; PUT ADDRESS INTO D,E 

3623 

0693 

7B 

• 

9 

MOV 

A,£ ?PUT LSB INTO A-REGISTER 

3624 

0694 

2E 

• 

• 

CMA 

; FND OF LINE LINK (LOWER FOU 

3o25 

0B95 

E6 

OF 

• 

ANI 

BLKSM ;BITS NOT ALL ONES)? 

3626 

0B97 

CO 

• 

• 

RNZ 

;YES - RETURN Z FALSE 

3627 

0698 

1A 

• 

• 

LDAX 

D ; NO - GET THE DATA BYTE 

3o28 

0R99 

• 

• 

• 9 


3629 

0B99 

• 

• 

. NCH010 EyU 

$ 

3630 

0B99 

BE 

• 

• 

CMP 

A ;SET Z TRUE 

3631 

0B9A 

C9 

• 

• 

RET 

; RETURN 
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II 

II 

IS 

II 

li 

ii 

ii 

ii 

n 

ii 

it 

ii 

it 

ii 

ii 

il 

»i 



it 

ii 

ii 

it 

ii 

i« 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

it 

ii 

»i 

ii 

ii 

it 

ii 

ii 

ii 

ti 

ii 

H 

II 

II 

II 

It 

II 

II 

II 

II 

II 

II 

II 

ii 

II 

II 

It 

II 

II 

II 

It 

If 

II 

II 

II 

II 

ITEM 

LOG 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 105 

3633 

0B9B 

• 

• 

# 

***************************** 

36 3 4 

0898 

• 

• 

• 

; PAROUT - SEND STATUS BITS * 

3 o 3 5 

089B 

• 

• 

• 

;**************************** 

3636 

0B9B 

• 

• 

• 

9 

3o3 7 

089B 

• 

• 

# 

; ENTRY: A = PARITY BITS TO BE SENT 

3638 

0B9B 

• 

• 

• 

• 

r 

3639 

089B 

• 

• 

• 

7 EXIT I A - E DESTROYED 

3640 

0B98 

• 

• 

• 

# 

9 

3641 

0898 

* 

• 

• 

PA ROT 4 EQU $ ; ROTATE DOWN 4 HITS FIRST 

3642 

0B9B 

OF 

• 

• 

RRC 

3643 

089C 

• 

• 

• 

PAROT3 EQU $ 

3644 

0B9C 

OF 

• 

• 

RRC 

3645 

0B9D 

• 

• 

• 

PA ROT 2 EQU $ 

3o46 

0B9D 

Of 

• 

• 

RRC 

3647 

0B9E 

• 

• 

• 

PAROT1 EOU $ 

3648 

089E 

OF 

• 

• 

RRC 

3649 

0B9F 

• 

• 

• 

PAROUT EOU $ 

365 0 

0B9F 

E6 

OF 

• 

An I I/O ; GET BITS 0-3 

3651 

09 A 1 

C6 

30 

• 

AL) I ZERO ? ADO IN ZERO BASE TO FORCE 

3652 

08 A 3 

E5 


• 

PUSH H ; DI SPLAY ABLE CHARACTER 

3o53 

0BA4 

CD 

CD 

FF 

CALL EC ON TF ? PERFORM OUTPUT FUNCTION 

3654 

08A7 

FI 

• 

• 

POP H ; RESTORE H , L 

3655 

0BA8 

C9 

m 

* 

RET ; RETURN 


-76 
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ITEM 


3657 

3658 

3659 

3660 

3661 

3662 
366 3 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 
36 7 2 
367 3 
*674 
*675 
3676 
*67 7 
*67 8 

3679 

3680 
*681 
*682 
*683 
3684 


LOC 

0BA9 

0BA9 

0BA9 

0BA9 

0BA9 

OBAB 

OBAD 

OBAE 

0BB1 

0B64 

0BB4 

0BB4 

0B84 

0BB4 

0BB4 

0BB4 

0BB6 

0BB6 

0BB6 

0Bb6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 


Rev AUG-01- 
OBJECT CODE 


•76 

SOURCE STATEMENTS PAGE 106 


II 

II 

II 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

If 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 



• 

* **************** 


• 

• 

; PREVIOUS PAGE * 


• 

• 

***************** 


• 

• 

PREVPG EQU S 

3E 

E8 

* 

M VI A , -MAXROW 

2E 

6B 

• 

MV I L , MLKROW 

8b 

• 

• 

ADD M 

CD 

B6 

OB 

CALL PPV100 

C 3 

35 

OB 

JMP NXT040 

« 

• 

• 

# 

9 

9 

? PRVPG1 - ROLL DOWN 

• 

• 

• 

• 

9 

9 

; ENTRY! H,L = 

• 

• 

• 

• 

• 

PRVPG1 EQU $ 

36 

00 

• 

MVT m,o ; 


; ROLL DOWN 


3685 

0BB6 

32 

82 

FE 

3686 

0BB9 

• 

• 

• 

3687 

0BB9 

CD 

C5 

OB 

3688 

OBBC 

21 

82 

FF 

3689 

OBBF 

C8 

• 

• 

3690 

OBCO 

34 

• 

• 

3691 

0BC1 

C2 

B9 

OB 

3692 

0BC4 

C9 

• 

• 


14 + ****** + * ************* 

PRV100 - ROLL DOWN N LINES 

ENTRY. A — —NUMBER OF LINES TO POLL DOWN 
H = BASEH 

EXIT : A-L DESTROYED 


PRV100 EQU $ 

S'l A ROLLCT ; SAVE THE ROLL COUNT 
PRV110 Eyll $ 

CALL ROLLDN ; LINE ROLLED DOWN? 

LXI H t ROLLCT ? ( SET H TO DATA PAGE* 
; NO - RETURN 
; ALL LINES DONE? 

; NO - DO ANOTHER LIME 
; YES - RETURN 


P Z 

I NR M 

JNZ PRVUO 

F.ET 
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ii 
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ii 

ii 
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ii 
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ii 
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ii 
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il 
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LOC 

object 

CODE 

SOURCE STATEMENTS 

PAGE 107 

it 

it 

it 

it 

M 

it 

n 

tt 

it 

ti 

ti 

ti 

it 

It 

it 

II 

If 


ti 

ii 

ti 

ti 

it 

H 

s2s;s2s.sss:sss2;s5s 

II 

it 

H 

li 

ii 

ii 

ii 

il 

n 

ii 

ii 

il 

M 

il 

li 

fl 

ii 

il 

ii 

tl 

n 

ii 

il 

li 

if 

il 

it 

tl 

II 

it 

3694 

0BC5 

• 

• 

• 

;************************************** 

3695 

0BC5 

• 

• 

• 

; ROLLON - ROLL DISPLAY DOWN ONE LINE 4 

3696 

0BC5 

• 

• 

• 

;**************************************. 

3697 

0BC5 

• 

• 

• 

« 

9 


3698 

0RC5 

• 

• 

• 

; ENTRY: DON'T CARE 

3699 

0BC5 

• 

• 

• 

• 

9 


3700 

0 P C5 

• 

• 

• 

; EXIT I NZ - ROLL 

down successful 

3701 

0BC5 

• 

• 

• 

; Z - ROLL 

DOWN FAILED 

3702 

0BC5 

• 

• 

• 

; ALL REGISTERS DESTROYED 

3 703 

0BC5 

• 

• 

• 

9 


3704 

0BC5 

• 

• 

• 

ROLLON EyiJ $ 


3705 

0BC5 

CD 

EE 

OA 

CALL MLKSCH 


3 7 06 

0BC8 

CA 

EF 

OB 

JZ RL0080 


3 707 

OBCB 

• 

• 

• 

;************************ 

3708 

OBCB 

• 

• 

• 

; MEMORY LOCK ROLL DOWN * 

3709 

OBCB 

• 

• 

• 

; ************************ 

3 710 

OBCB 

EB 

• 

• 

XCHG 

; LAST LOCKED LINE ADDR TO 0, 

3711 

OBCC 

2 A 

CB 

FF 

LBLD TO PL IN 

? GET TOP LINE ADDRESS 

3712 

OPCF 

23 

• 

• 

I NX H 

;SEt address to previous LIN 

3 713 

obdo 

2 3 

• 

• 

I N X H 

? POINTER 

3714 

0BD1 

CD 

6D 

1 9 

CALL CHAIN 

; GET PREVIOUS LINE'S ADDRESS 

3715 

0BD4 

B7 

• 

m 

ORA A 

; PREVIOUS LINE EXIST? 

371o 

0BD5 

C 8 

• 

• 

RZ 

; NO - RETURN 

3717 

0BD6 

D5 

• 

• 

PUSH D 

; YES - ROLL DOWN THE LINE 

371b 

0BD7 

CD 

DA 

09 

CALL LINDLO 

? DELETE 1ST LINE ABOVE D1SP 

3 719 

OBDA 

21 

A3 

FF 

LX I H, TL I NO 

; DECREMENT TOP LINE 

3720 

OB DO 

35 

• 

• 

OCR M 

; NUMBER 

3721 

ORDE 

El 

• 

• 

PUP H 

; RECALL LAST LOCKED LINE ADD 

3722 

OBDF 

CD 

39 

OA 

CALL LlNlNA 

; ADD LINE BELOw LOCKED LINES 

3723 

0BC2 

3 A 

6B 

FF 

I. DA MTiKRO W 

; GE1 LUCK ROW NUMBER 

37 24 

QBE5 

3D 

• 

• 

OCR A 

; ADJUST FOR COMPARE 

3725 

0BE6 

21 

Cl 

FF 

LX I ii , LSTRUW 

; COMPARE TO LAST ROW DONE 

37 26 

06E9 

BE 

• 

• 

CMP M 

; D I D IT ROLL DOWN? 

37 27 

QBE A 

FA 

18 

OC 

JM RLD090 

; YES - UPDATE DISPLAY PTRS 

3 728 

OBED 

B4 

• 

• 

OKA H 

? NO - FORCE NZ AND EXIT 

37 29 

obef 

C9 

• 

• 

RET 

? RETURN 
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3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 
37 46 
37 4 7 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 
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ss:s 


sssssssssssssssssssssss 

LOC 

OBJECT CODE 

SOURCE STATEMENTS 



:::s 

:sss 

ii 

ti 

ii 

H 

ii 

ii 

ii 

ti 

ii 

ii 

it 

it 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

OBEF 

• 

• 

# 

; ******************* 

OBEF 

• 

• 

• 

; NORMAL ROLL DOWN * 

obef 

• 

• 

• 

.ft***************** 

OBEF 

• 

• 

• 

rldobo EQU $ 

OBEF 

3 A 

6B 

FF 

LD A MLKROW 

0BF2 

B7 

• 

• 

ORA A 

0BF3 

CA 

OA 

OC 

JZ RLD085 

0BF6 

21 

CO 

FF 

LX I H , CURRU'W 

0BF9 

46 

• 

• 

MOV B,M 

OBFA 

77 

• 

• 

MOV M,A 

OBFB 

C5 

• 

• 

PUSH b 

OBFC 

3E 

FF 

• 

MV I A,-l 

OBFE 

CD 

OB 

07 

CALL RCADRO 

ocoi 

Cl 

• 

• 

POP B 

0C02 

78 

• 

• 

MOV A,b 

0C03 

32 

CO 

FF 

STA CURROW 

0C06 

CO 

• 

• 

RNZ 

0C07 

C3 

C5 

OB 

JMP ROLLDN 

OCOA 

• 

• 

• 


OCOA 


♦ 

• 

; DISPLAY NOT LOCKED 

OCOA 

• 

• 

• 

• 

f 

OCUA 

• 

• 

• 

RLD085 EQU 5 

OCOA 

2 A 

CB 

FF 

LHLD TOPL.IN 

OCOD 

23 

• 

• 

I NX H 

OCUE 

23 

• 

• 

INX H 

OCOF 

B6 

• 

• 

ORA M 

0C10 

C8 

• 

• 

RZ 

0C11 

• 

• 

• 

• 

9 

OCU 

• 

• 

• 

; ******************** 

ocn 

• 

• 

• 

i TOP LINE IS NOT FIR 

OCll 

* 

• 

• 

; ADVANCE POINTERS 

ocu 

• 

• 

• 

• ******************** 

OCU 

16 

FF 

• 

MV I D f - 1 ? 

OC 1 3 

CD 

79 

OF 

CALL TOPUPD ; 

0C16 

2E 

C7 

• 

M V I L t LSTRUW- 

OC 1 8 

• 

• 

• 

RLD090 EQU $ 

OC 1 8 

7E 

• 

• 

MOV A f M 

OC 1 9 

3C 

• 

• 

INR A 

0C1A 

FE 

18 

• 

CPI MAXROW+1 

OC 1C 

C2 

05 

16 

JNZ STOPEA ; 

OC IF 

2A 

C9 

FF 

LHLD LSTL1N 

0C22 

23 

• 

• 

INX H 

0C2 3 

23 

• 

• 

INX H 

0C24 

C3 

53 

OC 

JMP ROL200 


==s===:==s::s======= = = = -=*= RAGE 108 


; GET MEMORY LOCK ROW 
• IS IT ZERO? 

; YES - DO ‘NORMAL ROLL DOWN 
;NO - TRY TO ALLOCATE LINES 
; TO MEMORY LOCK ROw 

; SAVE CURRENT ROw NUMBER 
; ( SET FOR COLUMN ZERO) 

; IS MEMORY AVAILABLE? 

; (RESTORE CURRENT ROW 
; NUMBER) 

; NO - RETURN FAIL 
; YES - RETRY MEMORY LOCK ROL 


; GET TOP LINE ADDRESS 
; SET TO PREVIOUS LINE 
; ADDRESS 

; ANY PREVIOUS LINES? 

; NO - DON'T DO ROLL DOWN 
¥ES - ROLL ONE LINE DOWN 


; GET LAST ROW PROCESSED 


? INCREMENT 


; GET ADDR OF LAST LINE DONE 
; SET TO PREVIOUS LINE 
; ADDRESS 
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H 
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ii 
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ii 
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ii 
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ti 

il 

il 

ii 

il 

ti 

ti 

ii 
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ii 

ii 

ii 
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M 

ii 

ii 

ii 

ii 
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H 

it 

ii 

item 

LOG 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 109 

3776 

0C27 


• 

• 

;************************************ 

3777 

0C27 

• 

• 

• 

; RObLUP - ROLL UP 

DISPLAY ONE LINE * 

377b 

0C27 

• 

• 

• 

;***************** ******************* 

3779 

0C27 

• 

• 

• 

ROLLUP 

EOU $ 


3780 

0C27 

CO 

EE 

OA 


CALL MLKSCH 


378 1 

0C2A 

CA 

66 

OC 


JZ RUL080 


37 8 2 

0C2D 

• 

• 

• 

;****♦ ************** *** 

3783 

0C2D 

# 

• 

• 

; MEMORY LOCK ROLL- 

UP * 

3784 

OC 20 

• 

« 

• 

*********************** 

3785 

0C2D 

7E 

• 

• 


MOV A,M 

; IS THERE A NEXT LINE? 

3786 

0C2E 

B7 

• 

• 


OkA A 


37 8 7 

0C2F 

C8 

• 

• 


RZ 

; N U - DON'T DO POLL UP 

3788 

0C30 

CD 

DA 

09 


CALL LItMDLO 

; YES - REMOVE FIRST UNLOCKED 

3789 

OC 3 3 

21 

A3 

FF 


LX I H, TLX VO 

? LINE 

3790 

OC 36 

34 

• 

• 


INR M 

; INCREMENT TUP LINE NUMBER 

37 91 

0C37 

2A 

CB 

FF 


LHLD toplin 

; GET TOP DISPLAY LINE ADORES 

3 792 

OC 3 A 

3 A 

6B 

FF 


LD A MLKROW 

; FORCE END-OF-PAGE IF DISPLA 

3793 

OC 3D 

F6 

20 

• 


ORr. MAYEOP 

; I s currently refreshing 

3794 

0C3F 

3 2 

20 

8 7 


ST A IOC PR W 

? MEMORY LOCK BOUNDAR Y ROw 

3795 

0C42 

CD 

39 

OA 


CALL LIKINA 

J ADD LIME ABOVE DISPLA Y 

379b 

OC 45 

3 A 

66 

FF 


LD A MLKROW 

; GET LUCK ROw NUMBER 

3/97 

0C48 

21 

C7 

FF 


LXI H , LSi'RUW ; GET LAST ROw PROCESSED 

3798 

0C4B 

9b 

• 

• 


SUB M 

? DID I T ROLL UP? 

3799 

0C4C 

FA 

74 

OC 


JM ROL090 

;YFS - UPDATE LINE POINTER 

3800 

0C4F 

CO 

• 

• 


PNZ 

;NU - RETURN (Z = FALSE) 

3801 

OC 50 

77 

• 

• 


MOV M,A 

; SAME - FORCE LAST ROW r 0 

3802 

0C51 

• 

• 

• 

ROLIOO 

EOU $ 


3803 

0C51 

2E 

CB 

• 


MV I L , TOPLIN 

; SET CURRENT LINE 10 TOP LINE 

3804 

0C53 

• 

« 

• 

ROL2QO 

EOU $ 


3805 

0C5 3 

5E 

♦ 

• 


MOV E t M 


3806 

0C54 

• 

• 

• 

R0LDP2 

EOU S 


3807 

0C5 4 

2C 

• 

• 


INR L 


3808 

0C55 

56 

• 

• 


MOV D,M 


3609 

0C56 

• 

• 

• 

* 

t 



3810 

0C56 

• 

• 

• 

; RuLUPJ - UPDATE 

LSTLIN AND CURADR 

3811 

0C56 

• 

• 

• 

i 



3812 

0C56 

• 

• 

• 

K0LUP3 

EQU $ 


3813 

0C56 

EB 

• 

• 


XCHG 

/SET LSTLIN TO NEW ROW 

3814 

0C57 

• 

• 

• 

ROLUPC 

EOU $ 


3815 

0C57 

CD 

9C 

OA 


CALL LSTLUP 


3816 

0C5 A 

EB 

• 

• 


XCHG 

; PUT NEW ROW ADDRESS INT H,L 

3817 

0C5P 

2 B 

• 

• 


DC X ri 

! SET TO LSB OF NEXT LINE PTR 

3618 

0C5C 

22 

C 3 

FF 


SHLD CURA DP 

;SET CURADR TO TOP LINE 

3819 

0C5F 

FB 

• 

• 


XCHG 

; RESTORE D , £ AND H , L 

3820 

0C60 

AF 

• 

• 


XRA A 

; SET LAST COLUMN PROCESSED 

3821 

0C61 

32 

C 8 

FF 


SI A LSTCGL 

? DUNE TO ZERO 

3822 

0Cb4 

B3 

• 

• 


ORA E 

;SET Z-FLAG FALSE 

3823 

0C65 

C9 

• 

• 


RET 

; RETURN 
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H 

14 

II 

II 

II 

II 

it 

ii 

it 

it 

ii 

it 

ii 

it 

= ss = 

S3SS 

SSS3 

333*3 = 333=33*33333333**33X3 3 BSSSSSSSSSBSSHISBSS^ 

item 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 11 


n 

ii 

n 

ii 

it 

ii 

ii 

it 

::rs 

::s: 

333 = 


3333 = 33X3333 = 333 33 33 = 33 = 333 

3 8 25 

0C66 

• 

• 

• 

****************** 


38 2b 

0Cb6 

• 

• 

• 

? NORMAL PULL-UP * 


3827 

OCbb 

• 

• 

• 

;***************** 


3828 

0C66 

« 

• 

• 

RHL080 EOU $ 


3829 

OCbb 

2 A 

CB 

FF 

LHLD TOFLIN 

; GET TUP LINE ADDRESS 

3830 

0Cb9 

Bb 

• 

• 

ORA M 

; IS TOP LINE LAST LTNf* ? 

3831 

OC-bA 

C 8 

• 

• 

RZ 

; YES - RETURN, DON'T ROLL 

3832 

OCbB 

lb 

01 

• 

M V I 0,1 

; N(j - SET L TO INCREMENT 

3033 

OCbO 

• 

• 

• 

• 

9 

“TLINO" 

3834 

OCbD 

3C 

• 

• 

INR A 

; SET I, SB TU NEXT LINE POl 

3835 

OCbE 

• 

• 

• 

;*************4************** 

3836 

OCbE 

• 

• 

• 

; TOP LINE IS NOT LAST LINE * 

3837 

OCbE 

• 

• 

• 

} ADVANCE POINTERS 

* 

3b 38 

OCbR 

• 

• 

• 

****************************4 

3839 

OCbR 

« 

• 

« 

RDLUP1 EDO $ 


3840 

OCbE 

CO 

79 

OF 

CALL TOPUPO 

; update top line pointers 

3841 

0C71 

21 

C7 

FF 

LX I H , LSTRuW 

; GET LAST ROW # PROCESSED 

3842 

0C74 

• 

• 

• 

ROL090 EQIJ $ 


3843 

0C74 

4E 

• 

• 

MUV C , M 


3844 

0C75 

00 

• 

• 

OCR C 

? DECREMENT 

3845 

0C76 

FA 

51 

OC 

JM ROL 100 

; L I N E ROLLED OFF SCREFW 

384b 

0C79 

71 

• 

• 

MOV M,C 

; STORE UPDATED LSTROw 

3847 

OC 7 A 

B4 

♦ 

• 

ORA H 

; SET Z-FLAG TO FALSE 

3848 

0C7R 

C 9 

• 


PET 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

it 

ii 


ti 

it 

ii 

n 

u 

ii 


ii 

ii 

ii 

H 

II 

II 

tl 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

Ii 

II 

II 

II 

II 

II 

ITEM 

LUC 

OBJECT 

CODE 

SOURCE STATEMENTS 

RAGE 111 

3850 

0C7C 

• 


• 

******************* 


3851 

0C7C 

• 


• 

; CHAR SET SELECT * 


3852 

0C7C 

• 

• 

• 

; ************ ****** 


3853 

OC/C 

• 

• 

• 

SCHRST EQU $ 


3854 

0C7C 

21 

58 

27 

LX I H,CHRSTB 

? SET EUR CHARACTER SET SELEC 

3855 

OC IF 

C 3 

81 

04 

JEP ESCAPO 


385b 

0C62 

• 

• 

• 

* 

9 


385 7 

OC 6 2 

• 

• 

• 

; SET NEW ALTERNATE 

CHARACTER SET 

365 8 

0C82 

« 

• 

• 

• 

9 


3859 

0C82 

• 

• 

• 

6CHS11 EQU $ 


3860 

0C82 

79 

• 

• 

WUV A,C 

?PUT INPUT CHARACTER IN A-RE 

3861 

0C6 3 

Eb 

OF 

• 

AN i i7g 

; EXTRACT CHARACTER SET NUMBE 

3662 

0C85 

07 


• 

PLC 

; SHIFT TU POSIT TUN FOR 

38b3 

OC 8 6 

0 7 

• 

• 

RLC 

; ALTERNATE CH ARC TER SET 

36b4 

0C87 

07 

• 

• 

RLC 


3865 

0C88 

0 7 

• 

9 

RLC 


3 866 

0C69 

3 2 

7 2 

FF 

ST A CHRSET 

;S1HKE CHAR SET SELECT C TL 

3867 

0C8C 

C9 

• 

. 

RET 

; RETURN 
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3869 

3870 

0C8D 

0C8D 

• 

• 

• 

• 

• 

• 

♦ 4 * * * 

******************* 

3871 

3872 

0C8D 

0C8D 

• 

• 

• 

• 

• 

• 

SFKYOF - 

PUT NORMAL DISPLAY ON SCREEN 

3873 

3874 

0C8D 

0C8D 

• 

• 

• 

• 

• 

• 

ENTRY 

; DON'T CAPE 

3875 

3876 

0C8D 

0C8D 

• 

• 

• 

• 

• 

• 

EXIT 

J ALL REGISTERS DESTRUYED 

3877 

3878 

0C8D 

0C8D 

© 

• 

• 

• 

• 

SFKYUF EQU 

$ 

3879 

0C8D 

CD 

8C 

19 

CALL 

CHKSFK ; NORMAL DISPLAY ENABLED? 

3880 

0C90 

C8 

• 

• 

PZ 

; YES - RETURN 

3881 

0C9t 

3E 

F7 

• 

MV I 

A , 3770-DEFSKY ?N0 - SwAP DISPLAY 

3 882 

0C93 

CD 

DC 

13 

CALL 

CLCMFL ; clear soft key mode flag 

3883 

0C96 

CD 

47 

to 

CALL 

CKDSPF ; DISPLAY FUNCTIONS ENABLED? 

388 4 

0C99 

C2 

AE 

OC 

JNZ 

SF0010 ;YES - DON'T RESET RANGE TBL 

3885 

0C9C 

21 

6 4 

26 

LXI 

H, RTABLE ?N0 - RESTORE NORMAL 

3886 

0C9F 

22 

D2 

FF 

SHLD 

RNGTA ; CHARACTER FUNCTION TABLE 

3887 

0CA2 

C 3 

AE 

OC 

JMP 

SF0010 ; TURN ON NORMAL DISPLAY 



13255-90003 Rev AUG-01-76 


II 

ii 

II 

II 

II 

II 

ii 

H 

ii 

ii 

ii 

ii 

ii 

it 

ZZ 3 — 

ii 

it 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

ii 

:ssrsssss=ss5=s=ss«sss 
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ITEM 

LUC 

OBJECT 

CODE SOURCE STATEMENTS 
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ii 

ii 

ii 

it 

ii 

n 

ii 

ii 



M 

fi 

»i 

H 

ii 

ii 

if 

II 

ii 

ii 

H 

ii 

ii 

ti 

H 

Ii 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

s;ssss=:ssssss5s:s;:sr;ss:ss 

'3889 

0CA5 

• 

• 

• 

****************************************** 

3890 

OCA 5 

• 

• 

• 

SF'KYON - PUT SOFT KF Y DISPLAY ON SCREEN * 

3891 

0CA5 


• 

• 

****************************************** 

3892 

0CA5 

• 

• 

• 



3893 

0CA5 

• 

* 

• 

ENTRY: DON'T CARE 


3 8 94 

OCAS 

• 

• 

• 



3895 

0CA5 

• 

• 

• 

EXIT : NZ 


3 896 

OCAS 

• 

• 

* 

ALL REGISTERS DESTROYED 

3897 

OCAS 

• 

• 

• 



3896 

OC AS 

• 

« 

. SF K YON EQU $ 


3899 

OCAS 

CD 

8C 

19 

CALL CHKSFK 

; SOFT KEY DEFINE MODE? 

3900 

OC AS 

CO 

« 

• 

RNZ 

; YES - RETURN 

3901 

0CA9 

3L 

08 

• 

MVI A , DEESK Y 

; NO - SWAP DISPLAY 

3902 

OCAR 

CD 

00 

14 

CALL STCMFL 

; SET SOFT KEY MODE FLAG 

390 3 

OCAE 

• 

• 




3904 

OCAE 

• 

• 

• 

EXCHANGE DISPLAY 


3905 

OCAE 

• 

• 

• 



3906 

OCAE 

• 

• 

. SFG010 EQU $ 


3907 

OCAE 

CD 

69 

21 

CALL SWAP 

; SwAP DISPLAY PARAMETERS 

3908 

OCbl 

CD 

OE 

ID 

CALL RSTDSP 

? TURN ON THE DISPLAY 

3909 

0CB4 

CD 

20 

IE 

CALL FLDSRX 

; RESCAN LINE TO SET PROPER 

3910 

0CB7 

C 3 

A 4 

06 

JMP RCADRA 

; FIELD ATTRIBUTE 

3911 

OCBA 

• 

• 

• 

********************************************** 

3912 

OCBA 

• 

• 

m 

SFKYDS - DISPLAY CHARACTER IN SOFT KEY MODE * 

3913 

OCBA 

• 

• 


********************************************** 

3914 

OCBA 

• 

• 

• 

’ 


3915 

OCBA 

• 

• 


f ENTRY: DCHAR = CHARACTER TO BE DISPLAYED 

3916 

OCBA 

• 

• 

• 



3917 

OCBA 

• 

m 

• 

; EXIT : IF CHARACTER FROM KEYBOARD , 

3918 

OCBA 

• 

• 

• 

CHARACTER 

IS ADDED TO DISPLAY 

3919 

OCBA 

• 

• 


OTHERWISE 

, NORMAL DISPLAY i S RESTORED 

3920 

OCBA 

• 

• 




3921 

OCBA 

• 

• 

. SFKYDS EQU $ 


3922 

OCBA 

CD 

8C 

19 

CALL CHKSFK 

; SOFT KEY DEFINE MODE? 

3923 

OCbD 

C A 

1A 

23 

JZ DSPCHR 

; NO - USE NORMAL ROUTINE 

3924 

OCCO 

CD 

A6 

12 

CALL DCXB2D 

; INPUT FROM KEYBOARD? 

3925 

0CC3 

C 4 

8D 

OC 

CNZ SFKYUF 

; NO - SWAP DISPLAY 

3926 

0CC6 

C2 

1A 

23 

JNZ DSPCHR 

; AND USE NORMAL ROUTINE 

3927 

0CC9 

C3 

B6 

14 

JMP FDESC1 

; YES - DISPLAY CHARACTER 

3928 

OCCC 

• 

• 

« 

i 

AND KILL "CURADV" FLAG 
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3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 

3938 
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occc 

• 

• 


*********************** 

occc 

• 

• 

• 

; SFTRST - 

SOFT RESET * 

occc 

• 

• 

• 

*********************** 

occc 

• 

• 

• 

SFTRST EQU 

$ 


occc 

CD 

6E 

15 

CALL 

IOBSYC 

; wait UNTIL CTU'S free 

0CCE 

F3 

• 

• 

D1 


? DISABLE INTERRUPTS 

0CD0 

3E 

01 

• 

MV 1 

A,1 

;set reset timer fur one 

0CD2 

32 

DO 

FF 

STA 

RSTTMR 

? SECOND ONLY 

0CL)5 

C3 

DA 

00 

JMP 

G01 

?D0 SOFT RESET 
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ii 

ii 

it 

it 

ii 

it 


:::: 


H 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

•1 

II 

II 

II 

II 

II 

II 

II 

II 

II 

u 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

page: 115 



ii 

ii 

ii 

it 

ii 


l 

i 

i 

i 

l 

ii 

ii 

n 

ii 

ii 

ii 

H 

ii 

I) 

ii 

li 

ii 

ii 

ii 

ii 

ii 

it 

«i 

ii 

ii 

ii 


3940 

0CD8 

• 

• 

• 

****************** 


3941 

0CD8 

• 

• 

• 

? SO - SHIFT OUT * 


3942 

0CD8 

• 

• 

9 

;***************** 


3943 

0CD8 

* 

• 


SHF' TOT EQU $ 

; DEFINE SOFT KEY MODE? 

3944 

0CD9 

CD 

8C 

19 

CALL CHKSFK 

3945 

OCDB 

CO 

• 

• 

RNZ 

; YES - DON'T SWITCH CHAR SET 

3946 

OCDC 

3 A 

72 

FF 

LD A CHRSET 

; GET CURRENT ALT CHAR SET 

3947 

OCDF 

• 

• 

« 

SHFTi EQU $ 

;PUT NEW CHAR SET IN B-REG 

3948 

OCOF 

47 

• 

• 

MOV B , A 

3949 

OCEO 

3E 

OB 

• 

MV I A , SWCHAR 

; Sfc.T CHARACTER SWITCH IN 

3950 

0CE2 

CD 

08 

48 

CALL ZKBCTL 

; KEYBOARD FOR POSSIBLE 

3951 

0CE5 



• 

• 

9 

FOREIGN MODE ENABLE 

3952 

0CE5 

78 

* 

• 

MOV A,B 

; RECALL NEW CHARACTER SET 

3953 

QCE6 

• 

• 

• 

SHFT2 EQU $ 

; ENTRY FOP SELF-TEST 

3954 

0CE6 

06 

OF 

• 

MV I B,17Q 

; SET MASK TO SAVE DISPLAY 

3955 

0CE8 

• 

• 

• 

• 

9 

ENHANCEMENT BITS 

3956 

0CE8 

C 3 

EO 

21 

JMP DISPC1 

; ADD CODE TO DISPLAY 

3957 

OCEB 

• 

• 

• 

***************** 


395 8 

OCEB 

• 

• 

• 

; SI - SHIFT IN * 


3959 

OCEB 


• 

• 

***************** 


3960 

OCEB 

• 

• 

• 

SHF TIN FZQU $ 

? DEFINE SOFT KEY MODE? 

3961 

OCEB 

CD 

8C 

19 

CALL CHKSFK 

3962 

OCEE 

CO 

• 

• 

RNZ 

; YES - DON'T SWTTCFI CHAR SET 

3963 

OCEE 

AF 

• 

• 

XKA A 

; SET FOR BASE CHARACTER 

3964 

OCFO 

C 3 

DE 

OC 

JMP SHFTI 

? SET CODE 
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srs; 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ti 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

i< 

ii 

ii 

it 

ii 

ii 

ti 

ii 

ii 

it 

ii 

ii 

it 

ii 

ii 

it 

it 

ii 

it 

it 

it 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

3966 

0CF3 

• 

• 

• 


3967 

0CF3 

• 

• 

• 

; STATUS - RETURN TERMINAL STATUS * 

3968 

0CF3 

• 

• 

• 

;*♦******************************** 

3969 

0CF3 

• 

• 

• 

STATUS EQU $ 

3970 

0CF3 

01 

00 

02 

LXT B , SSTAT ?SET BLOCK TRANSFER FOR 

3971 

0CF6 

C3 

CA 

lt> 

JMP SBLXFO ;FUR TERMINAL STATUS 

3972 

0CF9 

• 

• 

• 

;************************************ 

3973 

0CF9 

• 

• 

• 

; STATGO - TRANSMIT TERMINAL STATUS * 

3974 

0CF9 

• 

• 

• 

;************************************ 

3975 

0CF9 

• 

• 

• 

STATGO Fgll $ 

3976 

0CF9 

01 

FF 

FD 

LXI B , -1-SSTAT 

3977 

OCFC 

CD 

70 

10 

CALL CLBLXF ;CLEAR STATUS PENDING FLAG 

3978 

OCFF 

06 

5C 

• 

MVI B , ABCKSL ; SEND <F.SC>-<\> 

3979 

0001 

CD 

BB 

17 

CALL ESCOUT 

3980 

0D04 

21 

Cl 

17 

LXI H , XPUTDC ;SET OUTPUT ROUTINE ADDRESS 

3981 

0007 

CD 

14 

OD 

CALL STAPAR JOUTPUT STATUS BITS 

3982 

000 A 

21 

F7 

FF 

LXI H , ERRFLG ;CLEAP DATA COMM ERROR FLAG 

3983 

ODOD 

7E 

• 

• 

MOV A,M 

3984 

ODOE 

E6 

FF. 

• 

ANT 377Q-DCMERR 

3985 

0010 

77 

• 

• 

MOV M,A 

3986 

0011 

C 3 

ID 

12 

JMP SDTERM ; SEND TERMINATOR AND RETURN 




ii 

ii 

ii 

ii 

ii 

ii 

ii 


S ZZ S 3» 
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LOC 

OBJECT 

CODE 
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ii 

li 

If 

II 

II 

ii 

ii 

it 

ii 

ii 

ii 

ii 
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ii 

u 
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:sssrsss:::sss:ss;zss:ss:::s::s::::s:s::ss:£::;:::: 

3988 

0D1 4 

• 

• 

• 

******************************* 

3989 

0D14 

• 

• 

• 

? STAPAR - OUTPUT STATUS BITS * 

3990 

0D14 

• 

• 

• 

; ****************************** 

3991 

00 1 4 

• 

• 

• 

« 

9 

3992 

0014 

• 

• 

• 

i ENTRY J H , L ■ ADDRESS OF OUTPUT ROUTINE 

• 

r 

3993 

0D14 

• 

• 

• 

3994 

0014 

• 

• 

• 

; EXIT 5 CNTFAD = ADDRESS OF OUTPUT ROUTINE 

3 99b 

0014 

« 

• 

• 

; ALL REGISTERS DESTROYED 

3996 

0014 

• 

• 

• 

• 

9 

3997 

0014 

• 

• 

• 

STAPAR EOU $ 

3998 

0014 

22 

CE 

FF 

SHLD CNTFAD /SET OUTPUT ROUTINE VECTOR 

• 

9 

3999 

0017 

• 

• 

• 

4000 

0017 

• 

« 

• 

t OUTPUT SIZE OF RAM 

4001 

0017 

• 

• 

• 

9 

4002 

0017 

3 A 

AB 

FF 

LDA DSPBGN+1 ; COMPUTE NUMBER OF 256-BYTE 

4003 

001 A 

2F 

• 

• 

CMA ; F AM BLOCKS IN DISPLAY 

4004 

001 B 

3C 

• 

• 

INR A ;area 

4005 

ooic 

CD 

9D 

OB 

CALL PA ROT 2 /TRANSMIT MEMORY SIZE IN K'S 

400 b 

0D1F 

• 

• 

• 

* 

9 

4 00 7 

00 1 F 

• 

• 

• 

; OUTPUT KEYBOARD INTERFACE STRAP SETTINGS 

4008 

0D1F 

• 

• 

• 

/ 

4009 

001F 

3A 

FB 

FF 

LDA KBJMPR /TRANSMIT STRAPS A-0 

4010 

0022 

6F 

• 

• 

MOV L t A /SAVE JUMPER VALUES 

4011 

0023 

CD 

9F 

OB 

CALL PAROUT 

4012 

0026 

7D 

• 

• 

MOV A,L /RECALL JUMPER VALUES 

4013 

0027 

CD 

9B 

OB 

CALL PA ROT 4 /TRANSMIT STRAPS E-H 

• 

9 

4014 

0D2A 

• 

• 

• 

4015 

0D2A 

• 

• 

• 

; OUTPUT LATCHING KEYS STATUS 

4016 

002 A 

• 

• 

• 

• 

9 

4017 

002 A 

3A 

F 3 

FF 

LDA MDFLG2 /GET TERMINAL MODE FLAGS 2 

4018 

002D 

E6 

07 

• 

ANI CAPSLK+BLKMDE+AUIOLF /EXTRACT BITS 

4019 

00 2 F 

F6 

08 

• 

OKI lOQ /ADD BIT 3 TO INDICATE 2645 

4020 

0031 

CD 

9F 

OB 

CALL PAROUT /SEND LATCHING KEY STATUS 

4021 

0D34 

• 

• 

• 

; 

4022 

0034 

• 

• 

• 

/ OUTPUT TERMINAL (2640) TRANSFER PENDING FLAGS 

4023 

0D34 

• 

• 

• 

; 

4024 

00 34 

2 A 

6F 

FF 

LHLD MELGS2 /GET TERMINAL MODF FLAGS 

4025 

0037 

7C 

• 

• 

MOV A,H /MASK FOR SECONDARY STATUS 

4026 

0038 

Eb 

04 

« 

ANI SSTAT2/256 /PENDING BIT 

4027 

0D3A 

OF 

• 

• 

RRC /SHIFT BIT INTO STATUS 

4028 

00 3 B 

OF 

• 

• 

RRC /RESPONSE POSITION 

4029 

0D3C 

OF 

• 

• 

RRC 

4030 

0D3D 

47 

• 

• 

MOV B , A 

4031 

0D3E 

7C 

• 

• 

MOV A , H /GET OTHER DISPLAY RELATED 

4032 

0D3F 

E6 

70 

• 

ANI (SEN rER*SFCTKY + SCRSEN )/256/XFR BITS 

4033 

0041 

BO 

• 


ORA B /ADD IN SECONDARY STATUS 

4034 

0D42 

CD 

9B 

OB 

CALL PAR0T4 /SEND TRANSFER PENDING BITS 
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ITEM 

4036 

4037 
4036 

4039 

4040 

4041 

4042 

4043 

4044 

4045 
404b 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 
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II 

II 

II 

II 

II 

II 

ii 

ii 

ii 

n 

it 

=== 

ii 

ii 

ii 

ii 

ii 

ii 

== 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

li 

it 

ii 

li 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

it 

tl 

ii 

ii 

ii 

ii 



it 

ii 

ii 

ii 

it 

:: 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

tl 

it 

ii 

li 

M 

li 

it 

ii 

it 

0D45 

• 

• 

• 

• 

9 



0045 

• 

• 

• 

• 

9 

OUTPUT ERROR COND 

0D45 

• 

• 

• 

m 

9 



0D45 

06 

00 

• 


MV1 

B,0 

0D47 

3 A 

4P 

FF 


LDA 

IOCERR 

004 A 

FE 

46 

• 


CPI 

F 

004C 

C2 

51 

OD 


JNZ 

STA010 

() D 4 F 

06 

08 

• 


My I 

B, IOERRB 

0051 

• 

• 

• 

STA010 EUU 

S 

0D51 

00 

• 

• 


NUP 


0D52 

3 A 

FI 

FF 


LDA 

errflg 

0D55 

BO 

m 

• 


ORA 

E 

0D56 

CD 

9F 

OB 


CALL 

PAROUT 

0D59 

• 

• 

• 

• 

9 



0059 

• 

• 

• 

9 

OUTPUT DEVICE TRAt 

0D59 

• 

• 

• 

• 

9 



0059 

7C 

• 

• 


M(J V 

A , H 

005 A 

07 

• 

• 


RLC 


Q05B 

70 

• 

• 


MUV 

A , L 

0D5C 

17 

• 

• 


RAL 


0D5D 

4 7 

• 

• 


MUV 

B , A 

0D5E 

1C 

• 

• 


MUV 

A ,ii 

0D5F 

OF 

• 

• 


RFC 


0060 

OF 

• 

• 


RRC 


ODbl 

OF 

• 

• 


RRC 


0062 

OF 

• 

• 


RRC 


0063 

78 

• 

• 


MUV 

A ,B 

0064 

17 

• 

• 


RAL 


0Do5 

C 3 

9F 

Ot> 


JMP 

PAROUT 


PAGF 118 


Tl ON l* LAGS 

? SET FOR WO I/O ERROR 
J GET I/O ERROR FLAG 
;I/n ERROR OCCURRED? 

?NO - GET OTHER ERROR FLAGS 
;YES - SET I/O ERROR LIT 

jInSTR. DELETED 10 FIX RUG 

; get the frrur flags 

MERGE WITH EXISTING BITS 
; TRANSMIT ERROR STATUS 

SFEF PENDING FLAGS 

t GET TERMINAL MODE 1 FLAGS 
;PUT I/O DONE FLAG IN C-FLAG 
? GET TEPMNAL MODE 2 FLAGS 
r ADD IN I/O DONE FLAG 
;SAVE TEMPORARY RESULTS 
? RECALL TERMINAL MODE 1 FLAG 
;PUT DEVICE STATUS INTO 
?C-FLAG 


; RECALL ACCUMULATED BITS 
;ADD IN DEVICE STATUS 
? SEND DEVICE XFR PENDING BIT 
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11 

II 

It 
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II 
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II 

II 

II 

It 

II 

H 

II 
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L0C 

OBJECT 

CODE 
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Tku 

II 

II 

II 

II 

II 

It 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 
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ii 


ii 

ii 

it 
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ii 

ii 


ti 

n 

it 

H 

it 

ii 

H 

ii 

H 

H 

ii 

ii 

ii 

it 

it 

H 

ii 

ii 

ii 

ii 

ii 

a 

ii 

H 

it 

ii 

H 

ii 

ii 

H 

H 

ii 

ii 

ii 

ii 

ii 

ii 

H 

ii 

H 

4066 

0D68 

• 

• 

• 

/******************************************** 

4067 

0D68 

• 

• 

• 

? STCHR1 - 

SET INITIAL DISPLAY CHARACTER JN * 

4068 

0D68 

« 

• 

• 

? NE A DISPLAY BLOCK * 

4069 

0068 

* 

• 

• 

;*************************************♦****** 

4070 

0068 

m 

• 

* 

• 

9 


4071 

0068 

* 

• 

• 

; ENTRY: 

H,L = ADDRESS OF FIRST DISPLAY 

4072 

0068 

• 

• 

• 

• 

9 

IN BLOCK 

4073 

0068 

* 

• 

• 

i 


4074 

0D68 

* 

• 

• 

7 EXIT : 

A = 0 

4075 

0068 

a 

• 

• 

9 

H,L UNCHANGED 

40 7 1> 

0068 

9 

• 

• 

* 

9 


4077 

0068 

9 

• 

• 

STCH81 EQU 

$ 

407 d 

0068 

3 A 

F 4 

Ft* 

LD A 

MDFLG1 / GET SOFT MOuE FLAGS 

4079 

0O6B 

E6 

80 

• 

AN I 

FORGN /FOREIGN MODE ENABLED? 

4060 

0060 

3E 

CC 

♦ 

MV I 

A , EOL ; C SET TO STORE EULJ 

4081 

0 0 6 F 

CA 

7 A 

00 

JZ 

STC010 ;N0 - STORE EOL ONLY 

4082 

0072 

2B 

• 

• 

OCX 

H ;YE S - STORE EOL AND DISPLAY 

4083 

0073 

77 

• 

• 

MOV 

M r A /CONTROL BYTE TO CAUSE 

4084 

0074 

3 A 

29 

48 

LD A 

FRSALT /FOREIGN CHARACTER SET TO 

4085 

00 77 

F6 

80 

9 

OKI 

2000 /BE DISPLAYED 

4086 

0079 

23 

• 

9 

I NX 

H 

4087 

007 A 

• 

• 

9 

STC010 E'yu 

$ 

4088 

00 7 A 

77 

9 

9 

MOV 

M , A /STORE FIRST DISPLAY CHAR 

4089 

0070 

AF 

9 

9 

XHA 

A /CLEAR A -REGISTER 

4090 

OP/C 

C9 

9 

9 

Rt.T 

/RETURN 
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LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGF. 120 


H 

II 

II 
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II 


s suss s 


SSSS3S3SSSSISS 

SSSSSSSSS 

u 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 
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4092 

0D7D 

9 


• 


4093 

QD 70 

• 

• 

• 

; TEST - PERFORM TERMINAL SELF TEST * 

4094 

0D7D 

• 

• 

• 

• **** ********* **************** ******* 

4095 

0070 

• 

• 

• 

TEST EQU 

$ 


4096 

0D7D 

CD 

4D 

10 

CALL 

CKEOIT 

?EDIT mode ENABLED? 

4097 

0080 

CO 

• 

• 

RNZ 


; Y£S - DON'T DU SELF-TEST 

4098 

0D81 

3E 

08 

• 

MV I 

A,CKIOKY 


4099 

0083 

CD 

08 

48 

CALL 

ZKBCTL 

?I/0 CONTROL KEY DOWN ALSO? 

4100 

0086 

21 

11 

28 

LXI 

H , TSTCTU 

; ( SET FOR CTU SELF-TEST) 

4101 

0D89 

C2 

93 

15 

JNZ 

IORMGO 

; YES - DO CTU SELF-TEST 

4102 

0D8C 

• 

• 


• 

9 


NO - DO TERMINAL SELF-TEST 

4103 

0O8C 

• 

• 

« 

• 

9 



4104 

0D8C 

• 

• 

• 

; PERFORM TERMINAL SELF-TEST 

4105 

0D8C 

• 

• 

• 

9 



4106 

0O8C 

• 

• 

• 

TRMTST EOU 

$ 


4107 

0O8C 

3A 

FA 

FF 

LDA 

KBJMP2 

; GET KEYBOARD JUMPERS 2 

4108 

008P 

E6 

04 

• 

ANT 

notfst 

?SELF-TEST inhibited 

4109 

0091 

21 

51 

OF 

LXI 

H f NOTSMS 

; (SET MESSAGE ADDRESS) 

4110 

0D94 

C2 

D7 

1C 

JNZ 

DSPMS1 

; YES - DISPLAY MSG AND EXIT 

4111 

0D97 

3 A 

6E 

FF 

LDA 

DFLGS 

; GET DATA TRANSFER FLAGS 

4112 

0D9A 

F6 

80 

• 

ANI 

XBF2DS 

; DATA FROM I/O BUFFER 

4113 

009C 

C2 

D7 

1C 

JNZ 

DSPMS1 

; YES - DUN'T DO SELF-TEST 

4114 

009 F 

CD 

6E 

15 

CALL 

IOBSYC 

; WAIT UNTIL CTU'S IDLE 

4115 

0DA2 

F3 

• 

• 

01 


? DISABLE INTERRUPTS 

4116 

0DA3 

3E 

05 

• 

MV I 

A,STRTST 

; SET KEYBOARD FOR SELF-TEST 

4117 

0OA5 

CD 

08 

48 

CALL 

ZKBCTL 

; START-UP 



ITEM 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 
4126 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 
413 7 
4136 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 
4146 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 
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LOC 

0DA8 

ODAB 

0DA8 

0DA8 

0DA8 

0DA8 

0DA8 

ODAB 

ODAR 

ODAB 

odae 

()DAF 
0 0 A F 

odaf 

00 AF 
0060 
006? 
0065 
00b7 
0 0 6 A 
ODBC 
ODlF 
0DC2 
00C5 
0OC6 
0DC7 
0OCA 
ODCB 
ODCF 
ODCF 
odce 

ODCE 

ODCF 

ODCF 

odd t 

0004 

0005 
00D5 
0DD8 
0008 
0009 
0DD9 
ODDC 
0000 
00 PE 
OODF 
OOEO 
0DE1 
0DE2 
0DE4 
0DE5 



ss: 


11 

ti 

it 

H 

ii 

l< 

li 

ti 

H 

11 

11 

II 

OBJECT 

CODE 

SOURCE ST ATI: 

9 

• 

• 

.**♦******* 

9 

• 

• 

; ROM TEST 

9 

9 

• 

• 

• 

• 

? 

; CALCULATE 

9 

• 

• 

; FOR EACH 

9 

• 

• 

*********** 

21 

00 

F 8 

LXT 

* 

9 

9 

• 

• 

• 

• 

9 

TST010 Egu 

1 1 

00 

08 

LX I 

19 

9 

• 

DAO 

• 

9 

9 

• 

• 

9 

9 

; IS CURREN 

1C 

• 

• 

9 

9 

9 

MIJV 

FE 

B/ 

9 

CPI 

0 2 

EB 

00 

JNC 

FE 

80 

• 

CPI 

CA 

AB 

00 

JZ 

FE 

88 

• 

CPI 

CA 

AB 

00 

JZ 

CO 

A3 

15 

CALL 

CA 

CE 

00 

JZ 

AF 

• 

• 

XRA 

B5 

• 

• 

ORA 

CA 

AB 

00 

JZ 

7C 

9 

• 

MU V 

C3 

09 

00 

JMP 
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2B 

16 

CD 

3C 

CA 

• 

AF 

11 
4F 
4o 
7C 
OF 
OF 
6F 
26 
79 
C 3 


08 

81 


A6 


08 


00 


a , h ; 

1340000/256 
TST050 ; 

1 0 0 0 0 0 Q / 2 5 o 
TST010 
1^40000/256 
TST010 ; 

1 08 MG 1. ? 

TST0 20 
A ? 

Ilj ! 

rsroio 

a,h ; 

1ST030 
********************** 

; C A LCD DATE CHECKSUM * 
********************** 


PUT MSB INTO A-6FG 1 S'J £R 
-1 ; ADDRESS > 48K? 

YES - GO TO NEXT TEST 
; IN I/O SPACE? 

YES - GO TO NEXT HO*i BLOC E 

YES - GO TO NEXT ROM BLOCK 
DOES THE ROM EXIST? 

YES - CHECK THE ROM 
DO - CHECK FOR NO RUM 
ROM INSTALLED? 

NO - GO TO NEXT ROM 
YES - REPORT POSSIBLE 
; MISPLACED ROM 


TST020 FOU 
OCX 
MV I 
CALL 
INR 


$ 

H ? RESTORE START ADDRESS 

D,NI)m 2K/256 ?SEi TO SUM 2K SPACE 
CHKSUM ; C ALCULA IF CHECKSUM 

a ?= ^J^^^****** 

* jz rsroio ; yes - do next rod block 



• 

• 

XRA 

A 

; NO - REPORT BAD RUM 



TST030 Egil 

S 

;SET RUM ERROR MESSAGE 

37 

OK . 

LXI 

0 , romerp 

MUV 

C , A 

; SAV E EXPECTED VALUE 



MOV 

B,M 

; GET VALUE FOUND 



MOV 

A,H 

; CUN* VERT ROM ADDRESS TO 



PRC 


; ROM NUMBER (0,2,4,.. 



RRC 





MOV 

L, A 

; SET AS ERROR ADDRESS 

00 


MV I 

H,0 

? RECALL EXPECTED VALUE 


MOV 

A,C 

F3 

OE 

JMP 

TST600 

; REPORT ERROR 



13255-90003 


ITEM 

L0C 

4171 

ODER 

4172 

0DE8 

4173 

ODES 

4174 

0DE8 

417b 

ODES 

4176 

ODER 

4177 

0DE8 

4178 

0DE8 

4179 

ODER 

4180 

ODE 8 

4181 

0DE8 

4182 

0DE8 

4183 

ODER 

4184 

ODEA 

418b 

ODED 

4186 

ODFO 

4187 

0DF3 

4188 

0DF4 

4189 

0DF5 

4190 

0DF7 

4191 

0DF8 

4192 

0DF9 

4193 

0DF9 

4194 

0DF9 

419b 

0DF9 

4196 

0DF9 

4197 

0DF9 

4198 

0DF9 

4199 

ODFC 

4200 

ODFF 

4201 

OEOO 


Rev AUG-0 1 -7b 

OBJECT CODE SOURCE STATEMENTS 

***:M#****!M*;M*^************* 

RAM TEST * 

♦ 

CALCULATE CHECKSUM ON * 

EACH 4K BLOCK. * 

TEST EACH 256 BYTE SECTION * 
RECHECK CHECKSUM. * 

************* + 

E = 0 


RAGE 122 


3E 

32 

21 

CD 

44 

4D 

16 

63 

02 


80 

20 

00 

FF 


TST050 EOU 
M VI 


A , CRTOFF 
STA 10CRKW 
LXT h t IOBUf 
CALL CLRAiit 
MOV B,H 
C , L 


;tupn off video 


MOV 

MVI 

MOV 

STAX 


;set h , t» to l/u buffer #i 
;clear the i/o buffer 

? SET B,C = I0BUF2 
;(H,L * IOBUF 2 ) 

D,10000Q/256 ?SET D,E FUR 4K 1NCREMEN 
; SET H TO 0 TO INDICATE STAR 
b ;SET CHECKSUM FOR LAST 

' BLOCK TO ZERO 

; ***************^*^*^^^t********^* *********** 

; calculate checksum for each ram block and * 

; STORE CHECKSUM In m IURUF2" * 

J******* ************************************* 

TSTObO EUU $ 

# get next block address 

;COMPUTE ChECKSUM 
; STORE CHECKSUM VALUE 
; CONTINUE IF NOT LAST BLOCK 


CD 

5E 

OB 

Call 

NXSBLK 

CD 

81 

08 

CALL 

CHKSUM 

02 

• 

• 

STAX 

B 

C2 

F9 

OD 

JNZ 

TST060 
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ssss 





ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 123 

4203 

0E0 3 

• 

• 

• 

♦ 

9 



4204 

OEO 3 

• 

* 

• 

? CHECK EACH 25b BYTE HA h SECTION 

4205 

0E03 

• 

• 

• 

• 

9 



4 20o 

0 E 0 3 

50 

• 

• 

MOV 

E,L 

; SET E TO ZERO TO INDICATE 

4207 

0EQ4 

• 

• 

• 

• 

9 


TESTING OF FAST RAM AREA 

420B 

OEO 4 

26 

91 

• 

MV I 

H ,FST RAM/256 ; START OF FAST RAM ( L= 

4209 

0E06 

• 

• 

• 

TST090 EQIJ 

$ 


4210 

0F06 

• 

• 

• 

9 



4211 

0EO6 

• 

• 

* 

; TEST THE 

RAM IN THE FOLLOWING STEPS 

4212 

0E06 

• 

• 

* 

• 

9 



4213 

0E06 

• 

• 

• 

; 1. SAVE THE SECTION'S CONTENTS 

4214 

OEO 6 

01 

00 

FC 

LX l 

B , IO0HF 

; I/O BUFFER 

4215 

OE 09 

, 

• 

• 

1ST 100 EUU 

$ 


421b 

0E09 

7 E 

• 

• 

MOV 

A , M 

; R i’ T E TO BE SAVED 

4217 

OEO A 

02 

• 

• 

STAX 

b 


4218 

OEOB 

OC 

• 

• 

INR 

C 

;SET TO NEXT SAVE ADDRESS 

4219 

OEOC 

• 

• 

• 

; 2 SET EACH BYTE = 

MSB ■ XOR • LSB OF ADDR 

4220 

OEOC 

7D 

• 

• 

MU V 

A ,L 


4 221 

OEOD 

AC 

• 

• 

XRA 

M 


4222 

OEOE 

7 7 

• 

• 

MOV 

M , A 


422 3 

OEOF 

2C 

• 

# 

INR 

L 

JALL BYTES DOME? 

4224 

0 E 1 0 

C2 

09 

OE 

JNZ 

1ST 100 

; NO - DO THE NEXT BYTE 

4225 

0 E 1 3 

• 

• 

• 

; 3 . w a I T 



4226 

OE 1 3 

• 

• 

• 

; APPROX 2 MS , 

5000 CLOCK CYCLES 

4227 

0 E 1 3 


• 

• 

TST115 Eg H 

$ 


4228 

OE 1 3 

7F 

• 

• 

MOV 

A, A 

; no op 

4229 

OE 1 4 

2C 

• 

• 

INR 

1> 


4230 

0E15 

C2 

13 

OE 

JNZ 

TST115 


4231 

OEl 8 

• 

• 

• 

? 4. CHECK 

EACH MEMORY LOCATION 

4232 

OE 1 8 

• 

• 

• 

; COMPLEMENT IT 


4z3 3 

OE 1 8 

55 

• 

• 

MOV 

0 , L 

; I) = 0, COUNTER 

42 3 4 

OEl 9 

2D 

• 

• 

OCR 

L 

?L= 37 7B 

4235 

OEl A 

• 

• 

• 

TST120 EgU 

$ 


423o 

QE1 A 

70 

• 

• 

MOV 

A , L 

; CALCULATE EXPECTED VALUE 

4237 

0 E 1 B 

AC 

• 

• 

XRA 

H 


4238 

OE 1 C 

BE 

• 

m 

CMP 

M 

;same as before? 

4239 

OE 1 0 

C2 

EF 

OE 

JNZ 

TST510 

; Nu - REPORT ERROR WITH 

4240 

0E20 

• 

• 

• 

i 


EXPECTED/FOUND BYTES 

4241 

0E20 

2F 

• 

• 

CMA 



4242 

0E21 

77 

• 

• 

MOV 

M, A 

? SET COMPLEMENT 

424 3 

0E2P 

2D 

• 

• 

DCR 

L 


4244 

0E23 

15 

• 

• 

DCR 

0 

; DONE WITH THIS SECTION? 

4245 

0E2 4 

C2 

1A 

OE 

JNZ 

1ST 120 

} NU 

424b 

0E2 7 

• 

• 

• 

? 5 • WAIT AGAIN 


4247 

0E27 

• 

• 

• 

; APPHOX 2 MS, 

5000 CLOCK CYCLES 

4248 

0E27 

• 

• 

• 

TST125 EQU 

$ 


4249 

0E27 

7F 

• 

• 

MOV 

A, A 

;NU OP 

4250 

0E2R 

2D 

• 

• 

DCR 

L 


4 251 

0E29 

C2 

27 

OE 

JNZ 

TST125 

;LOOP FOR 25b TIMES 



1 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS 



ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

n 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

14 

II 

It 

11 

II 

II 

II 

======= 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

H 

ii 

ii 

4253 

0E2C 

• 

• 

• 

; 6. CHECK VALUES. 

RESTORE ORIGINAL VALUE 

4254 

0E2C 

• 

• 

• 

; B,C = ICBUF 


4255 

0E2C 

• 

• 

• 

* 

9 



4256 

0E2C 

• 

• 

• 

TS1 1 30 EOIJ 

$ 


4257 

0E2C 

7D 

• 

• 

MOV 

A , L 


4258 

0E2D 

AC 

• 

• 

XRA 

H 


4259 

0E2E 

2F 

• 

• 

CMA 



4260 

0E2F 

BE 

• 

• 

CMP 

M 

; SAME AS BEFORE? 

4261 

0E30 

C2 

EF 

OE 

JNZ 

TST510 

; NO - REPORT ERROR WITH 

4262 

OF. 3 3 

• 

• 

• 

• 

9 


EXPECTED/FOUND BYTES 

4 263 

0E33 

OA 

• 

• 

LDAX 

B 


4264 

0E34 

77 

• 

• 

MOV 

M, A 

; RESTORE 

4265 

0E35 

03 

• 

• 

I N X 

B 


4266 

0E36 

2C 

« 

• 

INR 

L 

; BLOCK COMPLETED? 

4267 

0E37 

C2 

2C 

OE 

JNZ 

TST130 

; NO - DO NEXT BYTE 

4268 

0E3A 

• 

• 

• 

• * * * * * * * * * * 

**************** 

4269 

0E3A 

• 

• 

• 

; DONE WITH 

THIS SECTION. * 

4270 

0E3A 

• 

• 

* 

; DO NEXT? 


* 

4271 

0F3A 

• 

• 

• 

. *************************** 

4272 

OF 3 A 

1C 

• 

• 

INR 

E 

; IF E = 0, WE JUST TESTED 

4273 

0E3B 

ID 

• 

• 

DCR 

E 

; FAST RAM 

4274 

0E3C 

C2 

42 

OE 

JNZ 

TST140 


4275 

0 E 3 F 

63 

• 

• 

MOV 

H,E 

?H=0, INDICATE START 

4276 

0E40 

IE 

C8 

• 

MV I 

E,200 

; BIT 7=1 MEANS 256 

4277 

0E4? 

• 

• 

• 

9 


BYTE INCREMENTS 

4278 

0E42 

• 

• 

• 

9 

9 



4279 

0E42 

• 

• 

• 

TST140 EQU 

$ 


4280 

0E42 

CD 

5E 

OB 

CALL 

NXSBLK 

; GET NEXT BLOCK ADDRESS 

4281 

0645 

B 7 

• 

• 

ORA 

A 

; LAST BLOCK DONE? 

4282 

0E46 

C2 

06 

OE 

JNZ 

1ST 090 

; NQ , TEST NEXT 
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ITEM 

LOC 

OBJECT 

CODE SOURCE STATEMENTS 
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/4264 

0E49 

• 

• 

• 

*********** *********** 

4285 

0E49 

• 


• 

CHECK ORIGINAL CHECKSUMS * 

4286 

0F49 

• 

• 

* 

************* *************** 

4287 

0E49 

• 

• 

• 




4288 

0F49 

• 

• 

• 

B,C = 10BUF2 


4289 

0E49 

• 

• 

• 

' 



4290 

0E49 

59 

9 

• 

MOV 

E t C 

?SET E TO ZERO 

4291 

0E4A 

2b 

FC 

• 

MVI 

H , IOBUF /25b ?SET H TO I/O BUFFER #1 

4292 

0E4C 

CD 

FF 

10 

CALL 

CLRAL1 

; CLEAR THE I/O BUFFER 

4293 

0E4F 

• 

, 

. ; ch,l) = 

I0BUF2 1 TOP 

HALF OF I/O BUFFER 

4 294 

0E4F 

16 

10 

• 

MVI 

0 , 10000Q/256 ; SET D,E FOR 4K INCREMEN 

4295 

0E51 

7E 

• 

• 

MOV 

A , M 

? GET CHECKSUM FOR TOP BLOCK 

4296 

OE52 

73 

• 

• 

MQV 

M , E 

7 SET STORE BXTF TO ZERO 

4297 

0E53 

F5 

• 

• 

RUSH 

RSw 

;SAVE TOP BLOCK CHECKSUM 

4296 

0E54 

63 

• 

• 

MOV 

H , E 

7 SET H TO 0 TO INDICATE STAR 

4299 

0E55 

• 

• 

# J******************************** *************** 

4 300 

0E55 

• 

. • 

• 

RE-CALCULATE CHECKSUM FOR EACH RAM BLOCK AND * 

4301 

0E55 

• 

• 

• 

i COMPARE 

TO INITIAL 

STORED VALUE * 

4302 

0E55 

• 


• 

.************************ *********************** 

4303 

0E55 

• 

9 

« 

1ST 150 EQU 

$ 


4304 

0E55 

CD 

5fc 

OB 

CALL 

NXSBLK 

; GET NEXT BLOCK ADDRESS 

4305 

0E58 

CD 

81 

08 

CALL 

CHKSUM 

? COMPUTE CHECKSUM FOR BLOCK 

4306 

0E5B 

66 


• 

MOV 

L f A 

;SAVE COMPUTED VALUE IN L-RE 

4307 

0E5C 

CA 

68 

OE 

JZ 

TST160 

; LAST BLOCK - CHECK 1ST VALU 

4308 

QE5F 

OA 

• 

• 

I.DAX 

B 

; RECALL ORIGINAL CHECKSUM 

4309 

OEbO 

95 

m 

• 

SUB 

L 

7 DU CHECKSUMS MATCH? 

4310 

0E61 

6E 

9 

• 

MOV 

L , A 

;(SE1 L TO ZERO IF TRUE) 

4311 

0E62 

CA 

55 

OE 

JZ 

TST150 

; YES - GO TO NEXT BLOCK 

'4312 

0E65 

C 3 

ED 

OE 

JMP 

TST5U0 

; NO - REPORT ERROR 

4313 

0E68 

• 

• 

« 

* 



4314 

0E68 

• 

• 

• 

ISTlbO EQU 

$ 


4315 

0Eb8 

FI 

• 

• 

POP 

PSrt 

; RECALL 1ST STURED CHECKSUM 

4316 

0E69 

95 

• 

• 

SUB 

L 

7 DO CHECKSUMS MATCH? 

4317 

0E6A 

C2 

ED 

OE 

JNZ 

TST500 

7 NO - REPORT ERROR 



13255- 

90003 

Rev 

AUG-01- 

76 






ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ssss: 

it 

ii 

ii 

ii 

if 

ii 

ii 



ti 

ii 

ii 

ii 

ti 

it 

ii 

ii 

ii 

ii 

n 

ii 

ii 

it 

it 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ti 

ii 

it 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 126 


ii 

it 

ii 

ti 

ii 

it 

it 

ii 

:::s 

ii 

n 

ii 

ii 


ii 

li 

ii 

li 

li 

li 

u 

ti 

15SS5! 


ii 

ii 

ii 

li 

ii 

ii 

ii 

n 

it 

ii 

ii 

ii 

ii 

•i 

ti 

ii 

ii 

li 

ii 

ii 

li 

ii 

ii 

ii 

ii 

ti 

it 

it 

ii 

M 

4319 

0E6D 

• 


• 

;********** ************* 

4320 

0E6D 

• 

• 

• 

; DISPLAY TEST PATTERN * 

4321 

0E6D 

# 

• 

• 

.*********************** 

4322 

0E6D 

CD 

14 

48 


CALL 

ZBELL 

; SOUND THE BELL 

4323 

0 E 7 0 

3E 

CO 

• 


MVI 

A,300Q 

;SET INITIAL CHARACTER SET 

4324 

0E72 

• 

• 

• 

TST200 

EQU 

$ 


4325 

0E72 

Db 

10 

• 


SUI 

20Q 

; SET TO NEXT CHARACTER SET 

432b 

OE 74 

F5 

• 

• 


POSH 

PSW 

; SAVE CURRENT ENHANCEMENT 

4327 

0E75 

AF 

• 

• 


XRA 

A 

; SET CHARACTER TO NULL 

4328 

OE 76 

32 

68 

FF 


STA 

ICHAR 


4329 

0E79 

• 

• 

• 

TST220 

EQU 

$ 


4330 

0E79 

CD 

B8 

21 


CALL 

CRRET 

;D0 CP 

4331 

0E7C 

CD 

69 

OA 


CALL 

CONDLF 

; DO LF IF WRAPARUUND DISABLED 

4332 

0E7F 

FI 

• 

• 


POP 

PSw 

? RECALL CURRENT ENHANCEMENT 

4333 

0E80 

F5 

• 

• 


PUSH 

PSW 

; AND SAVE IT AGAIN 

4334 

0E81 

CD 

Eb 

OC 


CALL 

SHFT2 

; PUT ENHANCEMENT ON DISPLAY 

4335 

0E84 

• 

• 

• 

TST240 

EQU 

$ 


43 3b 

0E84 

3 A 

68 

FF 


LDA 

ICHAR 

; GET CURRENT ENHANCEMENT COD 

4337 

0E8 7 

32 

89 

FF 


STA 

DCHAR 

; STORE CHAR FOR DISPLAY 

4338 

0E8A 

Eb 

0 7 

• 


ANI 

7 

? EVERY 8 CHARS INSERT 2 BLNKS 

4339 

0E8C 

FE 

04 

• 


CPI 

4 

; T I M E TO ADD TWO BLANKS? 

4340 

0E8E 

CC 

02 

20 


cz 

CUHAD2 

; YES - ADVANCE CURSOR TWICE 

4341 

0E91 

CD 

1A 

23 


CALL 

DSPCHR 

? DISPLAY THE CHARACTER 

4342 

0E94 

21 

68 

FF 


LXT 

H, TCHAR 


4343 

0E97 

34 

• 

• 


INR 

M 

} INCREMENT DISPLAY CHARACTER 

4344 

0E98 

7 E 

• 

• 


MOV 

A , M 

; GET NEW CHARACTER 

4345 

0E99 

FE 

40 

• 


CPI 

64 


4346 

0E9B 

CA 

79 

OE 


JZ 

TST220 

; IF 64 THEN NEW LINE 

4347 

0E9E 

B7 

• 

• 


ORA 

A 

; ALL CHARACTERS DONE? 

4348 

0F.9F 

F2 

84 

OE 


JP 

TST240 

; NO - CONTINUE 

4349 

0EA2 

CD 

9b 

20 


CALL 

CRLF 

; YES - DOUBLE SPACE BETWEEN 

4350 

0EA5 

FI 

• 

• 


POP 

PSW 

? CHARACTER SETS 

4351 

0EA6 

FE 

80 

• 


CPI 

200Q 

; ALL CHARACTER SETS DONE? 

4352 

0EA8 

C 2 

72 

OE 


JNZ 

TST200 

; NO - CONTINUE DISPLAY 
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ITEM 

LGC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 127*” 

it 

it 

ii 

ii 

it 

ii. 


it 

ii 

)i 

ii 

ii 


ii 

ii 

it 

ii 

ii 

ii 

H 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

1) 

II 

if 

II 

II 

ll 

ll 

ll 

ll 

ll 

ll 

if 

ll 

ll 

if 

H 

II 

II 

II 

II 

Ii 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

4354 

OEAB 

0 

0 

0 

************ ft ♦*♦*$******♦ ***** 

4355 

OEAB 

0 

0 

0 

? DISPLA Y ENHANCEMENT PATTERN * 

4356 

OEAB 

• 

0 

0 

;**************♦♦************** 

4357 

OEAB 

F5 

0 

0 

PUSH PSW ?SAVE ENHANCEMENT CODE 

4358 

OFAC 

CD 

69 

OA 

CALL CONDLF ;D0 LF IF WRAPAROUND DISABLE 

4359 

OEAF 

« 

# 

0 

TST420 EyU $ 

4360 

OEAF 

FI 

0 

0 

PUP PSW ; RECALL CURRENT ENHANCEMENT 

4361 

OFBO 

F5 

• 

• 

PUSH PSw ;SAVE ENHANCEMENT AGAIN 

4362 

0FB1 

06 

40 

0 

SUI 1 OoQ ; COMPUTE ASCII DISPLAY CODE 

4363 

0K63 

CD 

14 

23 

CALL DSPTST ;D1SPLAY THE CHARACTER 

4364 

0EB6 

FI 

0 

0 

POP PSW . ; RECALL CURRENT ENHANCEMENT 

4365 

0EB7 

1C 

# 

0 

I MR A ; INCREMENT ENHANCEMENT 

43bb 

0E68 

FE 

90 

• 

CPI 2200 ; LAST ENHANCEMENT DONF? 

4367 

ofba 

CA 

C4 

OE 

JZ TSl 440 ? YES - DISPLAY STATUS 

4368 

OEBD 

F5 

0 

0 

PUSH PSW ; NO - SAVE ENHANCEMENT CODE 

4369 

0E8E 

CD 

DE 

21 

CALL DISPCO ; ADD ENHANCEMENT TO DISPLAY 

4370 

0EC1 

C3 

AF 

OE 

JMP TST420 ; DISPLAY ASCII DISPLAY CODE 

4371 

0FC4 

0 

0 

0 

! 

4372 

0FC4 

0 

0 

0 

1ST 440 EOU $ 

4373 

0F.C4 

A k 

0 

0 

XRA A 

4374 

0EC5 

CD 

DE 

21 

CALL DISPCO ; RETURN TO NORMAL VIDEO 

4375 

0EC8 

CD 

02 

2u 

CALL CURAD2 ? ADVANCE CURSOR TWICE 

4376 

OECB 

0 

0 

# 

•****++*******+#**+*+ ++*+*+ 

437 7 

OECB 

0 

0 

0 

? DISPLAY TERMINAL STATUS * 

4378 

OECB 

0 

0 

• 

;***♦*****♦****♦********♦** 

4379 

OECB 

21 

F7 

Ft 

LX I H t ERRFLG ;SET ERROR FLAG TO 

4380 

OECE 

7E 

• 

0 

MOV A,M ; SELF-TEST SUCCESSFUL 

438.1 

OECF 

F6 

02 

0 

OR I TESTOK 

4382 

OFDt 

77 

0 

0 

MOV to , A 

4383 

0ED2 

21 

14 

23 

LAI H, DSPTST ;SET H , L TO OUTPUT ROUTINE 

4384 

0ED5 

CD 

14 

OD 

CALL STAPAR ? DISPLAY TERMINAL STATUS 

4385 

0ED8 

CD 

05 

20 

CALL CURADV ?PUT SPACE BETWEEN STATUS 

4386 

OEDB 

CD 

29 

26 

CALL STA2G2 

4387 

OEDF 

CD 

96 

20 

CALL CRLF 

4388 

0EE1 

CD 

96 

20 

CALL CRLF 

4389 

0EE4 

0 

0 

0 

;************♦********* 

4390 

0FE4 

0 

0 

0 

; TERMINATE SELF-TEST * 

4391 

0EE4 

0 

0 

• 

;***♦**♦♦*** 4 *♦*♦**♦♦** 

4 392 

0EE4 

3E 

06 

0 

MV I A t ENDTST ? RESTORE KEYBOARD LED'S 

4393 

0EE6 

CD 

08 

48 

CALL 2.KBCTL 

4394 

0EE9 

FB 

0 

0 

El ? RE-ENABLE INTERRUPTS 

4395 

OEE A 

C3 

23 

20 

JMP C RAD VI ? RESET CURSOR ADVANCE FLAG 
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It 

II 

II 

II 

II 

11 

: S 5S5S 






ii 

II 

(I 

ii 

ti 

ii 

ii 

ii 

it 

============================= 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 128 




zs: 




ii 

ii 

H 

it 

ti 

ii 

ii 

ti 

ii 

it 

it 

if 

ti 

it 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

it 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

4397 

OEED 

• 

• 

• 

TST500 

Egu 

$ 

; REPORT RAM ERROR 

4398 

OEED 

AF 

• 

• 



XRA 

A 

; SET Z TRUE FOR ADDRESS ONLY 

4399 

OEEE 

6F 

• 

• 



MOV 

L , A 

; FORCE L-REG1STER TO BE ZERO 

4400 

OEEF 

• 

• 

• 

TST510 

EQU 

$ 


4401 

OEEE 

46 

• 

• 



MOV 

B,M 

;PUT VALUE FOUND INTO B-REG 

4402 

OEEO 

1 1 

3 B 

OF 



LX I 

D , RAMERF 

;SET D t E TO ERROR MESSAGE 

4403 

0EF3 

• 

* 

• 


********************** ****** 

4404 

0EF3 

• 

• 

• 


REPORT ROM/PaM TEST 

ERROR * 

4405 

0 E F 3 

• 

• 

• 


.**************************** 

4406 

0EF3 

• 

• 

• 






4407 

0EF3 

• 

« 

• 


ENTRY: D 

= ADDRESS AT WHICH ERROR OCCURRED 

4408 

0EF3 

• 

• 

• 



H 

,L = ERROR MESSAGE ADDRESS 

4409 

0EF3 

* 

• 

• 



Z 

- DISPLAY ERROR ADDRESS ONLY 

4410 

OFF 3 

• 

* 

• 



N Z - DISPLAY PARAMETERS ALvSO 

4411 

0EF3 

• 

• 

• 




A = EXPECTED VALUE 

4412 

OFF 3 

• 

• 

• 




( H , L ) = 

VALUE FOUND 

4413 

0EF3 

* 

• 

• 






4414 

OFF 3 

• 

• 

# 

TST600 

EQU 

$ 


4415 

OFF 3 

EB 

• 

• 



XCHG 


?(H,L) = MESSAGE ADDRESS 

4416 

0EF4 

• 

• 

• 

f 



(D,E) = ERROR ADDRESS 

4417 

0EF4 

E5 

• 

• 



PUSH 

H 

;SAVE THE MESSAGE ADDPESS 

4418 

0EF5 

21 

50 

OF 



LAI 

H , ERREUP 

; SET EOP FOR SHORT MESSAGE 

4419 

0EF8 

22 

EB 

FF 



ShLD 

HSGPT4 


4420 

OEFR 

CA 

OE 

OF 



J Z 

TST610 

; Z - SHOW ADDRESS ONLY 

4421 

OEFE 

21 

0 0 

FD 



LX I 

H t I08UF2 

; SET BUFFER ADDRESS 

44 2 2 

0 F 0 1 

22 

Eb 

FF 



ShLD 

MSGPI'4 


4423 

0FO4 

C5 

• 

• 



PUSH 

B 

;SAVE VALUE FOUND 

4424 

OF 05 

CD 

0 2 

08 



CALL 

BINOCT 

; CON VERT BINARY TO OCTAL 

4425 

0F08 

FI 

• 

• 



PUP 

PS w 

; RECALL VALUE FOUND 

4426 

0FO9 

CD 

02 

08 



CALL 

BINOCT 

; CON VERT BINARY TO OCTAL 

442 7 

qfoc 

3b 

CE 

• 



MV I 

M , EOP 

; TERM I N ATE WITH "EOP" 

4428 

OFOE 

• 


• 

TST610 

EQU 

$ 


4429 

OFOE 

21 

10 

FU 



LXI 

H,I0BUF2+16 ?CONVERT FAILURE ADDRESS 

4430 

0F1 1 

22 

ED 

FF 



SHLD 

MSGPT3 


4431 

OF 14 

CD 

2E 

08 



CALL 

BN2DEC 

; CON VERT TO DECIMAL ASCII 

4432 

OF 17 

21 

42 

OF 



LXI 

H , RXMERR 

; SET REST OF LITERAL 

4433 

OF 1 A 

22 

EF 

FF 



SHLD 

MSGPT2 


4434 

OF ID 

3 A 

6E 

FF 



LDA 

DFLGS 

; GET DATA TRANSFER FLAGS 

4435 

0F20 

E6 

01 

m 



ANI 

SDACOM 

? TEST FROM DATA COMM? 

4436 

0F22 

El 

• ' 

• 



POP 

H 

? (RECALL MESSAGE ADDRESS) 

4437 

0F23 

CA 

54 

12 



JZ 

HANGUO 

; NO - SHOW MESSAGE AND HANG 

4438 

OF 2 6 

C7 

• 

• 



PST 

;o 

YES - RESET THE TERMINAL 



I TEH 

4440 

4441 

4442 

444 J 
4444 
444b 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

445 J 

4454 

4455 
445o 
4457 

4459 
4 45 9 

4460 

4461 

4462 

446 3 

4464 

4465 

4466 

4467 

4468 

4469 

4470 
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II 

II 

II 

II 

II 

II 

it 

it 

ii 

ii 

i» 

n 

ii 

it 


ii 

it 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ti 

ti 

ii 

ii 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

•i 

ii 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

0 E 2 7 

• 

• 

• 

;****************** 

OF 2 7 

• 

• 

• 

; MFSSAGE STORAGE * 

0E27 

• 

• 

• 


0E27 

• 

• 

• 

BUF MSG EQU 

55 

0F27 

42 

5b 

46 

DB 

"BUFFER OVERFLOW' , EOP 

0FJ7 

• 

• 

• 

• 

9 


0F37 

• 

• 

• 

romerp F.gu 

$ 

0F3 7 

5 2 

4F 

4D 

DB 

"POM ' ,0 

0F3B 

• 

• 

• 

• 

9 


OF 35 

• 

• 

• 

ramerr equ 

S 

0F3B 

52 

41 

4u 

Ob 

"RAM' ,0 

0F3F 

• 

• 

• 

• 

9 


0F3F 

• 

• 

• 

INfc.PMS EQU 

S 

OF 3 F 

49 

2F 

4F 

DB 

'I/O* 

0F42 

• 

• 

• 

* 

9 


0F42 

• 

• 

• 

RXMFRP EQU 

55 

OF 4? 

20 

4b 

52 

Ob 

* ERROR ',0 

0F4A 

• 

• 

• 

9 


0F4A 

• 

• 

• 

LDRMSG EQU 

55 

0 F 4 A 

4C 

4F 

41 

Ob 

"LOADER' 

0F50 

• 

• 

• 

ERREOP EQU 

£5 

0F50 

CFJ 

• 

• 

DB 

EOP 

0F51 

• 

• 

• 

J 


0 F 5 1 

• 

• 

• 

NOTSrtS EQU 

£5 

0F51 

4E 

4F 

20 

DB 

"MO TEST', EOP 

0F59 

• 

• 

• 

• 

9 


0F59 

• 

• 

• 

nodrvr equ 

55 

OF 5 9 

4E 

4F 

20 

DB 

"NO DEVICE DRIVER', EOP 

0F6A 

• 

• 

• 

• 

9 


0F6A 

• 

• 

• 

TRMFDY EQU 

5* 

OF 6 A 

54 

45 

52 

DB 

"TERMINAL READY', FOE 3 
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li 
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II 

li 

ii 
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II 
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it 

it 

li 

ii 

li 

ii 
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ii 

ii 
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li 
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li 

ii 
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ii 
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ti 
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CODE 

SOURCE STATEMENTS 
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n 

ii 
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II 
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ii 

ii 
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ii 

ii 

ii 

ii 

ii 
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n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

li 

ii 

li 

li 

ll 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ti 

ii 

li 

ii 

ll 

li 

it 

ii 

It 

if 

li 

li 

ll 

it 

4472 

OF79 

• 

» 

• 

;************************************ 

4473 

OF 7 9 

• 

• 

• 

? TOPUPP - UPDATE TOP 

LINE POINTERS * 

4474 

OF 7 9 

• 

• 

• 

.************************************ 

4475 

0F79 

• 

• 

• 

TOPUPB EQU $ 


4476 

0F79 

23 

• 

• 

INX H 

;PUT THE MSB INTO THE 

447 7 

0F7A 

46 

• 

• 

MOV B,M 

; R -REGISTER 

4478 

0F7B 

4F 

• 

• 

MOV C f A 

? SAVE TOP LINE'S LSB IN C-RE 

4479 

QF7C 

21 

A3 

FF 

LX T H , TLINU 

; UPDATE TOP LINE NUMBER 

4480 

0F7F 

7 A 

• 

• 

MOV A r D 


4481 

0F80 

B7 

• 

• 

ORA A ; 

IS TL1NQ TO BE RESET? 

448 2 

0F81 

CA 

85 

OF 

JZ TOP 100 

YES 

4483 

0F84 

86 

• 

• 

ADD M ? 

MO - INCREMENT OP DECREMENT 

4484 

OF 8 5 

• 

• 

• 

TOPI 00 EQU $ 


4485 

OF 8 5 

77 

• 

• 

MU V M , A ; 

STORE UPDATED TLTNO 

4486 

0F86 

• 

• 

• 

T0PUP1 EQU $ 


4487 

0F86 

60 

« 

• 

MUV H,B 

;SET NEW TOP LINE POINTER 

4488 

0F87 

69 

• 

• 

MOV L,C 


4489 

OF 8 8 

22 

CB 

FF 

SHLD TOPLIN 


4490 

0F8B 

3A 

F8 

FF 

LD A CMFLGS 

; GET COMMON FLAGS 

4491 

0F8E 

E6 

08 

• 

AN I DEFSKY 

; SOFT KEY DEFINE MODE? 

4492 

0F90 

CO 

• 

• 

RNZ 

; YES - DON'T CHANGE SCREEN 

4493 

0F91 

21 

FF 

FF 

LXI H , DI SPST+ 1 ; GET DISPLAY START ADDRESS 

4494 

0F94 

OB 

• 

• 

PCX B 

;SET TO FIRST CHAR ADDRESS 

4495 

0F95 

• 

• 

• 

.************************************** 

4496 

OF 95 

• 

• 

• 

; D I SUNK - STORE LINK 

IN DISPLAY AREA * 

449 7 

0F95 

• 

• 

• 

.************************************** 

4498 

0F95 

• 

• 

• 

• 

9 


4499 

QF95 

• 

• 

• 

; ENTRY: B,C = LINK TO BE STORED 

4500 

0F95 

• 

• 

• 

; H , L = STORE ADDRESS FOR MSB PART 

4501 

0F95 

• 

• 

• 

• 

9 


4502 

0F95 

• 

• 

• 

; EXIT i H , L = LSB 

OF STORE ADDRESS 

4503 

OF 95 

• 

• 

• 

; A DESTROYED 

4504 

0F95 

• 

• 

• 

; INTERRUPTS ENABLED 

4505 

0F95 

• 

• 

• 

• 

9 


4506 

0F95 

• 

• 

• 

DISLNK EQU $ 


4507 

0F95 

3E 

60 

• 

M VI A,DMAOFF 

; SET TO TURN OFF THE DMA 

4508 

OF 97 

F 3 

• 

• 

DI 

; DISABLE INTERRUPTS 

4509 

0F98 

32 

20 

87 

STA IOCRRW 

; TURN OFF DMA 

4510 

0F9B 

70 

• 

• 

MOV M , B 

; STORE LINK'S MSB 

4511 

0F9C 

2B 

• 

• 

DCX H 


4512 

0F9D 

71 

• 

• 

MOV M,C 

; STORE LINK'S MSB 

4513 

0F9E 

• 

• 

• 

DISLN1 EQU $ 

; SET CURSOR ROw POSITION 

4514 

0F9E 

3 A 

CO 

FF 

LD A CURROW 

; TURN DMA BACK ON WITH 

4515 

OF A 1 

• 

• 

• 

DISLN2 EQU $ 


4516 

0FA1 

32 

20 

87 

STA IOCRRW 

?CURRENT CURSOR ROW ADORES 

4517 

0FA4 

• 

• 

• 

DISLN3 EQU $ 


4518 

0FA4 

FB 

• 

• 

Ei 

; RE-ENABLE INTERRUPTS 

4519 

0FA5 

• 

• 

• 

DISLN4 EQU $ 

; RE-ENABLE RESET KEY 

4520 

0FA5 

3E 

02 

• 

MV I A , RSTON 


4521 

0FA7 

32 

80 

83 

STA IOKBCO 


4522 

OF AA 

C9 

• 

• 

RET 

; RETURN 
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ii 

ii 

•i 

ii 

ii 

ii 

it 






ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

li 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

ii 

if 

it 

ii 

ii 

u 

ii 

4524 

OFAR 

• 

• 

• 

;********************♦********** 

4525 

OFAB 

• 

• 

• 

; IYPSET - 

SET TYPE 

DEFINITION * 

4526 

OFAB 

• 

• 

♦ 


4527 

OFAB 

• 

• 

• 

TYPSET EDU 

$ 


4528 

OFAB 

CD 

76 

19 

CALL 

CHKFMS 

; FORMAT /SOFT KEY DEFINE MODE 

4529 

OF AE 

CO 

♦ 

• 

RNZ 


;YES - DO SFT TYPF 

4530 

OFAF 

3 A 

89 

FF 

LDA 

DCHAR 

? NO - COMPUTE TYPE DEFIN1TI0 

4531 

0FB2 

Cb 

8F 

• 

ADI 

ALPHA-ZERO-6 ; CHARACTER 

4532 

0FB4 

C 3 

EO 

21 

JMP 

DISPC1 

; ADD CHARACTER TO DISPLAY 

4533 

0FB7 

• 

• 

• 

;************************************ 

4534 

0FB7 

• 

• 

• 

; SFKCHK - 

SOFT KEY 

ATTRIBUTE CHECK * 

4535 

0F67 

• 

• 

• 

;***♦******** ****************** 

4536 

0FB7 

• 

• 

• 

SFKChK EglJ 

$ 


453 / 

0FB7 

E6 

DF 

• 

ANT 

3770-400 

; FORCE INPUT TO UPPER CASE 

4538 

0FB9 

2 A 

C3 

FF 

LHLD 

CURADR 

; RECALL CHARACTER ADDRESS 

4539 

ofbc 

77 

• 

• 

MOV 

M, A 

? STORE UPPER CASE VALUE 

4540 

OFBD 

FE 

4E 

• 

CPI 

N 

; NORMAL ATTRIBUTE SET? 

4541 

OFBF 

C8 

• 

• 

P.Z 


; YES - RETURN SUCCESSFUL 

4542 

OFCO 

FE 

4C 

• 

CPI 

L 

; LOCAL ATTRIBUTE SET? 

4543 

0FC2 

C8 

• 

• 

RZ 


; YES - RETURN SUCCESSFUL 

4544 

0FC3 

FE 

54 

• 

CPI 

T 

; TRANSMIT ONLY SET ? 

4545 

0FC5 

C8 

• 


RZ 


;YES - RETURN SUCCESSFUL 

4546 

0FG6 

70 

• 

• 

MOV 

M , B 

;N0 - RESTORE ORIGINAL 

4547 

0FC7 

C9 

• 

• 

PET 


; ATTRIBUTE AND RETURN NZ 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS _ 


« 

i 

1 

1 

1 

i 

i 

i 

i 

i 

i 

i 

i 

ii 

ii 

ii 

ii 

» 

ii 

ii 

n 






4549 

0FC8 

• 

• 

• 






4550 

OFCR 

• 

• 

• 

* * * 

* * 

* * * * 

************** 

* 

4551 

0FC8 

• 

• 

• 






4552 

0FC8 

• 

• 

• 

XMS2DS - 

TRANSFER MESSAGE TO NORMAL DISPLAY 


4553 

0FC8 

• 

• 

• 






4554 

0FC8 

• 

• 

• 


ENTRY 

: H , L 

= POINTER TO MESSAGE 


4555 

0FC8 

• 

• 

• 






4556 

0FC8 

• 

• 

• 


EXIT 

: A-L 

DESTROYED 


4557 

0FC8 






Z - 

TERMINATED BY A NULL BYTE 


4558 

0FC8 

• 

• 

• 



NZ - 

terminated BY AN FOP 


4559 

0EC8 

• 

• 

• 






4560 

0FC8 


• 

. XMDOOO 

EQU 

$ 



4561 

OFCR 

CD 

14 

23 


CALL 

DSPTST 

; DISPLAY ASCII CHARACTER 

AND 

4562 

OFCB 

• 

• 

• 

• 9 



ADVANCE CURSOR 


4563 

OFCS 

• 

• 

. XMD010 

EOU 

$ 



4564 

OFCB 

El 

* 

• 


POP 

H 

? RESTORE H AND L 


4565 

OFCC 

23 

• 

• 


I N X 

H 

; MOVE TO NEXT BYTE 


4566 

OFCD 

• 

• 

• f 



PROCESS THE NEXT BYTE 


4567 

OFCD 

• 

• 

. XMS2DS 

EQU 

$ 



4568 

OFCD 

7 E 

• 

• 


MOV 

A , M 

; SET THE SOURCE BYTE 


4569 

OFCE 

B7 

• 

• 


ORA 

A 

; IS IT A NULL BYTE? 


4570 

OFCF 

C8 

• 

• 


RZ 


; YES - RETURN CZ - TRUE) 


4571 

OFDO 

FE 

CE 

• 


CPI 

EOF 

; IS IT END OF PAGE FLAG? 


4572 

0FD2 

CA 

F.D 

OF 


JZ 

XMD030 

; YES - EXIT 


4573 

0FD5 

E5 


9 


PUSH 

H 

; NO - SAVF H,L 


4574 

0FD6 

FE 

CC 

• 


CPI 

EOL 

; IS XT AN END OF LINE? 


4575 

0FD8 

CA 

E7 

OF 


JZ 

XMD020 

; YES - START A NEK LINE 


4576 

OFDB 

B7 

• 

• 


OHA 

A 

; IS CHARACTER ASCII? 


4577 

OFDC 

F2 

C 8 

OF 


JP 

XMDOOO 

; YES - DISPLAY IT 


4578 

OFDF 

06 

00 

• 


MV I 

B,0 

; NO - FORCE ENHANCEMENT CODE 

4579 

0FE1 

CD 

E2 

21 


CALL 

DISPC2 

; TO BE STORED AS IS 


4580 

0FE4 

C 3 

CB 

OF 


J{ y iP 

XMD010 

; GO TO NEXT BYTE 


4581 

0FE7 

• 

• 

• 

* 

9 





4582 

0FE7 

• 

• 

• 

; EUL 

CODE 

- TERMINATE THE LINE 


4583 

0FE7 

• 

• 

• 

« 

9 





458 4 

0FE7 


• 

• 

XMD0 20 

EOU 

$ 



4585 

0FE7 

CD 

96 

20 


CALL 

CRLF 

; PERFORM RETURN AND LINE 

F EE 

4586 

OFEA 

C 3 

CB 

OF 


JMP 

XMD010 

; DO NEXT BYTE 


4587 

OFED 

• 

• 

• 

m 

9 





4588 

OF ED 

• 

• 

• 

; EOF 

CODE 

- terminate line and EXIT 


4589 

OFED 

9 

• 

• 

• 

9 





4590 

OFED 


• 

• 

XMD030 

EUU 

$ 



4591 

OFED 

CD 

96 

20 


CALL 

CRLF 

; PUT CURSOR IN NEXT LINE 


4592 

OFF 9 

B4 

• 

• 


ORA 

H 

; SET Z FALSE 


4593 

0FF1 

C9 

• 

• 


RET 


; RETURN TF.MINATED BY EOP 
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H 

II 

n 

il 

it 

li 


::s: 


it 

H 

II 

11 

II 

II 

II 

II 

It 

II 

II 

II 

li 

it 

it 

il 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

n 

ii 

li 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

it 

li 

ii 

li 

ii 

ii 

n 

it 

ii 

il 

ti 

ii 

ii 

ii 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 133 

4595 

OFF 2 

• 

• 

• 

********************************************* 

4596 

OFF 2 

• 

• 

• 

; CAKRET - 

PERFORM DISPLAY FUNCTIONS RETURN * 

4597 

OFF? 

• 

• 

• 

********************************************* 

4598 

OFF 2 

• 

• 

♦ 

CARRET EQU 

$ 

4599 

OFF? 

CD 

8C 

19 

CALL 

CHKSFK ;SOFT KEY DEFINE MODE? 

4600 

0FF5 

CA 

OB 

10 

JZ 

CARO 10 ?N0 - DO NORMAL PROCESSING 

4601 

OFF 8 

• 

• 

« 

*************************** 

4602 

OFF 8 

• 

« 

• 

? ROM 

BREAK 2 * 

4603 

0FF8 

• 

• 

• 

*************************** 

4604 

OFF 8 

C 3 

02 

10 

JMP 

ZBRK2C ? GO TO NEXT ROM BLOCK 

4605 

0FF8 

• 

• 

• 

ORG 

ZBRK1 +4000Q 

46 06 

1000 

• 

• 

• 

ZBRK2 EQU 

$ 

4607 

1000 

50 

• 

• 

DB 

VERSN ? ROM PRESENT FLAGS 

4608 

loot 

10 

• 

• 

DB 

ZBKK2/256 

4609 

1002 

• 

m 

• 

ZBRK2C EQU 

$ 

4610 

1002 

• 

• 

• 

************************************************* 

4611 

1002 

CD 

A6 

12 

CALL 

DCXB2D ? DATA FROM KEYBOARD? 

4o 1 2 

1005 

CA 

1A 

23 

JZ 

DSPCHR ; YES - DISPLAY RETURN CODE 

4613 

1008 

CD 

8 D 

OC 

CALL 

SFKYQF ; NO - RFSTORE NORMAL DISPLAY 

4614 

10OB 

• 

• 

• 

CARO 10 EQU 

S 

4615 

100B 

21 

96 

20 

LX I 

H,CRLF ; SET NORMAL ROUTINE EXIT 

4616 

100E 

C 3 

ID 

23 

JMP 

DSPCHO ; DISPLAY THE CHARACTER 
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ITEM 

LUC 

4618 

1011 

4619 

ion 

4620 

1011 

4621 

1011 

4622 

1011 

4623 

ion 

4624 

ion 

4625 

ion 

4626 

ion 

4627 

ion 

4628 

ion 

4629 

ion 

4630 

ion 

4631 

ion 

4632 

ion 

4633 

ion 

4o34 

ion 

4635 

ion 

4636 

ion 

46 37 

ion 

46 38 

ion 

46 39 

ion 

4640 

ion 

4641 

ion 

4642 

1014 

4643 

1017 

4644 

1017 

4645 

1 0 1 A 

4646 

1018 

4o47 

1 0 1 E 

4648 

1021 

4649 

1022 

4650 

10 25 

465 1 

1025 

4652 

1025 

4653 

1025 

4654 

1025 

4655 

1026 

4656 

1027 


Rev AUG-01 -76 

OBJECT CODE SOURCE STATEMENTS 


PAGE 134 


--- * ************************** ****** 

CHKL1M - CHECK PARAMETER BOUNDARY CONDITIONS * 
*********************************************** 


3 A 

DD 

FF 

32 

DC 

FF 

• 

• 

• 

3A 

DF 

FF 

B7 

• 

• 

3 A 

DC 

FF 

CA 

28 

10 

87 

• 

. 

F2 

37 

10 

• 

• 

• 

• 

• 

• 

• 

• 

AF 

• 

• 

• 

• 

• 

• 

12 

• 

• 

C9 

• 

* 


ENTRY: B = CURRENT VALUE 

C = MAXIMUM ALLOWABLE VALUE 
D,E = ADDRESS OF PARAMETER TO BE SET 
TODATA = PARAMETER VALUE (2 BYTES) 
IOPSCN = -1, NEGATIVE ADJUSTMENT 

= 0, ABSOLUTE VALUE 

= *1, POSITIVE ADJUSTMENT 

FXIT • NEW VALUE IN WORD ADDRESSED BT D»E 

A,C,H,L DESTROYED 


THIS ROUTINE SET THE NEW VAliUE BY EITHER 
OR ABSOLUTE ADJUST WITHING THE LIMITS OF 
ZERO AND THE .MAXIMUM ALLOWABLE AS SPECIE IED 
THE C-REG1STER ON ENTRY 


THE LARGEST MAXIMUM VALUE IS 255 


CHKLIO EQU 
LDA 
ST A 

CHKL1M EvU 
LDA 
ORA 
LDA 
JZ 
ADD 
JP 


IOCSGN 

; SET PARAMETER SIGN TO 

10PSGN 

; INPUT SIGN 

$ 

IODATA+ 1 

; GET MSB OF INPUT VALUE 

A 

; MAX I MUM EXCEEDED? 

IOPSGN 

; (GET PARAMETER SIGN) 

CHK050 

;N0 - CONTINUE EVALUATION 

A 

; NtGATI VE ADJUSTMENT? 

CHK07Q 

;NU - SET TO MAXIMUM VALUE 


DEFAULT TO MINIMUM VALUE CO) 


CHK010 F.yu $ 
XRA A 
STAX D 
RET 


; SET TO ZERO 

; STORE NEW VALUE 
; RETURN 
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ii 

it 

it 

ii 

it 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

it 

it 

ii 

ii 

it 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

ii 

H 

ITEM 

LGC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 135 

ii 

ii 

it 

ii 

ii 

ii 

i* 

ii 

ii 

ii 

ii 

ii 

ti 




ii 

ii 

it 

ii 

ii 

if 

it 

ii 

it 

it 

it 

ti 

ii 

ii 

II 

II 

II 

H 

II 

II 

II 

ii 

ii 

it 

ii 

ii 

ii 

it 

ti 

ii 

ii 

ii 

n 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

ti 

ii 

ti 

ii 

ii 

ii 

it 

ii 

4 o 5 8 

1028 

• 

• 

• 

• 

9 


4659 

1028 

• 

• 

• 

; PARAMETER < 256, 

EVALUATE FOR RELATIVE AMOUNT 

4660 

1028 

* 

• 

• 

• 

9 


4661 

1028 

• 

• 

• 

CHK050 EQU $ 


466 2 

1028 

21 

DE 

FF 

LXI ii , IDDATA 

; SET H , L Tu GET lNpU) VALUE 

4663 

1 02B 

87 

• 

• 

ADD A 

; RELATIVE POSITIONING? 

4664 

1 02C 

78 

• 

• 

MU V A , B 

;(LOAD CURRENT VALUE) 

4665 

1 0 2 D 

FA 

41 

10 

JM CHK160 

; MINUS - SUBTRACT INPUT 

4666 

1030 

C2 

3 A 

10 

JNZ CHK150 

? PLUS - ADD INPUT 

4667 

1033 

7E 

• 

• 

MOV A , M 

; NONE - ABSOLUTE ASSIGNMENT 

4 668 

1034 

• 

• 

• 

• 

9 


4669 

1034 

• 

• 

• 

! CHECK UPPER LIMIT 

+ 1 

4t>70 

1034 

• 

• 

• 

♦ 

9 


4671 

1034 

• 

• 

• 

CHK060 EQU i> 


4672 

1034 

12 

• 

• 

STAX D 

; STORE ASSIGNED VALUE 

4673 

1035 

B9 

• 

• 

CMP C 

? MAXIMUM EXCEEDED? 

467 4 

1036 

D8 

• 

• 

RC 

7 NO - RETURN 

4675 

1037 

• 

• 

• 

CHK070 EQU S 

; yes - use maximum value; 

4676 

1037 

79 

• 

• 

MOV A , C 


4o77 

1038 

• 

• 

• 

;*******■***♦ * ************ 

4678 

1038 

• 

• 

• 

? STORE PARAMETER VALUE * 

4679 

1038 

• 

• 

• 

************************* 

4680 

1038 

• 

• 

♦ 

CHK100 EOU $ 


4681 

1038 

12 

• 

• 

SI AX i) 

? STORE PARAMETER VALUE 

4682 

1039 

C9 

• 

• 

RET 

? RETURN 

46 8 3 

103 A 

• 

• 

• 

• 

9 


4684 

103A 

• 

• 

• 

; POSITIVE ADJUSTMENT - ADD INPUT 

46 85 

103A 

• 

• 

• 

• 

9 


4686 

1 03 A 

• 

• 

• 

CHK150 EQU $ 


4687 

103 A 

86 

• 

• 

ADD M 

; OVERFLOW? 

4686 

103B 

D2 

34 

1 0 

JNC CHK060 

;N0 - USE SPECIFIED VALUE 

4689 

1 0 3 E 

C 3 

37 

10 

JMP CHK070 

;YES - USE MAXIMUM VALUE 

4690 

1041 

• 

. 

• 

9 


4691 

1041 

• 

• 

• 

; NEGATIVE ADJUSTMENT - SUBTRACT INPUT 

4692 

1041 

• 

• 

• 

• 

9 


4693 

1041 

• 

• 

• 

CHK160 EQU $ 


4694 

1041 

96 

• 

• 

SOB M 

? UNDERFLOW? 

4695 

1042 

DA 

25 

10 

JC CHK010 

;ye S - USE ZERO 

4696 

1045 

12 

. 

• 

STAX D 

} NO - USE COMPUTED VALUE 

4697 

1046 

C9 

• 

• 

RET 

; REI URN 
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ITEM 

LOC 

4699 

1047 

4700 

1047 

4701 

1047 

4702 

1047 

4703 

1047 

4704 

1 04 A 

4705 

104C 

4706 

1 04D 

4707 

104D 

4708 

104D 

4709 

1 04D 

4710 

1 04D 

4711 

1050 

4712 

1052 

4713 

1053 

4714 

1053 

4715 

1053 

4716 

1053 

4717 

1053 

4718 

1053 

4719 

1053 

4720 

1056 

4721 

1058 

4722 

1059 

47 23 

1059 

4724 

1 05C 

4725 

1 05E 

4726 

1 05F 

4727 

1 05E 

4728 

1 05F 

4729 

1 05F 

47 30 

1 05F 

47 31 

1 05F 

4732 

1 05F 

4733 

1 05F 

4734 

1 05F 

4735 

1062 

4736 

1064 


OBJECT CODE 


3A 

Eb 

C9 


3 A 
E6 
C9 


F 4 
01 


FF 


FB 

08 


FF 


SOURCE STATEMENTS PAGE 136 

~******** *******;M** *********** ********* ******** 
CKDSPF - CHECK FOR DISPLAY FUNCTIONS ENABLED * 
************* ************ ********************** 
CKDSPF EQU $ 

LDA MDFLG1 ? GET SOFT MODE FLAGS 

ANI DSPFNC ; MASK FOR DISPLAY FUNCTIONS 

RET ;t-LAG AND RETURN 

******* * + * ************** ****** ********** 

; CKEDIT - CHECK FOR EDIT MODE ENABLED * 
.******♦*********************** ********* 


« 

• 

• 

CKEDIT EQU 

$ 

3 A 

F 4 

FF 

LDA 

MDFLG1 

Eb 

10 

• 

ANI 

EDIT 

C9 

• 

• 

PET 



• 

• 

.****************** 


m 

• 

; GTMODE - 

DETERMIN 

# 

• 

• 

; Z = TRUE 

IF CHARA 

• 

• 

• 

; Z = FALSE 

IF PAGE 


• 

• 

.****************** 

• 

• 

• 

GTMODl EQU 

S 

3 A 

64 

FF 

LDA 

10FLG2 

Eb 

20 

m 

ANI 

XDS2BF 

CO 

• 

• 

RNZ 


• 


• 

GTMODE EQU 

$ 

3A 

F 3 

FF 

LDA 

MDFLG2 

E6 

02 

• 

ANI 

blkmde 

C8 

• 

• 

RZ 



; GET SOFT 
; M ASK FOR 
.'RETURN 


MODE 

EDIT 


FLAGS 
FLAG AND 


] MODE OF 
:ter MODE 
MODE 


TERMINAL 


TRANSFER? 

MODE 


; GET I/O FLAGS 
; DISPLAY TO BUFFER 
; YES - RETURN PAGE 
; NO - CHECK REAL PAGE MODE 
; GET TERMINAL MODE FLAGS 2 
; BLOCK MODE ENABLED? 

NO - RETURN (is TRUE) 


CKLNMD - CHECK LINE MODE 

EX 1 1 ! Z = TRUE , DINE MODE 
= FALSE, PAGE MODE 
A , L DESTROYED 


CKLNMD EQU $ 

LDA KBJMPR 
ANI PAGSTR 
RET 


?GET THE STRAP SETTINGS 
; SET Z-FLAG 
; RETURN 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 137 

'4738 

1065 

• 

• 

• 

;******************************************* 

4739 

1065 

• 

• 

• 

? CKPFGT - CHECK PROTECT STATUS UF CURRENT * 

4740 

1065 

* 

• 

• 

; CURSOR LOCATION * 

4 741 

1065 

• 

• 

• 

J************ **************** *************** 

474 2 

1065 

• 

• 

• 

CKPROT EgU $ 

4743 

1065 

3A 

C2 

FF 

LDA PROFLD ? GET PROTECT FLAG 

4744 

1068 

3C 

• 

• 

1 NR A ; SET Z-FLAG (-1 => PROTECTED 

4 7 45 

1069 

C9 

• 

• 

RtT ; RETURN 

47 46 

1 06A 

• 

• 

• 

;***************************************** 

4747 

1 06A 

• 

• 

• 

; CKRMTE - CHECK FOP REMOTE MODE ENABLED * 

4748 

106 A 

• 

• 

• 

;**♦♦****♦ ************ ******************** 

4749 

106 A 

• 

• 

• 

CKRMTE EQtl $ 

4750 

1 06 A 

3 A 

E8 

FF 

LDA CMFLGS ? GET COMMON FLAGS 

4751 

1061) 

E6 

10 

• 

ANI REMSKT ;VASK FOR REMOTE FLAG 

4752 

1 06F 

C9 

• 

• 

PET ; PET (NZ => VES? Z => NO) 
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:::: 

M 

11 

H 

11 

II 

II 

II 

II 

II 

U 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

Ii 

II 

II 

li 

II 

II 

II 

II 

11 

II 

II 

II 

II 

u 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ITEM 

LOC 

OBJECT 

CODE i 

iOURCE STATEMENTS FACE 138 

4754 

1070 

• 

• 

• 

********* ******* ****** *************** ******** 

4755 

1070 

• 

• 

• 

CLBLXF - CLEAR BLOCK TRANSFER PENDING FLAG * 

4756 

1070 

• 

• 

• 

********************************************* 

47 5 7 

1070 

• 

• 

• 


475b 

1070 

• 

• 

• 

ENTRY! B = 3 7 7B- ( FLAG TO CLEAR FROM MFLGS ) 

4759 

1070 

• 

• 

• 

C = 377B- (FLAG TO CLEAR FROM MFLGS 2 ) 

4 760 

1070 

• 

• 

• 


4751 

1070 

• 

• 

• 

EXIT : H = BASEH 

4762 

1070 

• 

• 

• 

A , R , L DESTROYED 

4763 

1070 

• 

• 

• 


4764 

1070 

• 

• 


CLEARS THE SPECIFIED TRANSFER PENDING FLAG 

4 765 

1070 

• 

• 

• 

FROM "MFLGS" • IF NO OTHFR TRANSFER IS PENDING, 

4766 

1070 

• 

• 

• 

THEN THE KEYBOARD IS UNLOCKED. OTHERWISE, 

4767 

1070 

• 

• 

• 

THE NEXT TRANSFER PENDING IS SET UP. 

476b 

1070 

• 

• 

• 


4769 

1070 

• 

• 

. C 

:lblxf euu $ 

4770 

1070 

2A 

6F 

FF 

LhLD MFLGS2 ? GET TRANSFER PENDING FLAGS 

4771 

1073 

78 

• 

• 

MOV A , B 

4772 

1074 

A 4 

• 

• 

ANA ii ? CLEAR FLAG FROM "MFLGS" 

4773 

1075 

67 

• 

• 

MOV H , A 

4774 

1076 

79 

• 

• 

MOV A , C 

4775 

1077 

A 5 

• 

• 

ANA L ; CLEAR FLAG FROM "MFLGS2 M 

4776 

1078 

6F 

• 

• 

MOV L , A 

4777 

1079 

22 

6F 

FF 

ShLD MFLGS2 ; STORE NEW FLAG VALUES 

4778 

1 07C 

Eb 

03 

• 

ANI SRINRY +SDVREC 

4779 

1 0 7E 

B4 

• 

• 

ORA h ; AN Y '"ORE TRANSFER PENDING? 

4780 

107F 

01 

00 

00 

LX I B , 0 ;(SET FOR NULL FLAGS SET) 

4781 

1082 

C2 

CA 

16 

JNZ SBLXFO ,*YES - SET UP NEXT BLOCK XFR 

478 2 

1085 

CD 

F4 

15 

CALL KBEN ?NO - RE-ENABLE KEYBOARD 

4783 

1088 

• 

• 

• 


4784 

1088 

• 

• 

• 

CLRXON - CLEAR BLOCK TRANSFER TRIGGER 

4785 

1088 

• 

• 

• 


4786 

1088 

• 

• 

. ( 

JLRXGN F.QU $ 

4787 

1088 

3E 

00 

• 

M V I A ,CLRTRG ; CLEAR BLOCK TRANSFER TRIGGE 

4788 

1 08 A 

CD 

42 

CM 

CALL DCMCTL ? PERFORM DATACOM CONTROL 

4789 

1 08D 

37 

• 

• 

STC ; SET C-FLAG TRUE AND 

4790 

108E 

C9 

• 

• 

RET ; RETURN 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 139 

^792 

1 0 8 F 

• 

• 

• 

********** ********** ********* ****************** 

4793 

1 08F 

• 

• 

• 

; CLEARS - CLEAR DISPLAY FROM CURSOR POSITION * 

4794 

108F 

• 

• 

• 

*********************************************** 

4795 

1 08F 

• 

• 

• 

CLEARS EQU 

$ 

/CLEAR UNPROTECTED FIELDS 

479b 

108F 

3E 

FE 

• 

MV I 

A , 37 7Q-SDAC0M /ONLY BY CLEARING DATA 

4797 

1091 

CD 

01 

lb 

CALL 

CLRDFL 

; COMM INPUT FLAG 

4798 

1094 

CD 

7b 

19 

CALL 

chkfms 

; FORMAT/SOFT KEY DEFINE MODE 

4799 

1097 

C2 

C9 

10 

JNZ 

CLS100 

; YES - CLEAR FIELDS ONLY 

4800 

1 09 A 

CD 

3C 

1C 

CALL 

CLEARL 

? CLEAR LINE FROM CURSOR 

4801 

1090 

F8 

• 

• 

RM 


? RETURN IF LINE NOT FOUND 

4802 

1 09F 

2 A 

C9 

FF 

LHLD 

LSTLIN 

; GET CURRENT LINE ADDRESS 

4803 

1 OA 1 

7E 

• 

• 

MOV 

A,M 

; GET THE I, SB VALUE 

4804 

1 0A2 

B7 

• 

• 

ORA 

A 

?NtXT LINE EXIST (LSB # 0)? 

4805 

1 0 A 3 

C 8 

• 

• 

RZ 


; NQ - RETURN 

4806 

1 0A4 

E5 

• 

• 

PUSH 

H 

; YES - ADD SUCCEEDING LINES 

4807 

1 0A5 

3b 

00 

• 

MVI 

M,0 

/ TO FREE BLOCKS LIST 

4808 

1 0A7 

23 

• 

• 

I NX 

H 

; SET NEXT LINE POINTER TO 

4809 

10A8 

5b 

• 

• 

MU V 

D , M 

? INDICATE NO NEXT LINE 

4810 

10A9 

3b 

CE 

• 

M v I 

M , EOP 


4811 

1 0 AB 

5F 

• 

• 

MOV 

E , A 

/SET D,E TO TOP NEXT LINE 

4812 

1 0 AC 

2 A 

AC 

FF 

LHLD 

FPBI.KS 

; GET CURRENT FREE BLOCKS HEA 

4813 

1 OAF 

EB 

• 

• 

XCHG 


f SET PREVIOUS LINE POINTER 

4814 

10B0 

2 3 

• 

• 

I NX 

il 

/ J N FIRST SUCCEEDING LINE 

4815 

1 OB 1 

23 

• 

• 

I N X 

H 

; TO CURRENT FREE BLOCKS 

4816 

1002 

23 

• 

• 

IlMX 

H 

; HEAD 

4817 

1 0B3 

73 

• 

• 

MOV 

M,E 


4818 

1064 

23 

• 

• 

I NX 

H 


,4819 

1005 

7 2 

• 

• 

MOV 

M , D 


4820 

1006 

2A 

A 1 

FF 

LHLD 

LLINE 

/ SET FREE BLOCKS HEAD TO 

4821 

1 0B9 

22 

AC 

FF 

SHI.D 

FRBLKS 

; CURRENT LAST LINE 

4822 

1 OBC 

El 

• 

• 

POP 

H 

; SET LAST LINE ADDRESS TU 

48 2 3 

1 OBD 

22 

A 1 

FF 

SHLD 

LLINE 

/CURRENT LINE 

4824 

10C0 

• 

• 

• 

******************** 


4825 

10C0 

• 

• 

• 

? MEMORY RELEASED * 


4826 

10C0 

• 

• 

• 

; CLEAR LOCK FLAGS * 


4827 

1 oco 

• 

• 

• 

******************** 


4828 

10C0 

• 

• 

• 

MLKOF EOU 

$ 


4829 

10C0 

3A 

F 4 

FF 

LDA 

MDFLG1 


4830 

1 OC 3 

E6 

04 

• 

ANI 

MEMLOK 

/MEMORY LOCK ENABLED? 

4631 

1 0C5 

C 8 

• 

• 

RZ 


/NO - RETURN 

4832 

10C6 

C3 

D9 

OA 

JMP 

MLOOIO 

? YES - SET LED ON WO/BLINKIN 
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ii 

ii 
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48 34 

IOC 9 

• 

• 

• 

;********************♦****************** 

4835 

L0C9 

• 

• 

• 

; FORMAT MuDE clear 

SCREEN FROM CURSOR * 

4836 

10C9 

• 

• 

• 

*************** ******* ****************** 

483 7 

10C9 

• 

• 

• 

CLS100 EQU 

$ 


4838 

1 0C9 

F 4 

CD 

06 

CP 

RCADR4 

; LOCATE CHAR IF FORMAT MODE 

4839 

10CC 

F8 

• 

• 

RM 


; RETURN IF NOT FOUND OR IN 

4840 

l OCD 

• 

• 

• 

• 

0 


SOFT KEY DEFINE MODE 

4641 

10CD 

C 2 

04 

10 

JNZ 

CLS1 10 

; PAST EOL - START AT NEXT FL 

4842 

1 ODO 

04 

• 

• 

INR 

B 

JCURSOR IN UNPROTECTED FIELD 

4843 

1001 

C2 

DO 

10 

JnZ 

CLS130 

; YES - CLEAR REST OF FIELD 

4844 

1004 

• 

• 

• 

; ********* ****** ******* ********** 

4845 

1004 

• 

• 

• 

? CURSOR IN 

PROTECTED FIELD * 

484b 

1004 

• 

• 

• 

; TAB TO NEXT UNPROTECTED FIELD ♦ 

4847 

1004 

• 

• 

• 

.***********************♦******** 

4848 

1004 

• 

• 

• 

CLS110 EQU 

$ 


4849 

1004 

CD 

C4 

10 

CALL 

FLDSR 

; SEARCH TO NEXT FIELD 

4850 

1 0D7 

C6 

• 

• 

RZ 


; NO MORE FIELDS - RETURN 

4851 

1008 

1A 

• 

• 

LDAX 

0 

; GET END PROTECT CHARACTER 

4852 

1 ODO 

• 

• 

• 

CLS120 EQU 

$ 


4853 

1009 

32 

C5 

FF 

ST A 

LSTFMT 

; SET LAST FORMAT CODE 

4854 

100C 

IB 

• 

• 

OCX 

0 

;SKIP OVER " ENOPR ” CHAR 

4855 

100D 

• 

• 

• 

.****************♦********* 

4856 

1000 

• 

• 

• 

; CLEAR UNPROTECTED 

FIELD * 

4857 

100D 

• 

• 

• 

****** *********** ********** 

4858 

1000 

• 

• 

• 

CLS130 EQU 

$ 


4859 

1000 

CO 

9C 

1C 

CALL 

CLEROl 

; CLEAR FIELD 

4860 

10E0 

FE 

CE 

• 

CPI 

EOP 

; TERMINATION AT END OF PAGE? 

4861 

1 0E2 

C 8 

• 

• 

RZ 


; YES - RETURN 

4862 

1 OE 3 

• 

• 

• 

;*****************************♦****** 

4863 

1 0E3 

* 

• 

• 

; SEARCH FOR NEXT UNPROTECTED HELD * 

4864 

1 0E3 

• 

• 

• 

;********** 

********* * * ♦ * * ************ 

4865 

1 0E3 

IB 

• 

• 

OCX 

0 

; ADJUST ADDRESS TO NEXT CHAR 

4866 

1 0E4 

• 

• 

• 

CLS200 EQU 

$ 


4867 

1 0E4 

13 

• 

• 

I N X 

0 

; ADJUST ADDRESS TO PREV CHAR 

4868 

1 0E5 

• 

• 

• 

CLS210 EQU 

$ 


4869 

1 0E5 

CD 

87 

OB 

CALL 

NXTCHR 

; GET NEXT CH ARACTFR 

4870 

1 0E8 

C 2 

E4 

10 

JNZ 

CLS200 

; SK I P OVER EOL LINK 

4871 

1 OEB 

FE 

Cl 

• 

CPI 

ENOPR 

; ME * FIELD? 

4872 

10 ED 

CA 

D9 

10 

JZ 

CLS120 

; YES - CLEAR IT 

4873 

10F0 

FE 

CE 

• 

CPI 

EUP 

; END OF DISPLAY? 

4074 

1 0F2 

C8 

• 

• 

RZ 


;YES - RETURN 

4875 

1 OF 3 

FE 

C 4 

• 

CPI 

STPFLG 

; NON-DISPLAYING TERMINATOR? 

4876 

10F5 

CC 

B8 

1 A 

CZ 

CHR0L2 

; YES - DELETE IT 

4877 

10F8 

C3 

E5 

10 

JmP 

CLS210 

; CONTINUE SEARCH 
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ITEM 
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OBJECT 
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4879 

1 0F8 

© 

• 

• 

************ *************** 

4880 

1 OFB 

e 

© 

© 

; CLRALL - CLEAR ALL TABS * 

4881 

1 OFB 

• 

« 

• 

;************************** 

4882 

10FB 

• 

• 

© 

© 

9 

4883 

1 OFB 

© 

• 

• 

; ENTRY: H = BASEH 

4884 

1 OFB 

© 

• 

• 

• 

9 

4885 

1 OFB 

• 

© 

• 

C 

:lrall equ $ 

4886 

1 OFB 

2E 

78 

• 


MVI L , HTBTBL-BASE ?SET ADDRESS AND NUMBER 

4887 

1 OFD 

IE 

OA 

• 


MV I £ , HTBLEN ;0F BYTES TO BE CLEARED 

4888 

1 OFF 

© 

© 

© 


*************************************** 

4889 

1 OFF 

© 

• 

• 


CLRAL1 - SET A REGION UF PAM TO ZERO * 

4890 

1 OFF 

• 

© 

• 


*************************************** 

4891 

1 OFF 

• 

© 

© 



4892 

1 OFF 

« 

• 

• 


ENTRY: E = NUMBER OF BYTES IN REGION 

4 b 9 3 

1 OFF 

© 

• 

• 


H,L = LOW ADDRESS OF REGION 

4894 

1 OFF 

© 

• 

© 



4895 

1 OFF 

© 

• 

• 


EXIT : A,E = 0 

4896 

1 0 F F 

o 

• 

• 


H,L = H , L (ENTRY ) + E 

4897 

1 OFF 

• 

• 

• 



4898 

1 OFF 

© 

• 

• 

( 

;lrali EQU $ 

4899 

1 OFT 

AF 

• 

• 


XRA A ; SET A TO ZERO 

4900 

1100 

0 

• 

© 

( 

:laoio equ $ 

4901 

1100 

77 

• 

• 


MOV M,A ? SET BYTE TO ZERO 

4902 

1101 

23 

• 

• 


I NX H ? ADVANCE TO NEXT BYTE 

4903 

1 1 u2 

10 

© 

• 


DCR E ; ALL BYTES DONE? 

4904 

1103 

C2 

00 

11 


JNZ CLA010 ; NO - DO NEXT BYTE 

4905 

1106 

C9 

• 

• 


RET JYES - RETURN 
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4907 

1107 

• 

• 

• 

.********♦*******************♦*********** 

4908 

1107 

• 

• 

• 

; CURPHD - HOME DOWN 

TO FIRST COLUMN OF * 

4909 

1107 

• 

• 

• 

? FIRST LINE BEYOND END OF MEMORY * 

4910 

1107 

• 

• 

• 

.********^^**************************** 

4911 

1107 

• 

• 

• 

CURPHD EQU $ 


4912 

1107 

CD 

8C 

19 

CALL CHKSFK 

; define SOFT KEY MODE? 

4913 

1 1 OA 

CO 

• 

• 

PNZ 

; YES - IGNORE HOME DOWN 

4914 

hob 

CD 

C5 

21 

CALL CURPRT 

; NO - RETURN TO LEFT MARGIN 

4915 

HOE 

• 

• 

• 


491b 

llOE 

• 

• 

• 

? MOVE CURSOR TO NEXT 

ROW * 

4917 

HOE 

• 

• 

• 

• a************************** 

4918 

llOE 

• 

• 

• 

HDC100 EQU $ 


4919 

llOE 

3A 

Cl 

FE 

LDA LSTROW 


4920 

HH 

FE 

17 

• 

CPI MAXROW 

; IS LAST ROW DONE AT BOTTOM? 

4921 

1113 

CC 

27 

OC 

CZ ROLLUP 

; YES - ROLL UP THE DISPLAY 

4922 

1116 

2 A 

C9 

FF 

LHLD LSTL1N 

; GET CURRENT ROW ADDRESS 

4923 

1119 

7E 

• 

• 

MOV A,M 

; GET LSB OF NEXT LINE P01NTE 

4924 

11 1A 

B7 

• 

• 

OKA A 

; IS THERE A NEXT ROW? 

4925 

H1B 

CA 

2A 

11 

JZ HDC200 

; NO - TERMINATE HOME DOWN 

4926 

1 1 IE 

5F 

• 

• 

MOV E r A 

;YES - SET E TO NEXT LINE 

4927 

111F 

1C 

• 

• 

I NR E 

; POINTER OF NEXT LINE 

4928 

1120 

CD 

54 

OC 

CALL R0LUP2 

; SET "LSTL1N" AND "CUP ADR” 

4929 

1123 

21 

C 7 

FF 

LXI H, LSTROW 

; TO NEXT LINE 

4930 

1126 

34 

• 

• 

INR M 

? INCREMENT LAST ROW DONE 

4931 

1127 

C3 

OE 

11 

JMP HDC100 


4932 

11 2A 

• 

• 

• 

;***** ************* 


4933 

H 2 A 

• 

• 

• 

? LAST LINE FOUND * 


4934 

1 1 2 A 

• 

• 

• 

? SET ROW 


4935 

112A 

• 

• 

• 

.****************** 


4936 

H 2 A 

• 

• 

• 

HDC200 EQU $ 


4937 

112A 

CD 

8b 

OB 

CALL NXICHO 

; GET 1ST CHAR OF LAS I ROw 

4938 

1 1 2D 

FE 

CC 

# 

CPI EOL 

7 LAST ROw EMPTtf? 

4939 

11 2F 

3A 

Cl 

FF 

LDA LSTROW 

; (GET LAST ROW POSITION) 

4940 

1132 

CA 

36 

11 

JZ HDC210 

; YES - SET CURRENT ROW = LAS 

4941 

1135 

3C 

• 

• 

INR A 

? NO - SET TO NEXT ROW 

4942 

1136 

• 

• 

• 

HDC210 EQU 5 


4943 

1136 

32 

CO 

FF 

STA CURROW 

7 SET CURRENT ROW NUMBER 

4944 

1139 

C9 

• 

• 

RET 

? RETURN 
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4946 

1 1 3 A 

• 

• 

• 

4947 

1 1 3 A 

• 

• 

• 

4948 

11 3A 

• 

• 

• 

4949 

1 1 3 A 

• 

• 

• 

4950 

1 1 3A 

• 

« 

• 

4951 

1 1 3 A 

3 A 

Cl 

FF 

4952 

1130 

32 

OB 

FE 

4953 

1140 

3E 

7E 

• 

4y 64 

1142 

CO 

AA 

04 

4955 

1145 

2E 

09 

• 

495o 

1147 

3b 

FF 

• 

4957 

1149 

21 

60 

2 7 

4958 

1 1 4C 

C 3 

71 

04 


SOURCE STATEMENTS 


PAGE 143 


;! ^ ***♦♦**♦ ********************* 

? CORPUS - CURSOR POSITIONING * 

; INITIAL ENTRY POINT * 

.******************************* 

CORPUS Ego $ 

IjDA CORCOL ; SET NEW COLUMN LEI AUI.T TO 
STA NEwCUL ; CURRENT COLUMN POSITION 

MV I A , 37/Q-NwPwST 

CALL CLRMR2 ? CLEAR NEW RUW SET FLAG 
M V I L , SCRNRW-BASE ? PRESET RELATIVE ROw 
M V 1 M,-1 ; PARAMETER TO -1 

LXI H f CRPTAB ; SET RANGE TABLE FUR CURSOR 
JMP fcSCAPA ; POSITIONING 
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sassss 

3SSSSSSS 

xsxx 

sxs 

SXSXS8CS3CXSX SZSX= 

SXXX3XS8XX 

xsssasxxsssssxxxxxxxxxssssrxx 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 144 

ssasas 

xsssssss 

SSSS 

SSSSISISSISSSStS 

xxxss 

3X3SXXSS3S 

88SSSS338S*aSSS3SSXSSSSZS8S3S 

4960 

114F 

• 

• 

• 

• ********************************* 

4961 

114F 

• 

• 

• 

; new 

COLUMN POSITION 

IS DEFINED * 

4962 

114F 

• 

• 

• 

********************************** 

4963 

11 4F 

• 

• 

• * 

CURP01 

Evil 

$ 


4964 

114F 

0E 

4F 

• 


MV I 

C,MAXCOL 

;SET MAXIMUM VALUE AND 

4965 

1151 

1 1 

DB 

FF 


LXl 

D,NEWCUL 

; PARAMETER TO Bt SET 

4966 

1154 

2E 

Cl 

• 


MV I 

L,CURCOL- 

BASE 1 m CHKLIM m 

4967 

115,6 

46 


• / 


MOV 

B,M 


4968 

11S7 

C3 

7D 

11 f 


JMP 

CRP025 ; 

EVALUATE THE PARAMETER 

4969 

115A 

• 

• 

• 

;*********************** 

4970 

1 1 5 A 

• 

• 

• 

I SCREEN ROW SPECIFIED * 

4971 

1 1 5 A 

• 

• 

• 

************************ 

4972 

1 1 5 A 

• 

• 

• 

CURPO'2 

EQU 

$ 


4973 

1 1 5 A 

0£ 

17 

• 


MVT 

C ,MAXRUW 

;SET MAXIMUM VALUE AND 

4974 

1 1 5C 

11 

D9 

FF 


LX I 

D , SCRNRW 

? PARAMETER TO BE SET 

4975 

115F 

2E 

CO 

• 


MVI 

L,CURR0W- 

BASE ;"CHKLIM M 

4976 

1161 

46 

• 

• 


MOV 

B,M 


497 7 

1162 

C 3 

7D 

11 


JMP 

CRP025 ; 

FVALUATE THE PARAMETER 

4978 

1165 

• 

• 

• 

;****************************** 

4979 

1165 

• 

• 

• 

; new 

POW POSITION IS 

DEFINED * 

4980 

1165 

• * 

• 

• 

;****************************** 

4981 

1165 

• 

• 

• 

CUHP03 

EQU 

$ 


4982 

1165 

3 A 

6b 

FF 


LLA 

MLKRQW 

f GET MEMUR i LOCK ROW 

4983 

1168 

B7 

• 

• 


ORA 

A 

; MEMORY LOCK ENABLED? 

4984 

1169 

C2 

80 

11 


JNZ 

CRP050 

;YES - IGNORE PARAMETFR 

4985 

116C 

3E 

80 

• 


MVI 

A,NWRWST 

;N0 - SET NEW ROW SET 

4986 

116F 

CD 

39 

17 


CALL 

SFTMF2 

; FLAG 

4987 

1171 

0E 

FF 

• 


MVI 

C , 255 

i SET MAXIMUM VALUE AND 

4988 

1173 

11 

DA 

FF 


LX I 

D , NEWRUW 

; PARAMETER TO BE SET 

4989 

1176 

3A 

CO 

FF 


LDA 

CURROW 

$ COMPUTE CURRENT ABSOLUTE 

4990 

1179 

2E 

A3 

• 


MVI 

L,TLINO 

;PUW ADDRESS 

4991 

1178 

86 

• 

• 


ADD 

M 


4992 

1 17C 

47 

• 

• 


MOV 

B, A 

J PUT IT INTO B-REGISTER 

4993 

1170 

• 

• 

• 

CPP025 

EQU 

$ 


4994 

1170 

CD 

11 

10 


CALL 

CHKL10 

; EVALUATE INPUT PARAMETER 

4995 

1180 

• 

• 

• 

CRP050 

EQU 

$ 


4996 

1180 

3A 

88 

FF 


LDA 

CHAR 

; RECALL THE INPUT CHARACTER 

4997 

1183 

E6 

20 

• 


ANI 

400 

; IS IT AN UPPER CASE CHAR? 

4998 

1185 

C2 

87 

04 


JNZ 

ESC APB 

; NO - CONTINUE ESC SEQUENCE 

4999 

1188 

• 

,• 

• 

• 

0 



YES - POSITION CURSOR 
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^5001 

1188 

• 

• 

• 

. ****************)M*** ******** 

5002 

1188 

• 

• 

• 

; EXECUTE COMPLETED SEQUENCE * 

5003 

1188 

• 


• 

.***************************** 

5004 

1188 

3 A 

D9 

FF 

LDA SCRNRW ; GET SCREEN ROW PARAMETER 

5005 

118B 

B7 

# 

• 

ORA A ? WAS SCREEN ROW ADDRESS SET? 

5006 

118C 

FA 

92 

1 1 

JM CRP200 ;NU - SET ABSOLUTE ROW ADDR 

5007 

1 1 8F 

32 

CO 

J FF 

STA CURRUW ; YES - SET NEW SCREEN ROw 

5008 

1192 

• 

• / 

# 

**************************** 

5009 

1192 

• 

« / 

• 

; SET ABSOLUTE ROW ADDRESS * 

5010 

1192 

• 

m 

• 

;*************************** 

5011 

1192 

• 

• 

• 

CRP200 FQU $ 

5012 

1192 

FC 

A6 

11 

CM CRP500 ;FIND LOCATION OF NEW ROW 

5013 

1195 

• 

• 

a 

9 

5014 

1195 

• 

m 

• 

; SET COLUMN ADDRESS 

5015 

1195 

• 

• 

• 

• 

9 

5016 

1195 

3 A 

DB 

FF 

LDA NEWCOL ! GET NEW COLUMN ADDRESS 

5017 

1198 

• 

• 

• 

******************** *********** 

5018 

1198 

• 

• 

• 

? LOCATE ADDRESS OF CHARACTER * 

5019 

1198 

• 

• 

• 

.**************♦*************** 

5020 

1198 

• 

• 

• 

CURP04 EQU $ 

5021 

1198 

32 

Cl 

FF 

STA CURCOL ; STORE NEW COLUMN ADDRESS 

5022 

119B 

CD 

08 

07 

CALL RC ADDR ? FIND CHARACTER 

5023 

1 1 9E 

C8 

• 

• 

R2 ^CHARACTER FOUND - RETURN 

5024 

119F 

• 

• 

• 

.*****************♦**************** 

5025 

119F 

• 

• 

• 

; CHARACTER NOT CURRENTLY STORED * 

5026 

1 1 9F 

• 

* 

• 

? BUILD LINE OVER TO NEW POSITION * 

5027 

119F 

« 

• 

• 

.*****#t* ************************** 

5028 

119F 

2E 

89 

• 

MV I L» DCHAR f SET Up BLANK FOR NEW POS. 

5029 

1 1 A 1 

36 

20 

• 

M V I M , RBLNK 

5030 

1 1 A3 

C3 

AS 

22 

JMP DISPLO ; BUILD BLOCKS 
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5032 

11A6 

• 

• 

. ; ********* * ****** ********* *** ******* 

5033 

1 1 A6 

• 

• 

. ; LOCATE NEW ABSOLUTE ROW LOCATION * 

5034 

UA6 

• 

• 

* 

************************************ 

5035 

1 1A6 

• 

• 

. CRP500 EgU $ 


5036 

1 1 A6 

3 A 

6F 

FF 

LDA MFLGS2 

; GET TERMINAL MODE FLAGS 

5037 

11A9 

Ed 

80 

• 

AN I NWRWST 

; NEW ABSOLUTE ROW SET? 

5038 

1 1 AB 

C 8 

• 

• 

RZ 

; NU - RETURN 

5039 

11 AC 

3 A 

DA 

FF 

LDA NEWROW 

; GET NEW ROW VALUE 

5040 

ilAF 

2E 

A3 

• 

M V I L,TLINO 

; SUBTRACT ROW CORRESP. 

5041 

1 1 B 1 

96 

• 

• 

SUR M 

;TG TOP OF PAGE 

5042 

1 1 B2 

2E 

CO 

• 

MV I I» , C URROW 


5043 

11B4 

DA 

R4 

OB 

JC PRVPG1 

; LOCATE PREVIOUS ROW PAGE 

5044 

1 1 87 

FE 

18 

• 

CPI MAXROW+1 


5045 

1189 

77 

• 

• 

MOV M , A 

f SET NEW row 

5046 

1 1 BA 

08 

• 

• 

RC 

? RETURN IF SAME PAGE 

5047 

11BB 

• 

• 

. ;********************* ********* 

5048 

11BB 

• 

• 

. ; ROW IS AFTER BOTTOM OF PAGE * 

5049 

1 1 BB 

# 

• 

. ; ROLL DISPLAY UP 

♦ 

5050 

11BB 

• 

• 

. ;****************************** 

5051 

1 IBB 

36 

17 

• 

M V I M f M AXROW 

; SET ROW 

5052 

11BD 

06 

17 

• 

SUI MAXROW 

,*SET ROLL COUNT 

5053 

1 IBF 


• 

. STR010 EQU $ 


5054 

1 1BF 

CD 

45 

OB 

CALL NXTPGl 

;ROLL DISPLA1 UP 

5055 

1 1C2 

7E 

• 

• 

MOV A , M 

; GET NUMBER OF ROWS TO ROLL 

5056 

UC3 

91 

• 

• 

SUB C 

; SUBTRACT ROWS ROLLED 

5057 

1 1C4 

C8 

• 

• 

RZ 

; RETURN IF ROLL COMPLETE 

5058 

11C5 

7 7 

• 

• 

MOV M, A 

;SAVE NUMBER OF ROW TO ROLL 

5059 

11C6 

AF 

• 

• 

XRA A 

;(SET TO FIND COLUMN 0) 

5060 

1 1C7 

CD 

OB 

07 

CALL RCADRO 

? BUILD NEW ROWS 

5061 

1 1C A 

CO 

• 

* 

RNZ 

; RETURN IF OUT OF MEMORY 

5 062 

11CB 

3 A 

83 

FF 

LUA NMROLL 

; GET # OF ROWS TO ROLL 

5063 

1 ICE 

C3 

BF 

11 

JMP STR010 

; ROLL AGAIN 

5064 

1101 

• 


• 

******************* 

************** 

5065 

1 1 D t 

• 

# 

• 

CURSEN - CURSOR POSITION SENSE * 

5066 

11D1 

• 

• 

• 

********************** *********** 

5067 

1101 

• 

• 

• 



5068 

11D1 

• 


• 

RLCRSN - SCREEN RELATIVE CURSOR SENSE 

5069 

1 101 

• 

• 

• 

1 


5070 

1101 

• 

• 

. RLCRSN EOU $ 


5071 

1 1D1 

3E 

04 

• 

MV I A , RELSNS 

;SET RELATIVE SENSE FLAG 

5072 

11D3 

CD 

39 

17 

CALL SETMF2 


5073 

1106 

C 3 

DE 

11 

JMP C UR 1 00 

? GO SET CURSOR SENSE FLAG 

5074 

1109 

• 

• 

• 



5075 

1109 

• 

• 

• 

CURSEN - ABSOLUTE 

CURSOR SENSE 

5076 

1109 

m 

• 

• 



507 7 

1109 

• 

• 

. CURSEN EQU $ 


5078 

1109 

3E 

FB 

• 

MV I A , 3 7 7 Q-RELSNS 

5079 

1 1 OB 

CD 

AA 

04 

CALL CLRMF2 

?CLEAP RELATIVE SENSE FLAG 

5080 

11DE 

• 

• 

. CUR100 EOU $ 


5081 

11DE 

01 

00 

10 

LXI B f SCRSEN 

;SET UP BLOCK TRANSFER . 

5082 

11E1 

C3 

CA 

16 

JMP SBLXFO 

? FOP CURSOR SENSE PENDING 
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5084 

11E4 

• 


. 

CRSNGO EQU $ 


5085 

11E4 

01 

FF 

EF 

LXI B , -1 -SCRSEW ? CLEAR CURSOR SENSE 

5086 

11E7 

CD 

70 

10 

CALL CLBLXF 

? PENDING FLAG 

508 7 

1 1 E A 

06 

26 

• 

MV1 B , AMPSND 

; SEND <FSC>-<&> 

5088 

11 EC 

CD 

BB 

17 

CALL ESCOUT 


5089 

11EF 

3E 

61 

• 

MV I A , SM ALLA 

; TRANSMIT LOWER CASE A 

5090 

11 Ft 

CD 

Cl 

17 

CALL XPUTDC 


5091 

1 1 F4 

« 

• 

• 

;*********************** 

5092 

11F4 

• 

• 

• 

; OUTPUT CURSOR COLUMN 

* 

5093 

1 1F4 

• 

• 

• 

;********************* 

** 

5094 

1 1 F 4 

21 

Cl 

17 

LXI H, XPUTDC 

; SEND NUMBER TO DATA COMM 

5095 

1 1 F7 

)A 

Cl 

FF 

LDA CURCOL 

; GET CURRENT CURSOR COLUMN 

5096 

11FA 

CD 

23 

08 

CALL BN2DE1 

? CUN VERT AND TRANSMIT VALUE 

5097 

1 1 F 0 

3E 

63 

• 

MV I A , ALCC 

; TRANSMIT LOWER CASE C 

5098 

11FF 

CD 

Cl 

17 

CALL XPUTDC 


5099 

1202 

• 

• 

• 

********************* 


5100 

1202 

• 

• 


? OUTPUT CURSOR ROW * 


5101 

1202 

• 

• 

• 

;************** ****** 


5102 

1202 

3 A 

6F 

FF 

LDA MFLGS2 

; GET TERMINAL MODE FLAGS 

5103 

1205 

E6 

04 

• 

AM RELSlMS 

? SCREEN RELATIVE SENSING? 

5104 

1207 

3 A 

CO 

FF 

LDA CURROW 

; (GET CURSOR ROW NUMBER) 

5105 

120A 

06 

59 

• 

MV I B , ¥ 

; (SET DEFAULT PARAMETER) 

5106 

120C 

C 2 

15 

12 

JNZ CRS100 

;YES - OUTPUT SCREEN ADDRESS 

5107 

120F 

21 

A3 

FF 

LXI H, TLX NO 

;NU - COMPUTE ABSOLUTE 

5108 

1212 

86 

« 

• 

ADD M 

; ROW NUMBER 

5109 

1213 

06 

52 

• 

MV I b , R 

; SET ABSOLUTE PARAMETER CHAR 

5110 

1215 

* 

• 

• 

.************************* 

5111 

1215 

• 

• 

• 

; TRANSMIT RUW PARAMETER * 

5112 

1215 

« 

• 

• 

.************************* 

5113 

1215 

• 

• 

• 

* 

9 


5114 

1215 

• 

• 

» 

; A = ROW VALUE 


5115 

1215 

m 

• 

• 

; B = ROW PARAMETER LETTER 

5116 

1215 

• 

• 

• 

• 

9 


5117 

1215 

• 

• 

• 

CRS100 FDD $ 


5118 

1215 

C5 

• 

• 

PUSH B 

;SAVE ROw PARAMETER LETTER 

5119 

1216 

CD 

26 

08 

CALL BN2DE2 

; CONVERT AND TRANSMIT VALUE 

5120 

1219 

FI 

• 

• 

POP PSW 

; RECALL ROw PARAMETER LETTER 

5121 

1 2 1 A 

CD 

Cl 

17 

CALL XPUTDC 

; TRANSMIT ROw PARAMETER CHAR 

5122 

12 in 

• 

• 

• 

• 

9 

FALL INTO "SDTERM” 

5123 

1 2 ID 


• 

• 

.****************************♦******* 

5124 

1 2 1 D 


• 

• 

; SDTERM - SEND BLOCK 

terminator * 

5125 

1 2 1 D 

• 

• 

• 

; RS IF PAGE MODE, OTHERWISE CR(LF) * 

5126 

1 2 1 D 

• 

• 

• 

.*******************************♦**** 

5127 

1 2 1 D 

• 

• 

• 

SDTERM EQU $ 


5128 

121D 

CD 

F 6 

16 

CALL SDTRM1 

; SEND TERMINATOR 

5129 

1220 

• 

• 

• 

SDTER1 EQU $ 


5130 

1220 

CD 

88 

10 

CALL CLRXON 

?CLEAR BLOCK TERMINATOR 

5131 

1223 

3E 

07 

• 

MVT A , ENDBLK 

,-TELL DATA COMM THAT LAST 

5132 

1225 

C 3 

42 

12 

JMP DCMCTL 

; CHARACTER IN BLOCK IS OUT 
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1228 

• 

• 

• 



1228 

• 

• 

• 


DC2G0 - OUTPUT DC2 

1228 

• 

• 

• 



1228 

• 

• 

* 

DC 2 GO EQU $ 

1228 

21 

70 

FF 


LX I H , MFLGS 

1 22B 

7E 

• 

• 


MOV A , M ? CLEAR DC2 PENDING FLAG 

1 22C 

E6 

FE 

• 


ANI ( -1-SDC2 ) /256 

1 2 2E 

77 

• 

9 


MOV M, A 

122F 

3E 

OD 

9 


MV I A, PROMPT ; TELL DATA COMM ROUTINE TO 

1231 

C 3 

42 

12 


JhP DCMCTL ; SEND PROMPT CODE 

1234 


• 

• 


*************************************** 

1234 

• 

• 

• 


DCMTNT - DATA COMM INTERRUPT ROUTINE * 

1234 

• 

• 

• 


************************** ************* 

1234 

• 

• 

• 



1234 

• 

• 

• 


ENTRY: PSW "PUSHED” 

1234 

• 

• 

• 


A = INTERRUPT CODE 

1234 

• 

• 

• 



1234 

# 

• 

• 

UCMINT EQU $ 

1234 

CD 

65 

91 


CALL INTV EC ;ChECK ALTERNATE INTERRUPT 

1237 

FI 

• 

• 


POP PSfc ; RESTORE PSW AND A-REG1S TER 

1238 

C3 

26 

50 


JMP ZDCINT ; EXECUTE NORMAL DATA COMM 

123B 

• 

• 

• 


• INTERRUPT ROUTINE 
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515 7 

123B 

• 

• 

. ;*************** ******* ************ 

5158 

1 2 3B 

• 

• 

. ? BRKDC - EXECUTE DATA 

COMM BREAK * 

5159 

12 38 

• 

• 

. ;*****♦**♦*♦ *********************** 

5160 

1 2 3B 

• 

• 

. BRKDC EQU 

S 


5161 

12 38 

3E 

05 

• 

M V I 

A,PUTBRK 

; EXECUTE DATACOM BREAK 

5162 

1230 

C 3 

42 

12 

JMP 

DCMCTL 

; CONTROL 

5163 

1240 

• 

• 

• l 




5164 

1240 

• 

• 

• i 

DJLSMDM - 

DISCONNECT 

MODEM 

5165 

1240 

• 

• 

• 




5166 

1240 

• 

• 

. dtsmdm equ 

8 


5167 

1240 

3E 

06 

• 

M V I 

A , DISC NT 

; EXECUTE MODEM DISCONNECT 

5168 

124? 

• 

• 

• 

'*************** *********************** ******** 

5169 

1242 

* 

• 

• 

DCMCTL - 

PERFORM DATA COMM CON'IROL FUNCTION * 

5170 

1242 

• 

• 

• 

♦ *4**4* **** * **** ******* 4 ** **********4********* 

5171 

1242 

• 

• 

• 




5172 

1242 

• 

• 

• 

ENTRY! 

A s FUNCTION TYPE NUMBER 

5173 

1242 

• 

• 

• 




5174 

1242 

* 

• 

• 

EXIT ; 

Z - FUNCTION PERFORMED 

5175 

1242 

• 

• 

• 


NZ - FUNCTION NOT PERFORMED 

517 b 

1242 

« 

• 

• 




5177 

1242 

• 

• 

. DCMCTL EQU 

$ 


5178 

1242 

F5 

• 

• 

PUSH 

PS A 

? SAVE A-REGISTER 

5179 

1243 

CD 

6 A 

10 

CALL 

CKRMTE 

; REMOTE MODE ENABLED? 

5180 

1246 

C2 

4C 

12 

JNZ 

DCC010 

; YES - PERFORM FUNCTION 

5181 

1249 

FI 

• 

• 

POP 

PSw 

; NO - RESTORE A-REGISTER 

5182 

1 24A 

3C 

• 

• 

INR 

A 

? FORCE NZ 

5183 

1 24B 

C9 

• 

• 

RET 


; RETURN 

5184 

124C 

• 

# 

• 

• 9 



5185 

1 24C 

• 

• 

. DCC010 EQU 

8 


5186 

124C 

FI 

• 

• 

PUP 

PSw 

; RESTORE A-REGISTER 

5187 

1 24D 

# 

• 

. DC MCI 1 EQU 

8 

; ENTRY TO FORCE DATA COMM CT 

5186 

1 24D 

CD 

11 

50 

CALL 

ZDCCTL 

; EXECUTE FUNCTION 

5189 

1250 

DO 

• 

• 

RNC 


? SUCCESSFUL - RETURN 

5190 

1251 

• 

• 

. DCEPR EQU 

8 

? PROCESS DATA COMM ERROR 

5191 

1251 

CA 

14 

48 

JZ 

Z B E L L 

;NUT FATAL - SOUND BELL 

5192 

1254 

• 

• 

. ; ********** 

44444444444444*4444 

5193 

1254 

• 

• 

• 

DISPLAY TEST KAIL MESSAGES * 

5194 

1254 

• 

• 

# ;4********** ****************** 

5195 

1254 

• 

• 

. HANGUO Egu 

$ 


5196 

1254 

CD 

D 6 

1C 

CALL 

PSPMSO 

; DISPLAY THE ERROR MESSAGE 

5197 

1257 

3E 

04 

• 

M V I 

A t FPCRST 

; SET TO FORCE FULL RESET 

5198 

1259 

CD 

00 

14 

CALL 

STCMFL 

; IF RESET KEY HIT 

5199 

1 25C 

« 

• 

• 




5200 

1 25C 

• 

• 

. HNG010 EOU 



5201 

125C 

CD 

A5 

OF 

CALL 

DISLN4 

; RE-ENABLE RESET ONLY 

5202 

1 25F 

C 3 

5C 

12 

JMP 

HNG010 

;hang TERMINAL 

5203 

1262 

• 

• 

• 



4444444444444444*44444444 

5204 

1262 

• 

• 

• 



* RESET KEY MUST BE HIT * 

5205 

1262 

* 

• 

• 

* 


* TO RESTORE TERMINAL * 

5206 

1262 

♦ 

• 

• 



* OPERATION * 

5207 

1262 

• 

• 

• 



************************* 
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5209 

1262 

• 

• 

• 


’*************** ********** ****************** 

5210 

1262 

• 

• 

• 


DCNUM - ACCUMULATE 

PARAMETER FOR ESC SEQ * 

5211 

1262 

• 

• 

• 


*************************** **************** 

5212 

1262 

• 

• 

• 





5213 

1262 

• 

• 

• 


EXIT : 

Z TRUE 


5214 

1262 

• 

• 

• 





5215 

1262 

• 

• 

• 

DCNUM EQU 

$ 


5216 

1262 

21 

DO 

FF 


LX I 

H, IOCSGN 

; GET THE CURRENT SIGN 

5217 

1265 

7 E 

• 

• 


M(J V 

A , M 

; VALUE 

5218 

1266 

B7 

• 

• 


ORA 

A 

? R AS ANY SIGN BEEN SET? 

5219 

1267 

C2 

6C 

12 


JNZ 

DCN005 

,*YES - DON'T CHANGE IT 

5220 

1 26 A 

36 

80 

• 


MV I 

M, NOSIGN 

; NO - SET NO SIGN FLAG 

5221 

1 26C 

* 

• 

• 

DCN005 EQU 

$ 


5222 

126C 

3 A 

88 

FF 


LDA 

CHAP 

; GET INPUT CHARACTER 

5223 

1 26F 

06 

30 

• 


SUI 

ZERO 

; EXTRACT BINARY VALUE 

5224 

1271 

5F 

• 

• 


MOV 

E,A 

? PUT VALUE IN E-REGISTER 

5225 

1272 

16 

00 

• 


M V I 

D , 0 

,*SET MSB TO ZERO 

5226 

1274 

3 A 

D4 

FF 


LDA 

RADIX 

? GET FAD1X OF NUMBER 

5227 

1277 

2 A 

OE 

FF 


LHLD 

IODATA 

; GET ACCUMULATOR 

5228 

1 2 7 A 

EB 

• 

• 


XCHG 


;PUT ACCUMULATOR IN D,E 

5229 

1 27R 

• 

• 

• 

• 

9 



5230 

1 27B 

* 

• 

• 

DCN010 Eyu 

$ 


5231 

1 27B 

19 

• 

• 


DAD 

D 

; ACCUMULATE NEW VALUE 

5232 

127C 

3D 

• 

• 


OCR 

A 

; RADIX ADJUSTMENT COMPLETED? 

5233 

1 2 7D 

C2 

76 

12 


JNZ 

DCN010 

; NO - CONTINUE ADDING 

5234 

1280 

22 

DE 

FF 


shld 

IODATA 

; YES - STORE new VALUE 

5235 

1283 

C3 

8E 

04 


JMP 

ESC API 

7CONTINUE ESCAPE SEQUENCE 

5236 

1286 

• 

• 

• 

;*************♦*****♦ 

************ ************ 

5237 

1286 

• 

• 

• 

? DCPLUS - 

PLUS SIGN 

RECEIVED FOR PARAMETER * 

5238 

1286 

• 

• 

• 

•a^************************** **************** 

5239 

1286 

• 

• 

• 

DCPLUS EQU 

$ 


5240 

1286 

06 

01 

• 


M V I 

6,1 

; SET B-REG TU SIGN VALUE 

5241 

1288 

C 3 

80 

12 


JMP 

DCMO 1 0 

? SET SIGN FLAG 

5242 

128B 

• 

• 

• 

;***************************** **************** 

5243 

1 28B 

• 

• 

• 

; DCMNUS - 

MINUS SIGN 

RECEIVED FOR PARAMETER * 

5244 

1 28R 

• 

• 

• 

• ♦if***************************************;**** 

5245 

1 28B 

• 

• 

• 

DCMNUS EQU 

$ 


5246 

128B 

06 

FF 

• 


MV I 

6,-1 


5247 

1280 

• 

• 

• 

DCM010 EQU 

$ 


5248 

1280 

21 

DD 

FF 


LX I 

H, IOCSGN 

; GET CURRENT SIGN VALUE 

5249 

1290 

7E 

• 

• 


MOV 

A , M 


5250 

1291 

B7 

• 

• 


ORA 

A 

; SIGN SET ALREADY? 

5251 

1292 

C2 

95 

04 


JNZ 

ESCEND 

? YES - ABORT ESCAPE SEQUENCE 

5252 

1295 

70 

• 

• 


MOV 

M , B 

;NO - SET SIGN VALUE 

5253 

1296 

C3 

8F 

04 


JMP 

ESC API 

; CONTINUE ESCAPE SEQUENCE 
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'5255 

1299 

• 

• 

• 


*************************************** 

5256 

1299 

• 

• 

• 


DCTEST - 

EXECUTE DATA COMM SELF-TEST * 

5257 

1299 

• 

• 

• 


*************************************** 

5258 

1299 

• 

• 

• 

DCTEST EUU 

$ 

5259 

1299 

CD 

6A 

10 


CALL 

CKRMTE J REMOTE MODE ENABLED? 

5260 

1 29C 

C8 

• 

• 


RZ 

?NO - DON'T DO SELF-TF ST 

5261 

1 29D 

CD 

14 

50 


CALL 

ZDCTST ;CALb DATA COMM SELF-TEST 

5262 

1 2 AO 

DA 

54 

12 


JC 

HANGUO ; HANG TERMINAL IF FATAL ERRO 

5263 

1 2 A3 

C3 

D7 

1C 


JMP 

OSPMSt ; DISPLAY MESSAGE AND EXIT 

5264 

12A6 

• 

• 

• 



IF SELF-TEST SUCCESSFUL 

5265 

1 2 A6 

• 

• 

• 


>t************** ************************** 

5266 

12A6 

• 

• 

• 


DCXB2D - 

SEE IF SOURCE OF CHARACTER IS ♦ 

5267 

1 2 A6 

• 

• 

• 


DATA COMM OR I/O BUFFER * 

5266 

1 2 A6 

• 

• 

• 


*************** *************************** 

5269 

1 2 A6 

« 

• 

• 




5270 

1 2 A6 

• 

• 

• 


EXIT : 

Z - INPUT IS NOT FROM DATA COMM OR I/O 

5271 

1 2 A6 

• 

• 

• 



NZ - INPUT IS FROM DATA COMM OR I/O 

52 72 

1 2 A6 

• 

• 

• 



A DESTROYED 

527 3 

12A6 

• 

• 

• 




52 7 4 

12A6 

• 

• 

• 

DCXB2D EyU 

$ 

5275 

1 2 A6 

3 A 

6E 

FF 


LD A 

DFLGS ;GET DATA TRANSFER FLAGS 

5276 

12A9 

E6 

81 

• 


AN I 

SDACUM+XBF2DS ?SET Z-FLAG 

5277 

12AB 

C9 

m 

• 


RET 

; RETURN 
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5279 

12 AC 

• 

• 

• 

• t***^^************** ******** 

5280 

1 2 AC 

• 

• 

• 

; DELAY 0 - 

PAUSE FOR 

1 SECOND * 

5281 

1 2 AC 

• 

• 

• 

.****************************** 

5282 

1 2 AC 

• 

• 

• 

DELAYO EQU 

$ 


5283 

1 2 AC 

3E 

18 

• 

MVI 

A,MAXROW+J ; REMOVE CURSOR AND 

5284 

12AE 

CD 

A 1 

OF 

CALL 

D1SLN2 

; RE-ENABLE RESET KEY 

5285 

1 2bl 

2E 

64 

* 

MV I 

L, 100 

;DELAY FOR 1 SECOND 

5286 

1 2B3 

• 

• 

• 

; ****** ********** * ****** ********* 

5287 

1283 

« 

• 

• 

; DELAY - DELAY 10 MILLISECONDS * 

5288 

1 2B3 

• 

• 

• 

J TIMES COUNT IN L 

♦ 

5289 

1 2B3 

• 

• 

• 

********************************* 

5290 

1 2B 3 

• 

• 

• 

DELAY EgiJ 

$ 


5291 

1 2B3 

3E 

80 

• 

MVI 

A , SETROM 


5292 

1 2B5 

D3 

70 

• 

OUT 

PPOCSR 

? RESET THE TIMER 

5293 

1 267 

3 A 

F5 

FF 

LDA 

PRCCTL 

; RESTORE PROCESSOR STATE 

5294 

1 2BA 

D3 

70 

« 

OUT 

PROCSR 


5295 

12BC 

• 

• 

• 

• 

f 



5296 

1 2BC 

• 

• 

• 

DL 1010 EOU 

$ 


5297 

1 2BC 

AF 

• 

• 

XRA 

A 

; CLEAR THE INTERRUPT FLAG 

5298 

1 2BB 

32 

F6 

FF 

STA 

intflg 


5299 

1 2C0 

• 

• 

* 

DLY020 EOU 

S 


5300 

12C0 

76 

• 

• 

HLT 


;SLEEP UNTIL INTERRUPTED 

5301 

1 2C 1 

3 A 

F6 

FF 

LDA 

INTFLG 

; GET INTERRUPT FLAG 

5302 

1 2C4 

FE 

03 

• 

CPI 

TMRINT 

; TIMER INTERRUPT? 

5303 

12C6 

C 2 

CO 

12 

JNZ 

DLY020 

; NO - CONTINUE WAITING 

5304 

1 2C9 

2D 

• 

• 

DCF 

L 

ENOUGH TIMER INTERRUPTS? 

5305 

1 2C A 

C2 

BC 

12 

JNZ 

DLY010 

NO - CONTINUE TIMING 

5306 

12CD 

C9 

• 

• 

RET 


; YES - RETURN 
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5308 

12CE 

• 

m 

• 

• 

0 

************ *************** 

5309 

12CE 

« 

• 

• 

9 

<F> - SEND FUNCTION 

DATA * 

5310 

1 2CE 

• 

• 

• 

9 

******** ******************* 

5311 

1 2CE 

• 

• 

• 

SNDC02 EQU 

$ 


5312 

1 2CE 

3A 

DE 

FF 


LDA 

IODATA 

? GET ACCUMULATED VALUE 

5313 

12D1 

47 

• 

• 


MOV 

El, A 

, PUT CODE INTO B-PEG1STER 

5314 

12D2 

3E 

OC 

• 


MVI 

A , SNDFCT 

; SET DATA COMM CONTROL CODE 

5315 

1204 

CO 

42 

12 


CALL 

OCMCTL 

? PERFORM FUNCTION 

5316 

1 2D7 

CO 

• 

• 


RNZ 


?EXTT IF FUNCTION NOT DONE 

5317 

1 2D8 

• 

• 

• 




OTHERWISE, SEND SCREEN DATA 

5318 

1208 

• 

• 

• 


*************** 


5319 

1208 

• 

• 

• 


LISPLAY SEND * 


5320 

1 2D8 

• 

• 

• 

0 

*************** 


5 321 

1 2D8 

• 

• 

m 

DPSEND EQU 

$ 


5322 

1 2D8 

3E 

08 

• 


MVI 

A,CKiOKY 


5323 

1 2D A 

CD 

08 

48 


CALL 

ZKBCTL 

; I/O CONTROL KEY DOWN ALSO? 

5324 

1 2DD 

C2 

99 

12 


JNZ 

OCTEST 

; YES - DO DATA COMM SELF-TES 

5325 

1 2E0 

3 A 

F8 

FF 


LLA 

CMFLGS 

; GET COMMON F LAGS 

5326 

1 2E3 

E6 

10 

• 


ANI 

RE.MSET 

; REMOTE ENABLED? 

5327 

1 2E5 

1 1 

OA 

00 


LX I 

D, (RCKYCD 

-ENTRCD ) *2 ? ( SET K EY INDEX) 

5328 

12E8 

CA 

8C 

15 


JZ 

IOKEYS 

; NO - PERFORM RECORD COMMAND 

5329 

12EB 

01 

00 

40 


LX I 

B , SENTER 

? YES - SET XFR PENDING FLAG 

5330 

1 2EE 

3 A 

F 3 

FF 


LD A 

MDFLG2 

;NO - GET TERMINAL MODE FLAG 

5331 

1 2F 1 

E6 

02 

• 


ANI 

BLKMDF. 

; BLOCK MODE ENABLED? 

5332 

12F3 

CA 

OE 

13 


JZ 

DPS200 

?NO - DO CHARACTER MODE STAR 

5333 

1 2F6 

CO 

8C 

19 


CALL 

CHKSFK 

; SOF 1 KEY MODE? 

5334 

1 2F9 

C2 

22 

13 


JNZ 

0PS22O 

; YES - DON'T SET TERMINATOR 

53 35 

1 2FC 

3 A 

FA 

FF 


LDA 

KB JMP 2 

; YES - GET KEYBOARD JUMPERS 

533b 

1 2FF 

Eb 

01 

• 


ANI 

AUTTRM 

; AUTO TERMINATE KNABLFD? 

533/ 

1301 

CA 

22 

13 


JZ 

OPS 2 20 

; NO - DO DON'T MOVE CURSOR 

5338 

1304 

CD 

71 

17 


CALL 

ST TERM 

? YES - SET NON -DISPLAYING 

5339 

1307 

• 


• 

♦ 

0 



TERMINATOR 

5340 

1307 

C8 

• 

• 


RZ 


} EXIT IF NOT SUCCESSFUL 

5341 

1308 

• 

• 

• 

• 

0 

***************************************** 

5342 

1308 

• 

• 

• 

• 

9 

FIRST TRANSMIT CHARACTER LOCATED - SET * 

5343 

1308 

• 

• 

• 

• 

0 

TRANSFER PENDING 

FLAG * 

5344 

1308 

• 

• 

• 

• 

9 

***************************************** 

5345 

1308 

• 

• 

• 

DPS! 00 EQU 

$ 


5346 

1308 

01 

00 

40 


LX I 

6, SENTER 

,’SET B,C XFR PENDING FLAG 

5347 

1 30B 

C 3 

D5 

lb 


JMP 

SBLXF1 

;FOR BLOCK MODE TRANSFER 
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5349 

13QE 

* 

• 

• 

******************************************* 

5350 

130E 

• 

• 

• 

? AUTO TERMINATOR JUMPER NOT REMOVED - DU * 

5351 

1 30E 

• 

• 

• 

; NORMAL DATA ENTRY 

FROM DISPLAY * 

5352 

1 30E 

• 

• 

• 

; *************************** *************** 

5353 

130E 

• 

• 

• 

DPS200 EQU 

$ 


5354 

130E 

3 A 

FB 

FF 

LD A 

KBJMPR 

; GET KEYBOARD JUMPERS 1 

5355 

1311 

E6 

CO 

• 

AN I 

HNDSHK+DC2SND 

5356 

1313 

EE 

40 

• 

XKI 

HNDSHK 

? HANDSHAKE ENABLED? 

5357 

1315 

C 4 

24 

04 

CNZ 

CHKCT1 

;NO - SET BLOCK TRIGGER 

5358 

1318 

• 

• 

• 

DPS210 EOU 

$ 


5359 

1318 

CD 

CD 

16 

CALL 

SRLXFA 

; SET TRANSFER PENDING FLAG 

5360 

1 3 1 B 

• 

• 

• 

DPS215 EOU 

$ 


5361 

1 3 IB 

CD 

76 

19 

CALL 

CHKFMS 

; FORMAT/SOFT KEY DEFINE MODE 

5362 

13 IE 

CO 

• 

• 

RNZ 


; YES - DON'T MOVE CURSOR 

5363 

1 3 1 F 

C3 

C 8 

21 

JMP 

CRRET1 

; NO - PUT CURSOR AT BEGINNIN 

5364 

1322 

• 

• 

• 

• 

9 


OF LINE CA = 0) 

5365 

1322 

• 

• 

• 

« 

9 



5366 

1322 

• 


• 

; SET KEYBOARD BLOCK 

TRANSFER 

5367 

132? 

• 

• 

• 

m 

9 



5368 

1322 

• 

• 

• 

DPS220 EOU 

$ 


5369 

1322 

CD 

D5 

16 

CALL 

SBLXF1 

;SET BLOCK MODE XFR PENDING 

5370 

1325 

3 A 

70 

FF 

LDA 

MFLGS 

; GET TRANSFER PENDING FLAGS 

5371 

1328 

E6 

01 

• 

AN I 

SDC2/256 

? DC 2 TO BE SENT? 

5372 

1 32A 

CO 

• 

• 

RNZ 


; YES - DON'T MOVE CURSOR 

5373 

1 32B 

CD 

5F 

10 

CALL 

CKLNMD 

;LINE MODE? 

5374 

1 32E 

CA 

IB 

13 

JZ 

DPS215 

; YES - SET CURSOR IN LINE 

5375 

1331 

• 

# 

• 

***************************************** 

5376 

1331 

• 

• 

• 

; DPSEN1 - HOME CURSOR FOR TRANSMISSION * 

5377 

1331 

• 

• 

• 

***************************************** 

5378 

1331 

• 

« 

• 

DPSFN1 EOU 

S 


5379 

1331 

CD 

F 4 

17 

CALL 

XMOHME 

; HOME CURSOR 

5380 

1334 

CD 

76 

19 

CALL 

CHKFMS 

; FORMAT/SOFT KEY DEFINE MODE 

5381 

1337 

CO 

• 

• 

RNZ 


; YES - RETURN 

5382 

1338 

C 3 

C8 

21 

JMP 

CRRET1 

; NO - SET CURSOR TO COLUMN 0 



ITEM 


5 3B 4 
5385 
538b 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 
539b 
5 397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 
540b 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 
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1338 

• 

• 

• 




1338 

• 

• 

• 


********** 

************** 

1338 


• 

• 




1 3 3B 

• 

• 

• 


; OPSGO - SEND DISPLAY TO DATACOM 

1338 

• 

• 

• 




1338 

• 

• 

• 


ENTRY: CURCQL 

# CUR ROW SET TO STARTING 

1338 

• 

• 

• 


LOCATION 

1 3 3B 

• 

• 

• 




1 33B 

• 

• 

• 


EXIT : ALL REGISTERS DESTROYED 

1338 

• 

• 

• 




1338 

• 

• 

• 

OPSGO F.gu $ 


1338 

CD 

9C 

25 


CALL INITDG 

; I N IT DISPLAY GET ROUTINE 

1 3 3E 

C 2 

8 A 

13 


JNZ DSG200 

^•TERMINATE IF NO CHARACTERS 

1341 

BE 

FF 

• 


MVI A f STPXF'R 

;SET TERMINATOR FUNCTION TO 

1343 

3 2 

6D 

FF 


STA TRMFCT 

TERMINATE TRANSFER 

1346 

• 

• 

• 

DSG010 EQtJ $ 


1346 

3E 

OD 

• 


MVI A , STCHST 

?sf;t character set fur 

1348 

CD 

08 

48 


CALL ZK8CTL 

; F OREIGN TERMINALS? 

1 34R 

DC 

Cl 

17 


CC XPlJTDC 

;YES - OUTPUT SI /SO 

1 34E 

• 

• 

• 

i 



1 34E 

• 

• 

• 

i 

OUTPUT CHARACTERS FROM DISPLAY 

1 34E 

• 

• 

• 




1 34E 

• 

• 

• 

DSG020 EQU $ 


1 34E 

CD 

2C 

24 


CALL getdsp 

;ANY CHARACTER? 

1351 

OA 

5D 

13 


JC DSG 100 

;N0 - CHECK TERMINATION 

1354 

CD 

Cl 

17 


CALL XPUTDC 

;YES - TRANSMIT THE CHARACTE 

1357 

02 

4E 

13 


JNC DSG020 

; CONTINUE IF NO DATA COMM ER 

1 35 A 

C 3 

B 1 

13 


JMP DSG230 

; ELSE , TERMINATE OUTPUT 

135D 

• 

• 

• 

* 

i 



1 35D 

• 

• 

• 


NON-CHARACTER FOUND - CHECK TERMINATION 

1350 

• 

• 

• 

r 



1350 

• 

• 

• 

DSG100 EUU $ 


1350 

FA 

8A 

13 


JM 0SG200 

! END OF DISPLAY - TERMINATE 

1360 

47 

• 

• 


MOV B,A 

; SAVE EXIT STATUS 

1361 

CD 

59 

to 


CALL GTMODE 

; PAGE MODE ENABLED? 

1364 

CA 

99 

13 


JZ DSG210 

r NO - END WITH CR(LF) 

1367 

CD 

7B 

19 


CALL CHKFMT 

; FORMAT MODE? 

1 36 A 

CA 

76 

13 


JZ DSG 110 

?NU - SEND CR AND LF 

1 36D 

3 A 

03 

50 


LDA RECSEP 

;YES - END WITH RECORD 

1370 

CD 

Cl 

1 / 


CALL XPUTDC 

; SEPARATOR 

1373 

C3 

46 

13 


JMP DSG010 

; CONTINUE THRU DISPLAY 
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5426 

1376 

• 

• 

• 

• 

9 



5427 

1376 

• 

• 

m 

; EOL FUR NUN-FORMAT PAGE MODE - SEND CR AND LF 

5428 

1376 

• 

• 

* 

* 

9 



5429 

1376 


• 

• 

DSG1 1 0 EQU 

$ 


5430 

137 6 

3E 

OD 

• 

Mill 

A, CP 

; SEND RETURN 

5431 

1378 

CD 

Cl 

17 

CALL 

XPUTDC 

; AND 

5432 

1 37 B 

CD 

OA 

17 

CALL 

SDTRM3 

?LINE FEED 

5433 

1 37E 

CD 

8C 

iy 

CALL 

CHKSFK 

; SOFT KEY DEFINF MODE? 

5434 

1381 

cc 

6F 

OA 

CZ 

LNFEED 

; NO - DO LINE FEED 

5436 

1384 

CD 

9£ 

OF 

CALL 

DISLN1 

; SET DISPLAY CURSOR ROW 

543t> 

1387 

C 3 

46 

13 

JMP 

DSG010 

? CONTI NUE THRU DISPLAY 

5437 

1 38 A 

• 

• 

• 

• 

9 



5438 

1 38 A 

• 

• 

• 

; END OF DISPLAY - 

SEND TERMINATOR 

5439 

1 38 A 

• 

• 

• 

9 



5440 

1 38 A 

♦ 

• 

• 

DSG200 EQU 

$ 


5441 

1 38 A 

3 A 

04 

50 

LD A 

6LKTRM 

; SEND BLOCK TERMINATOR 

5442 

1380 

CD 

Cl 

17 

CALL 

XPUTDC 

; CHARACTER 

5443 

1390 

CD 

59 

10 

CALL 

GTMODE 

f PAGE MODE? 

5444 

1393 

CA 

A7 

13 

JZ 

OSG220 

; NO - SEND CR(LF) 

5445 

1396 

C 3 

AA 

13 

JMP 

DSG225 

;YES - CLEAR XFR PENDING FLA 

5446 

1399 

• 

• 

• 

; ^^ t **** **************** ******* ************ 

5447 

1399 

• 

• 

• 

; NON-PAGF MODE TERMINATION - SEND CR(LF) * 

5448 

1399 

• 

• 

• 

; ****** ****************************** ****** 

5449 

1399 

• 

• 

• 

DSG210 EQU 

$ 


5450 

1399 

CD 

7b 

19 

CALL 

CHKFMS 

;fopmat/soft key mode? 

5451 

1 39C 

C2 

A7 

13 

JNZ 

DSG220 

; YES - DON'T DO LTNE FEED 

5452 

1 39F 

3 A 

F 3 

FF 

LDA 

MDFLG2 

; NU - GET SOFT MODE FLAGS 

5453 

13A2 

E6 

04 

• 

ANT 

AUIOLF 

; AUTO LlNF FEED ENABLED? 

5454 

13A4 

C4 

6F 

OA 

CNZ 

LNFEED 

;YES - DO LTNE FEED 

5455 

1 3 A7 

• 

• 


• I ********* *************** 

5456 

1 3A7 


• 

• 

; SEwD CRCLFI TERMINATOR * 

5457 

1 3 A7 

• 

• 

• 

;! ^^^^ t ****** ****** ******** 

5458 

13A7 

• 

• 

• 

0SG220 EQU 

$ 


5459 

13A7 

CD 

Fb 

lb 

CALL 

SDTRM1 

; SEND CPCLF) 

5460 

1 3 AA 

• 


• 

DSG225 EWU 

$ 


5461 

1 3 A A 

CD 

20 

12 

CALL 

SDTER1 

J MARK END OF OUTPUT BLOCK 

5462 

1 3AD 

AF 

• 

• 

XRA 

A 

? RESET TERMINATOR FUNCTION 

5463 

13AE 

32 

6D 

FF 

STA 

TRMFCT 

; TO DELF:TE TERMINATOR 

5464 

13B1 

• 

• 

• 

DSG230 EQU 

$ 


5465 

1361 

01 

FF 

BF 

LX I 

B # - 1 -SENTER 

5466 

1364 

CD 

70 

10 

CALL 

CLBLXF 

;CLEAR ENTER PENDING FLAG 

5467 

1 3B7 

C 3 

23 

20 

JMP 

CRADV1 

? CLEAR CURSOR ADVANCE FLAG 

5468 

1 36 A 

• 

• 

• 

• 

9 


AND EXIT 
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II 

II 

II 
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II 

II 







H 

It 

ti 

II 

ii 

ii 

if 

ii 

ii 

ii 

ii 

n 

ii 

li 

ii 

li 

ii 

n 

ii 

it 

ii 

li 

li 

li 

ii 

li 

ii 

ii 

ti 

li 

item 

LQC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE I 57 

5470 

1 3B A 

• 

• 

• 

;*************************************** 

5471 

1 3bA 

• 

• 

• 

; A20UTB - 

PUT BYTE 

INTO OUTPUT BUFFER * 

5472 

1 3B A 

• 

• 

• 

;*************************************** 

5473 

1 3BA 

• 

• 

• 

? ENTRY : 

A = BYTE 

TO BE OUTPUT 

5474 

1 3BA 

• 

• 

• 

• 

9 



5475 

1 3B A 

• 

• 

• 

? exit ; 

H = BASEH 

5476 

136 A 

• 

• 

• 

• 

9 

B2DEMD = 

B2DEND + 1 

5477 

1 3BA 

• 

• 

• 

• 

9 

D,E,L DESTROYED 

547 8 

1 3BA 

• 

• 

• 

! 



5479 

1 3B A 

• 

• 

• 

? ECOUTB - 

OUTPUT 

<ESC> 

5480 

136A 

• 

• 

• 

• 

9 



5481 

1 3B A 

• 

• 

• 

? entry: b = 

SECOND CHARACTER IN ESCAPE SEy 

5482 

1 3B A 

• 

• 

• 

• 

9 



5483 

1 30A 

• 

• 

• 

ECOUTB EQU 

$ 


5484 

1 3BA 

3E 

IB 

• 

MV1 

A, ESC 

t SET A TO ESC 

5485 

1 3BC 

CD 

CO 

13 

CALL 

A2QUTB 

;PUT ESC INTO OUTPUT BUFFER 

5486 

1 38F 

• 

• 

• 

B20UTB EQU 

$ 


5487 

13BF 

78 

• 

• 

MOV 

A,B 

; PUT SECOND CHAP INTO A-REG 

5488 

1 3C0 

• 

• 

• 

9 


FALL INTO OUTPUT ROUTINE 

5489 

13C0 

• 

• 

• 

« 

9 

- 


5490 

1 3C0 

• 

• 

• 

A2UUTB EgU 

$ 


5491 

1 3C0 

21 

3B 

FF 

LX I 

H , 02DEND 

5492 

1 3C3 

34 

• 

• 

INR 

M 

; INCREMENT TO NEXT POSITION 

549 3 

1 3C4 

6E 

• 

• 

MOV 

L, M 

; GET NEW ADDRESS 

5494 

1 3C5 

77 

• 

• 

mqv 

M,A 

? STORE THE BYTE 

5495 

1 3C6 

C9 

• 

• 

PET 


; RETURN 
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5497 

13C7 

• 

• 

• 

5498 

1 3C7 

• 

• 

• 

5499 

1 3C7 

• 

• 

• 

5500 

13C7 

• 

• 

• 

5501 

! 3C7 

CD 

4D 

10 

5502 

1 3C A 

CA 

D5 

13 

5503 

1 3CD 

3E 

08 

• 

5504 

13CF 

21 

Fi 

FF 

5505 

1 3D2 

B6 

m 

• 

5506 

1 3D 3 

77 

• 

• 

5507 

1 3D4 

C9 

• 

• 

5508 

1 3D5 

• 

• 

• 

5509 

1 3D5 

• 

• 

• 

5510 

1 3D5 

3E 

04 

• 

5511 

1 3D7 

CD 

42 

12 

5512 

1 3D A 

3E 

EF 

• 

5513 

1 3DC 

• 

• 

• 

5514 

1 3 DC 

• 

• 

• 

5515 

1 3DC 

• 

• 

• 

5516 

1 3DC 

• 

• 

• 

5517 

1 3 DC 

• 

• 

• 

5518 

1 3DC 

• 

• 

• 

5519 

1 3 DC 

• 

• 

• 

5520 

1 3DC 

• 

• 

• 

5521 

1 3DC 

• 

• 

• 

5522 

1 3 DC 

21 

F8 

FF 

5523 

1 3DF 

A6 

• 

• 

5524 

13EO 

77 

• 


5525 

1 3E1 

C9 

• 

• 


.**************************** 
; ENTLCL - ENTER LOCAL MODE ♦ 
***************************** 

ENTLCL EQU $ 

CALL CKEDIT ? EDI T M 

JZ ENL100 ?NO - G 

MVI A, REMOTE ,*YES - 

LX I H , MDFLG2 ?LOCA 
ORA M ; FORCE 

MOV M f A 


; EDI T MODE ENABLED? 

; NO - GO INTO LOCAL MODE 
• YES - INHIBIT TRANSITION TO 
; LOCAL M ODE 
; FORCE REMOTE FLAG ON 


; RETURN 


ENL1 0° Egu * f S ETLCL ; SET DATACOM FOR LOCAL 
CALL DCMCTL fOPERATION 

MVI A, 3770-REMSET ;CLEAR REMOTE M ODE FLAG 

.*********♦******************** 

; CLCMFL - CLEAR COMMON FLAGS * 

• mm************************ 

• ENTRY? A = 377B-FLAG BIT TO BE CLEARED 


EXIT 


A,H,L DESTROYED 


CLCMFL EgU $ 

LXI HrCMFLGS 
ANA M 
MOV M , A 
RET 


? CLEAR THE FLAG BIT 
; STORE THE NEW SETTINGS 
f RETURN 
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H 

11 

11 

It 

11 

II 

It 

II 

II 

II 

II 

ii 

it 

H 

II 

II 

II 

II 

11 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

II 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 159 

’ 552 7 

13E2 

• 

• 

• 

• 

9 



552b 

1 3E2 

• 

• 

• 

? ENTREM - 

ENTER REMOTE MODE 

5529 

136:2 

• 

• 

# 

? 



5530 

136)2 

• 

• 

• 

ENTREM EQU 

$ 


5531 

1 3E2 

CO 

4D 

10 

CALL 

CKEDIT 

; EDIT MODE ENABLED? 

5532 

1 3E5 

C A 

FO 

13 

JZ 

ENR1 00 

;N0 - GO INTO REMOTE MODE 

55 3 3 

1 3E8 

3E 

F7 

• 

MV I 

A, 377Q-REMOTE ?YES - INHIBIT 

5534 

1 3EA 

21 

F3 

EF 

LX1 

H , MDFLG2 

? TRANSITION TO REMOTE MODE 

5535 

1 3 ED 

A6 

• 

• 

ANA 

M 

; FORCE REMOTE FLAG OFF 

5536 

1 3 EE 

7 7 

• 

• 

MUtf 

M, A 


5537 

1 3EF 

C9 

• 

• 

RET 


; RETURN 

5538 

1360 

• 

♦ 

• 

• 

9 



5539 

1 36 0 

• 

« 

• 

ENB100 EOU 

$ 


55 40 

136"0 

97 

• 

• 

SUB 

A 

;CLEaP THE DATA PENDING 

5541 

13F1 

32 

70 

FF 

ST A 

MELGS 

; FLAGS 

5542 

136 4 

IE 

FC 

• 

MV I 

A,377Q-SBINRY-SDVREC 

5543 

1 3F6 

CD 

AA 

04 

CALL 

CLRME2 

? CLEAR BINARY RECORD PENDING 

5544 

1 3 F 9 

3E 

03 

• 

MV I 

A,SETREM 

; SET DATACOM FOR REMOTE 

5545 

1 3FB 

CD 

4D 

12 

CALL 

DCMCT1 

; OPERATION 

554b 

13 Ft: 

3E 

10 

• 

M V I 

a,R6:mset 

; SET REMOTE MODE FLAG 

5547 

1400 

• 

• 

• 

• *****j^t ********** *********** 

5548 

1400 

• 

• 

• 

; STCM6L - 

SET COMMON 

FLAGS * 

5549 

1400 

• 

• 

• 

.***+*****♦****************** 

5550 

1400 

• 

• 

• 

• 

9 



5551 

1400 

• 

• 

• 

; ENTRY: 

A = FLAG BIT TO BE SET 

5552 

1400 

• 

• 

• 

m 

9 



5553 

1400 

• 

• 

• 

; EXIT : 

A r H , L DESTROYED 

, 5554 

1400 

• 

• 

• 

• 

9 



5555 

1400 

• 

• 

• 

STCWFL EQU 

$ 


5556 

1400 

21 

F8 

FF 

LXI 

H,CMELGS 


5557 

1403 

B6 

• 

• 

ORA 

M 

;add bit to "cmelgs" 

5558 

1404 

77 

• 

• 

MOV 

M , A 

; store new SETTINGS 

5559 

1405 

C9 

• 

• 

RET 


; return 
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ITEM 

LUC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 160 

5561 

1406 

• 

• 

• 







5562 

1406 

• 

• 

• 



* * 

♦ * * 

* * * * 

*************** 

5563 

1406 

• 

• 

• 







5564 

1406 

• 

• 

• 



FCTKEY - 

FUNCTION 

KEY PRESSED (F1-F8) 

5565 

1406 

• 

• 

• 







5566 

1406 

• 

• 

• 




ENTRY! C = FUNCTION KEY CODE (360-367B) 

5567 

1406 

• 

• 

• 







5568 

1406 

• 

• 

• 




EXIT 

; DFLGSCFCTK2D) = 1, FUNCTION KEY 

5569 

1406 

• 

• 

• 





DATA 10 BE USED AS NORMAL 

5570 

1406 

• 

• 

• 





KEYBOARD CHARACTERS 

5571 

1406 

• 

• 

• 





DFLGS (FCTK2D ) = 0 

5572 

1406 

• 

• 

• 





MFLGS(SFCTKY) = 0, KEY WAS 

5573 

1 406 

• 

• 

• 





INTERPRETED LOCALLY ONLY 

5574 

1406 

• 

• 

• 





MFLGSCSFCTKY) = 1, DATA WAITING 

5575 

1406 

• 

• 

• 





FOR BLOCK TRANSFER TRIGGER TO 

5576 

1406 

• 

• 

• 





SEND TO CPU 

5577 

1406 

• 

• 

• 





ALL REGISTERS DESTROYED 

5578 

1406 

• 

e 

• 







5579 

1406 

• 

• 

• 

1 

CTKEY 

EQU 

$ 


5580 

1406 

79 

• 

• 




MOV 

A ,C 

; COMPUTE NUMbER OF LINES TO 

5581 

140 7 

87 

• 

• 




ADD 

A 

; search: 

5582 

1408 

Db 

DF 

• 




SUI 

FCTADJ 

;2* (FUNCTION NUMBER) - 1 

5583 

1 40 A 

21 

A6 

FF 




LX I 

H , SFTKYS 


5584 

1 40D 

CD 

Fb 

OA 




CALL 

MLKSCt 

; LOCATE THE ATTRIBUTE LINE 

5585 

14 10 

• 

• 

• 







5586 

1410 

• 

• 

• 



DEFINITION FOUND 

- PERFORM FUNCTION 

5587 

1410 

• 

• 

• 







5588 

1410 

7D 

• 

• 




MOV 

A f Lt 

? COMPUTE LOCATION OF 

5589 

1411 

DO 

08 

• 




SUI 

ATBLOC 

; ATTRIBUTE CODE 

5590 

1413 

5F 

• 

• 




MOV 

E r A 


5591 

1414 

54 

• 

• 




mqv 

D , H 


5592 

1415 

CD 

6D 

19 




CALL 

CHAIN 

; GET ADDRESS OF DATA LINE 

5593 

1418 

22 

A4 

FF 




SHLD 

CURFKY 

; SAVE FIRST CHARACTER ADDRES 

5594 

1 4 1 B 

• 

• 

• 

♦ 

9 




TO FORCE SKIP OVER "ENDPR" 

5595 

1 4 1 B 

1 A 

• 

• 




LD AX 

D 

? GET ATTRIBUTE CODE 

559b 

1 4 1C 

FE 

4E 

• 




CPI 

N 

; NORMAL MODE? 

5597 

141E 

DA 

32 

14 




JC 

FCT200 

?< - DO LOCAL ONLY 

5596 

1421 

3E 

10 

• 




mv r 

A , FCTK2D 

;(5ET DATA XFR FLAG) 

5599 

1423 

CA 

11 

17 




JZ 

SETDFL 

; YES - SET NORMAL KEY XFR 

5600 

14 26 

CD 

59 

10 




CALL 

GTMODE 

?> - SET BLOCK TRANSFER 

5601 

1429 

01 

00 

20 




LX I 

B , SFCTK Y 

; FOR FUNCTION KEY 

5602 

142C 

CA 

CD 

16 




JZ 

SBLXFA 

; SET FLAG FOR NOT PAGE MODE 

5603 

1 42F 

C 3 

D5 

16 




JMP 

SBLXF1 

; ELSE SET F OR PAGE XFP 
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II 
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II 

II 
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II 
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II 

it 
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it 

li 
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ITEM 

LOC 

OBJECT 

CODE 

sasss 

• 

SOURCE STATEMENTS 

PAGE 161 

5605 

1432 

• 

• 

• *** + *** + ** + * + $** 1 ;* ******* ********* 

5o06 

1432 

• 

• 

• 

; PERFORM LOCAL ONLY 

KEY FUNCTION * 

5607 

1432 

• 

• 

• 

• * ******4******** ******* *********** 

5608 

1432 

• 

• 

• 

FCT200 EQU 

$ 


5609 

1432 

CD 

42 

15 

CALL 

GTFCTK 

; GET FUNCTION KEY DATA 

5610 

1435 

C 8 

9 

• 

RZ 


;NONE LEFT - RETURN 

5611 

1436 

• 

• 

• 

FCT210 EQU 

$ 


5612 

1436 

32 

9C 

FF 

STA 

CHARIN 

;SAVE FUNCTION KEY CHARACTER 

5613 

1439 

CD 

50 

03 

CALL 

CHINT 

? PROCESS DATA LOCALLY 

5614 

1 43C 

3A 

9C 

FF 

LD A 

CHARIN 

; RECALL FUNCTION CHARACTER 

5615 

1 43F 

FE 

OD 

• 

CPI 

CR 

;TS IT A RETURN? 

5616 

1441 

C2 

32 

14 

JNZ 

FCT200 

?NU - DO THE NEXT BYTE 

5617 

1444 

3 A 

F3 

FF 

LDA 

MDFLG2 

? YES - GET HARD MODE FLAGS 

5618 

1447 

E6 

04 

• 

ANI 

AUTOLF 

;AU1U LINE FEED ENABLED? 

5619 

1449 

CA 

32 

14 

JZ 

FCT200 

;NO - DO NEXT FUNCTION BYTE 

5620 

1 44C 

OE 

OA 

• 

MV I 

C , LF 

; YtS - PERFORM LINE F FED 

5621 

1 44E 

C 3 

36 

14 

JMP 

FCT210 

? FUNCTION 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS 


PAGE 162 


5623 

1451 

« 

• 

• 




5624 

1451 

* 

• 

• 

* * 

* * * 

************** ***** 

5625 

1451 

• 

• 

• 




5626 

1451 

• 

m 

• 

FKEYGO - 

TRANSMIT FUNCTION KEY 

5627 

1451 

• 

• 

• 




5628 

1451 

• 

• 

• 


ENTRY 

: DON'T CARE 

5629 

1451 

• 

• 

• 




5630 

1451 

• 

• 

• 


EXIT 

: MFLGS1 (SFCTKYJ = 0 

5631 

1451 

• 

• 

• 



ALL REGISTERS DESTROYED 

5632 

1451 

• 

• 

• 




5633 

1451 

• 

• 

. EKEYGO 

EOU 

$ 

5634 

1451 

01 

FF 

DE 


LXI 

6,-1 -SFCTK Y JCLEAR FUNCTION KEY 

5635 

1454 

CD 

70 

10 


CALL 

CLBLXF ? PENDING FLAG 

5636 

1457 

3A 

6E 

FF 


LD A 

DFLGS ; GET DATA TRANSFER FLAGS 

5637 

1 45 A 

E6 

10 

• 


AN I 

FCTK2D ; OPERATE AS NORMAL KEY? 

5638 

1 45C 

CO 

• 

• 


RNZ 

;YES - RETURN TO WAIT LOOP 

5639 

145D 

• 

• 

• 




5640 

1 45D 

• 

• 

• 

TRANSMIT 

FUNCTION KEY DATA 

5641 

1 45D 

• 

• 

• 




5642 

1 45D 

• 

• 

. FKG010 

EUU 

$ 

5643 

l 45D 

CD 

42 

15 


CALL 

GTFCTK ; GET NEXT ir UNCTION KEY CHAR 

5644 

1460 

CA 

ID 

12 


JZ 

SDTERM ; SEND TERMINATOR IF NO MORE 

5645 

1463 

« 

• 

• 



DATA 

5646 

1463 

21 

04 

50 


LXI 

H , BLKTRM 

5647 

1466 

BE 

• 

• 


CMP 

M ; BLOCK TERMINATOR CHARACTER? 

5648 

1467 

CA 

ID 

12 


JZ 

SDiERM ? YES - OUTPUT TERMINATOR 

5649 

1 46 A 

CD 

Cl 

17 


CALL 

XPUTDC ; NORMAL DATA - TRANSMIT IT 

5650 

1460 

C 3 

5D 

14 


JMP 

FKG010 ;DG NEXT CHARACTER 
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II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

U 

II 

11 

« 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

H 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ITEM 

LOC 

OBJECT 

CODE 
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s:s:: 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ti 

it 

ii 

ii 

ii 

ii 

ii 

u 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

it 

it 

5652 

1470 

• 

• 

# 

0 

9 


5o5 3 

1470 

• 

• 

0 

? MNMDON - MONITOR 

MODE ON 

5654 

1470 

• 

• 

0 

• 

9 


5655 

1470 

• 

• 

0 

MNMDON EQU 5 


5656 

1470 

3E 

08 

0 

MV I A , SETMON 

; SET DATACOM MONITOR 

5657 

1472 

CD 

42 

12 

CALL DCMCTL 

? MODE 

5658 

1475 

CO 

• 

0 

RNZ 

; DON'T MONITOR IF NOT SET 

5659 

1476 

06 

FF 

0 

MV I B,377Q 

? SET TO BLINK LED 

5660 

1478 

C 3 

7D 

14 

JMP FD0100 

/ SET FUNCTION TABLE 

5661 

1 47B 

• 

• 

0 

.***************************************** 

5662 

1 47B 

• 

• 

0 

? FDISON - TURN ON FUNCTION DISABLE MODE * 

5b6 3 

147B 

• 

• 

0 

.**********.******************************* 

5664 

1 47 B 

• 

• 

0 

FDISON EQU $ 


5665 

14 7B 

06 

00 

0 

MV I B,0 

/ SET FUR NO BLINK 

5666 

1 47D 

• 

• 

0 

FDOIOO EQU $ 


5667 

1 47D 

3E 

01 

0 

MVT A r DSPFNC 

/ TURN ON DISPLAY FUNCTIONS 

5668 

1 47F 

CO 

OE 

48 

CALL ZSTMD1 

JFLAG 

5669 

1482 

21 

8C 

27 

LXT H , FDISTB 

; SET H,L TO NEW RANGE TABLE 

5670 

1485 

C 3 

A 1 

04 

JMP ESCEN1 

; SET RANGE TABLE AND EXIT 

5671 

1488 

• 

• 

0 

************************************** 

5672 

148 8 

• 

• 

0 

? FD1S0F - TURN OFF 

FUNCTION DISABLE * 

5673 

1488 

# 

• 

0 

********* ******** *j| t********* ********** 

5674 

1488 

• 

• 

0 

FD1S0F EQU $ 


56 7 5 

1488 

CD 

8C 

19 

CALL CHKSFK 

;SOFT KEY DEFINE MODE? 

56 7 6 

1 48B 

CA 

94 

14 

JZ EOF 010 

; NO - DO NORMAL PROCESSING 

5677 

1 48E 

CD 

A6 

12 

CALL DC XB 2D 

; INPUT FROM KEYBOARD? 

567 8 

1491 

C4 

8D 

OC 

CNZ SFKYOF 

;N0 - RESTORE NORMAL DISPLAY 

5679 

1494 

• 

0 

0 

FOFOIO EQU $ 


5680 

1494 

CD 

86 

14 

CALL FDESC 1 

/ DISPLAY INPUT CHARACTER 

5681 

1497 

3 A 

69 

FF 

LD A LCHAR 


5682 

1 49 A 

FE 

IB 

0 

CPI esc 

/WAS THE LAST CHAR <ESC>? 

5683 

1 49C 

CO 

0 

0 

RNZ 

; NO - RETURN 

5684 

1490 

m 

0 

0 

t 

YES - TURN OFF DISPLAY FCTS 

5685 

1 49D 

• 

0 

0 

DFCTOF EQU $ 


5686 

149D 

3E 

09 

0 

MVI A , SETNRM 

/ RESTORE DATACOM TO 

5687 

149F 

CD 

11 

50 

CALL ZDCCTTi 

? NORMAL MODE 

5688 

1 4 A2 

CD 

95 

04 

CALL ESC END 

/ YES - TURN OFF DISABLE MODE 

5689 

1 4A5 

3E 

01 

0 

MVI A, DSPFNC 

; TURN OFF DISPLAY FUNCTIONS 

5690 

1 4 A7 

C3 

11 

48 

JMP ZCLMD1 

? FLAG 

5691 

1 4 A A 

0 

0 

0 

.************************** 

5692 

14AA 

0 

0 

# 

/ FUNCTION DISABLE ESCAPE * 

5693 

1 4A A 

• 

0 

0 

*************************** 

5694 

1 4 A A 

0 

0 

0 

FDESC EQU $ 


5695 

1 4AA 

CD 

8C 

19 

CALL CHKSFK 

; SOFT KEY DEFINE MODE? 

5696 

1 4AD 

CA 

B6 

14 

JZ FDESC 1 

; NO - DO NORMAL PROCESSING 

5697 

1 4B0 

CD 

A6 

12 

CALL UCXB2D 

? INPUT FROM KEYBOARD? 

5698 

14B3 

C 4 

8D 

OC 

CNZ SFKYOF 

; NO - RESTORE NORMAL DISPLAY 

5699 

1 4B6 

m 

0 

0 

FDESC 1 EQU $ 


5700 

1 466 

CD 

1A 

23 

CALL DSPCHR 

/DISPLAY THE ESCAPE CODE 

5701 

1 4B9 

C3 

23 

20 

JMP CRADV1 

/RESET CURSOR ADVANCE FLAG T 

5702 

1 4BC 

• 

0 

0 

• 

9 

FORCE ANALYSIS OF NEXT 

5703 

1 4BC 

• 

0 

0 

• 

F 

INPUT CHARACTER FOR Z 
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5705 

1 40C 

• 

• • 

.******************************************** 

5706 

1 4bC 

• 

• • 

; function 

TABLE FOR 

TERMINAL FUNCTION KEYS * 

5707 

1 40C 

• 

• • 

; * * * * ******************** ******************** 

5708 

1 46C 

• 

• • 

FNCTAB EQU 

$ 


5709 

1 48C 

D8 

12 • 

Dw 

DPSEND 

; 230 - ENTER KEY 

5710 

1 4BE 

3B 

12 . 

D W 

BRKDC 

; 231 - BREAK KEY 

5711 

1 4C0 

9D 

14 . 

DW 

OFCTOF 

; 232 - DISPLAY FUNCTIONS OFF 

5712 

1 4C2 

8C 

15 . 

Dw 

IOKEYS 

; 233 - I/O CONTROL KEY 

5713 

14C4 

8C 

15 . 

D w 

10KEYS 

; 2 34 - READ KEY 

5714 

14C6 

8C 

15 . 

D w 

IOKEYS 

; 235 - RECORD KEY 

5715 

14C8 

8C 

15 . 

Dw 

IOKEYS 

; 236 - SELECT KEY 

5716 

1 4C A 

8C 

15 . 

DW 

IOKEYS 

; 237 - CONDITION TAPES 

5717 

1 4CC 

8C 

15 . 

Dw 

IOKEYS 

;240 - (CONTROL) READ KEY 

5718 

1 4CE 

• 

• • 

• 

9 



5719 

0098 

• 

• • 

ENIRCD EqU 

2 3 OQ 

; ENTER KEY CODE 

5720 

0090 

• 

• • 

RCKYCD EQU 

2 35Q 

; RECORD KEY CODF 

5721 

009E 

• 

• • 

SLKYCP EQU 

236Q 

; SELECT KEY CODE 

5722 

00 AO 

• 

• • 

CTRDKY EgU 

2400 

; CONTROL READ KEY CODE 

5723 

0098 

• 

• • 

FNCLWR EgU 

2 30Q 

; FUNCTION CODE LOwER LIMIT 

5724 

QOA 1 

• 

• • 

FNCLIM EQU 

241Q 

; FUNCTION CODE UPPER LIMIT 

5725 

1 4CE 

• 

• • 

t 



5 7 26 

008E 

• 

• • 

ESCSU EQU 

2160 

;<£SC>-<SO> CODE 

5727 

00E4 

• 

• • 

ESCLwD equ 

3440 

;<ESC>-<LOWER CASE D> CODE 

57 2 8 

OOFO 

• 

• • 

FICODF EQU 

3600 

;F1 CODE 

5 729 

OOF 7 

• 

• • 

K8C0DF EQU 

36 70 

? Fb CODF 

5730 

OlEO 

• 

• • 

fCTBOl EqU 

FI CODE* 2 

; FUNCTION CODE ADJUSTMENT 

5731 

FFDF 

• 

• • 

FCTADJ FQU 

-FCTADl/256*256+FCTA01-l ? FACTOR 

5732 

OOFD 

• 

• • 

STF0R2 EQU 

3750 

; SET FOREIGN MODE STEP 2 

5733 

OOFE 

• 

• • 

STFORl FQU 

3760 

; SET FOREIGN MODE STEP l 

5734 

OOFF 

• 

• • 

ENBNCF EQU 

3770 

? ENHANCE DISPLAY FUNCTION 

5735 

1 4CE 

• 

• • 

.***********♦********************** 

5 7 36 

14CE 

• 

• * 

; FUNCTION 

ADDRESSES 

FOP I/O KEYS * 

5737 

14CE 

• 

• • 

.*************** ******** *********** 

5738 

14CE 

• 

• • 

10KYTB EQU 

$ 


5739 

1 4CE 

02 

28 . 

Dw 

IOCKEY 

; I/O CONTROL KEY 

5740 

14D0 

05 

28 . 

DW 

REDKEY 

; READ KEY 

5741 

1402 

OB 

28 . 

Dw 

RFCKEY 

; RECORD KEY 

5742 

1404 

OE 

28 . 

Dw 

SELKEY 

? SELECT KEY 

5743 

1 4D6 

14 

28 . 

Dw 

CONDTN 

/CONDITION TAPES 

5744 

1 4D8 

08 

28 . 

Dw 

CTLPED 

; (CONTROL) READ KEY 
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it 

ii 
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ii 
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57 46 

1 4D A 

• 

• 

• 

• 

9 




5747 

14DA 

• 

• 

• 

; DISPLAY 

STRINGS FOR SOFT KEY DISPLAY 


5748 

1 40 A 

• 

• 

• 

9 




5749 

1 4D A 

• 

• 

• 

AT6LIN 

EQU 

$ 


5750 

1 4DA 

cc 

20 

IB 


DB 

EOL,ABLNK,ESC,ENDPR 


5751 

1 4DE 

• 

• 

• 

• 

9 




5752 

1 40E 

cc 

CO 

• 


DB 

EOL,STPR 


5753 

1 4E0 


# 

• 

ATB010 

equ 

$ 


57 54 

1 4E0 

54 

C8 

Cl 


DB 

‘ T # , SFKYAT , ENDPR , # ' 


5755 

1 4E4 

80 

30 

66 


DB 

NORMAL, 'O' , 146Q,INVRS,0 


5756 

0008 

• 

• 

• 

ATBLGC 

EQU 

S-AT6010-1 ; ATTRIBUTE LOCATION IN BLK 

5757 

000E 

• 

• 

• 

ATBLEN 

EQU 

$ - ATBH N - 1 ATTRIBUTE LINE 

LENGTH 

5758 

0002 

• 

• 

• 

CHRLUC 

EQU 

2 ?CHARACTER LOCATION IN STPIN 
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5760 

1 4E9 

• 

• 

• 

************** ********************************* 

5761 

1 4E9 

• 

• 

• 


FNDTAB - 

FIND TAB 

MASK * 

5762 

1 4E9 

• 

• 

• 


EXIT: L,H 

= ADDP 

OF BYTE CONTAINING TAB BIT * 

5763 

14&9 

• 

• 

• 


A = 

MASK FOP TAB BIT * 

5764 

1 4£9 

• 

• 

• 


*********************************************** 

5765 

l 4E9 

• 

• 

• 

l 

■'NDTAB EQU 

$ 


5766 

14E9 

3 A 

Cl 

FF 


LDA 

CURCOL 

; GET CURSOR COLUMN 

5767 

1 4EC 

47 

• 

• 


MOV 

B,A 

;SAVE IN B 

5766 

1 4ED 

• 

• 

• 

1 

'NDTB1 FQU 

$ 


5769 

1 4 ED 

E6 

F 8 

9 


AN I 

3 70Q 

; MASK OFF 3 LSB'S 

5770 

1 4EF 

OF 

• 

• 


RRC 


; RIGHT-ADJUST MSB'S 

5771 

1 4F0 

OF 

• 

• 


RKC 



5772 

1 4F 1 

OF 

• 

• 


RRC 



5773 

1 4F2 

C6 

78 

• 


ADI 

HTBTBL 

;ADD BASE OF TAB TABLE 

5774 

1 4F4 

6F 

• 

• 


MOV 

L , A 

;SAVE IN L 

5775 

1 4F5 

78 

• 

• 


MOV 

A,B 

; GET CURSOR COLUMN 

5776 

1 4F6 

06 

07 

• 


ANI 

7 

; GET 3 LSB'S 

5777 

14F8 

4 7 

• 

• 


MOV 

B, A 

;SAVE IN B 

5778 

14F9 

04 

• 

• 


I NR 

B 

? ADJUST BIT NUMBER 

577 9 

1 4FA 

• 

• 

• 


;********************* 

5780 

1 4FA 

• 

• 

• 


FNDTB2 - 

SET BIT 

N * 

5781 

1 4F A 

• 

• 

• 


.********************* 

5782 

1 4FA 

• 

• 

• 





5783 

1 4FA 

• 

• 

• 


ENTRY: 

B = BIT 

NUMBER TO BE SET 

5784 

14FA 

• 

• 

• 





5785 

14FA 

• 

• 

• 


EXIT : 

A = BYTE 

WITH BIT N SET 

5786 

1 4F A 

• 

• 

• 



B = 0 


5787 

1 4F A 

• 

• 

• 





5788 

1 4F A 

• 

• 

* 

1 

r NDTB2 EQU 

$ 


5789 

1 4FA 

3E 

80 

• 


M V T 

A,200Q 

; SET BIT 7 OF A 

5790 

1 4FC 

• 

• 

• 

f 

r TB100 EQU 

S 


5791 

1 4FC 

07 

• 

• 


RLC 


; SHIFT LEFT 1 POSITION 

5792 

14FD 

05 

• 

• 


DCR 

B 

; DECREMENT BIT COUNT 

5793 

14FE 

C 2 

FC 

14 


JNZ 

FTB100 

JCONTINUE IF NOT DUNE 

5794 

1501 

C9 

• 

• 


RET 


; RETURN 
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5796 

1502 

• 

• 

• 

;********** ** * * * * * * * 



5797 

1502 

• 

• 

• 

; EXIT FORMAT MODE * 



5798 

1502 

• 

• 

• 

;************ ******* 



5799 

1502 

• 

• 

• 

FORMOF EgU 

$ 



5800 

1502 

3E 

08 

• 

M VI 

A , FORMAT 

;SET 

BIT TO BE CLEAPED 

5801 

1504 

32 

C2 

FF 

STA 

PROF LD 

; SET 

PROTECT FLAG FOR UNPROT 

5802 

1507 

C3 

11 

48 

JMP 

ZCLMD1 

; CLEAR FORMAT MODE FLAG 
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ii 

it 

it 

ii 

ii 

ii 

ii 

n 
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ii 

»i 

if 

ii 

ii 

ii 

ii 

H 

II 
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II 

II 

II 

II 

5804 

1 50 A 

• 

• 

• 

• I********************************************* 

5805 

1 50A 

• 

• 

• 

; FRECNT - CHECK THE 

NUMBER OF FREE BLOCKS * 

5806 

1 50 A 

• 


• 

• 

9 


* 

5807 

1 50 A 

* 

• 

• 

; EXIT: Z=F, 

WOT ENOUGH FREE bLOCKS * 

5808 

150 A 

* 

• 

• 

• 

9 

Z = T , 

ENOUGH FREE BLOCKS * 

5809 

1 50A 

• 

• 

• 

;********************************************* 

5810 

1 50 A 

• 

• 

• 

FRECNT EQU $ 



5811 

1 50A 

06 ' 

19 

• 

MVI 

B,25 

; SET DESIRED NUMBER OF BLOCK 

5812 

150C 

11 

AA 

FF 

LXI 

D , FRBLKS- 

2 ;SET TO FREE LIST HEAD 

5813 

150F 

• 

• 

• 

FRC010 EQU 

$ 


5814 

150F 

EB 

• 

• 

XCHG 


; SET H , L TO ADDRESS OF LSB 

5815 

1510 

23 

• 

• 

TNX 

H 

; P A R T OF PREVIOUS LINE 

581b 

1511 

23 

• 

• 

InX 

H 

? POINTER 

5817 

1512 

7 E 

• 

• 

MOV 

A,M 

; GET LSB OF NEXT LINE LINK 

5818 

1513 

B7 

• 

• 

OHA 

A 

; ANY MOPE FREE BLOCKS? 

5819 

1514 

CA 

30 

15 

JZ 

FRC100 

; NO - TP? TO GET MORE 

5820 

1517 

05 

• 

• 

DCP 

B 

; ENOUGH FREE BLOCKS? 

5821 

1519 

C8 

• 

• 

RZ 


; YES - RETURN SUCCESSFUL 

5822 

1519 

CD 

6D 

19 

CALL 

chain 

; NO - GET NEXT LINE ADDRESS 

5823 

1 5 1C 

54 

• 

m 

MOV 

D,H 

; SAVE NEXT LINE ADDRESS IN 

5824 

1 5 1 D 

5D 

• 

m 

MOV 

E , L 

;d,e 

5825 

1 5 IE 

• 

• 

0 

FRC050 FQU 

$ 


5826 

1 5 1 E 

E6 

FO 

• 

ANI 

360Q 

? COMPUTE ADDRESS OF NEXT 

5827 

1520 

6F 

• 

• 

MOV 

L f A 

? BLOCK LINK 

5828 

1521 

7E 

• 

• 

MOV 

A f M 

; GET THE LSB OF THE LINK 

5829 

1522 

2F 

• 

• 

CM A 

;a 

IS IT AN EOL LINK (LONER 

5830 

1523 

Eo 

OF 

• 

AN I 

BLKSM 

?FQUR BITS NOT ALL ONES)? 

5831 

1525 

C2 

OF 

15 

JNZ 

FRC010 

; NO - GO TO THE NEXT LINE 

5832 

1528 

05 

• 

• 

DCR 

B 

; ENOUGH FREE BLOCKS FOUND? 

5833 

1529 

C8 

• 

• 

RZ 


; YES - RETURN SUCCESSFUL 

5834 

152 A 

CD 

6D 

19 

CALL 

CHAIN 

?NO - GO TO THE NEXT BLOCK 

5835 

152D 

C3 

lfc 

15 

JMP 

FRC050 

; CHECK FOR END OF LTNF 

5836 

1530 

• 

• 

• 

********** *4 

******************************** 

58 3 7 

1530 

• 

• 

• 

; NOT ENOUGH FREE BLOCKS - TRY TO GET MORE * 

5838 

1530 

• 

• 

• 

.********************♦*******************♦** 

5839 

1530 

• 

• 

• 

FPC100 EQU 

$ 


5840 

1530 

CD 

13 

06 

CALL 

PTBLK 

; REMUVE A LINE FROM DISPLAY 

5841 

1533 

C2 

OA 

15 

JNZ 

FRECNT 

; RECOUNT IF LINE FREED 

5842 

1536 

3C 

• 

• 

IwR 

A 

; (FORCE NZ) 

5843 

1537 

C9 

• 

• 

PET 


; RETURN FAIL OTHERWISE 
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5845 1538 • . • ; *jm************#***»***#****»+**************** 

5846 1538 . ; FRNCT1 - FOREIGN MODE CONTROL 1 l<ESC>-"<") * 

5847 1538 ... « ***************** ***************************** 

5846 1538 . . . FRNCT1 EQll $ 

5849 1538 3E OE . MVT A , FRNMD1 ;SET KEYBOARD FOREIGN MODE 1 

5850 1 5 3 A C3 08 48 JMP ZKBCTL 

5851 153D . . . ; ********************************************** 

5852 1 5 3D ... ; FRNCT2 - FOREIGN MODE CONTROL 2 (<KSC>-">" ) * 

5853 153D • • • ;********************************************** 

5854 1 5 3D . • . FRNCT2 EOU S 

5855 153D 3E OF . MVI A,FRNMD2 ?SET KEYBOARD FOREIGN MODE 2 

5856 1 5 3F C3 08 48 JMP ZKBCTL 
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5858 

1542 

• 

• 

* 

• 9 



5859 

1542 

• 

• 

. ? * * 

* * * 

******************* 

5860 

1542 

• 

• 

• 

• 9 



5861 

1542 

• 

• 

. i GTFCTK - 

GET FUNCTION KEY 

5862 

1542 

• 

• 

• 

• 9 



5863 

1542 

• 

• 

• 9 

ENTRY 

: DOF^'T CAPE 

5864 

1542 

• 

• 

m 

• 9 



5865 

1542 

• 

• 

• 9 

EXIT 

: NZ - FUNCTION KEY CHAR AVAILABLE 

5866 

1542 

• 

• 

• 

• 9 


A = C = FUNCTION KEY CHARACTER 

5867 

1542 

* 

• 

• 

• 9 


Z - NO FUNCTION KEY CHAR AVAILABLE 

5868 

1542 

• 

• 

9 

• 9 


DFLGS ( FCTK2D ) = 0 

5869 

1542 

• 

* 

9 

• 9 


A DESTROYED 

5870 

1542 

• 

• 

• 9 


D-L DESTROYED 

5871 

1542 

• 

• 

• 9 



5872 

1542 

• 

• 

. GTFCTK 

EQU 

$ 

5873 

1542 

2 A 

A4 

FF 

I.HLD 

CURFKY ; GET LAST FUNCTION KEY 

5874 

1545 

• 

* 

• 

• 9 


CHARACTER ADDRESS 

5875 

1545 

CD 

86 

OB 

CALL 

NXTCHO ; GET THE NEXT CHARACTER 

5876 

1548 

C2 

53 

15 

JNZ 

GTFO10 ?EOL LINK - DO FOL EXIT 

5877 

1 54B 

EB 

• 

• 

XCHG 


5878 

1 54C 

22 

A4 

FF 

SHLD 

CURFKY ? STORE NEW ADDRESS 

5879 

1 54F 

FE 

80 

• 

CPI 

ADEL+1 ; IS CHARACTER ASCII? 

5880 

1551 

4F 

• 

• 

MUV 

C,A ; (PUT DATA IN C-REGISTER) 

5881 

1552 

F8 

• 

• 

RM 

; YES - RETURN 

5882 

1553 

• 

• 

• 

• 9 



5883 

1553 

• 

• 

. ? EOL 

FOUND - CLEAR FCTK2D FLAG 

5884 

155 3 

• 

• 

* 

• 9 



5885 

1553 

• 

• 

• GTF010 

Eyu 

$ 

588o 

1553 

3E 

EF 

• 

MV I 

A , 377Q-FCTK2D 

5887 

1555 

CD 

01 

16 

CALL 

CLRDFL ; CLEAR FLAG FROM FLAG WORD 

5888 

1558 

BF 

• 

a 

CMP 

A ; SET Z TRUE 

5889 

1559 

C9 

• 

• 

RET 

; RETURN 



II 

II 

II 

II 

if 
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5891 

1 55 A 

• 

• 

• 

************ ****** ********** 


5892 

1 55 A 

• 

• 

• 

; HTBSET - TAB SET ROUTINE * 


5893 

1 55 A 

• 

• 

• 

;*************************** 


5894 

1 55 A 

• 

• 

• 

HTBSET EQU $ 


5895 

1 55 A 

CO 

E9 

14 

CALL FNDTAB f GET TABLE ENTRY 

FOR COLUMN 

5896 

155D 

B6 

• 

• 

ORA M ; SET TAR 


5897 

1 55E 

77 

• 

• 

MOV M„A 


5898 

1 55F 

C9 

• 

• 

RET ?RETURN 


5899 

1560 

• 

• 

• 

, ***************************** 


5900 

1560 

• 

• 

• 

? HTBCLR - TAB CLEAR ROUTINE * 


5901 

1560 

• 

• 

• 

****************************** 


5902 

1560 

• 

• 

• 

HTBCLR EQU $ 


5903 

1 5b0 

CD 

E9 

14 

CALL FNDTAB ? GET TABLE ENTRY 

FOR COLUMN 

5904 

1563 

EE 

FF 

• 

Xkl 377Q ; COMPLEMENT MASK 

5905 

1565 

A6 

• 

• 

ANA M ; CLEAR TAB 


5906 

1566 

77 

• 

• 

MOV M, A 


5907 

1567 

C9 

• 

• 

RET ; RETURN 
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ii 

H 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 
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it 
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II 

II 

II 

ii 

H 

ii 

M 

II 

ii 

II 

li 

II 

II 

II 

II 

II 

II 

li 

II 

li 

li 

ti 

II 

II 

II 

II 

II 

II 

li 

ii 

li 

li 

II 

II 

li 

5909 

1568 

• 

• 

• 

.*************************♦****************** 

5910 

1568 

• 

• 

• 

/ IOBNGO - 

FAST BINARY READ ESCAPE SEQUENCE * 

5911 

1568 

• 

• 

* 

;***4^**jM*********************** ************ 

5912 

1568 

• 

• 

• 

IOBNGO EQU 

$ 

5913 

1568 

21 

2C 

28 

LXI 

H , CTDCDP ; EXECUTE FAST BINARY READ 

5914 

156R 

C3 

93 

15 

JMP 

10RMG0 ? IF 1/U ROM PRESENT 

5915 

1 5bE 

• 

• 

• 

• if**************************** 

591b 

156E 

• 


• 

? 10BS YC - 

W A 1 1 FOR CTU IDLE * 

5917 

1 5bE 

• 

• 

• 

.********^******************* 

591b 

1 56E 

• 

• 

• 

10BSYC EQU 

$ 

5919 

1 56E 

21 

3 A 

28 

LXI 

H , BSYCHK ; GO TO CTU BUSY CHECK 

5920 

1571 

CD 

93 

15 

CALL 

IORMGO ; ROUTINE 

5921 

1574 

3 A 

55 

FF 

LD A 

CMNO ; GET CURRENT CTU COMMAND 

5922 

1577 

£6 

01 

• 

AM 

RUN / TAPE STILL RUNNING? 

5923 

1579 

C 8 

• 

• 

RZ 

; NO - RETURN 

5924 

1 57 A 

32 

4F 

FF 

ST A 

10CERR ;YES - CLEAR "IOCERR" 

5925 

1 57D 

C3 

6E 

15 

JMP 

IOBSYC ; CONTINUE WAITING 

592b 

1580 

• 

• 

• 

•****:M********************************* 

5927 

1580 

• 

• 

• 

; 10CTG0 - 

I/O CONTROL ESCAPE SEQUENCE * 

5928 

1580 

• 

• 

• 

j*****^**************:************** * * * * 

5929 

15 80 

• 

• 

• 

incTGO equ 

$ 

5930 

1580 

21 

1A 

28 

LXI 

H , IQCNTL /EXECUTE I/O CONTROL ESCAPE 

5931 

1583 

C3 

93 

lb 

JMP 

IORMGO ? SEQ IF 1/U ROM PRESENT 

5932 

1586 

• 

• 

• 

; *** ****4^******** ********* ********* 

5933 

1586 

• 

• 

• 

/ 1QCTMN - 

MONITOR CARTRIDGE TAPES * 

5934 

1586 


• 

• 

.*********************************** 

5935 

1586 

• 

• 

• 

IOCTMN EQU 

$ 

5936 

1586 

21 

2F 

28 

LXI 

H,CTMON ; GET MONITOR ADDRESS 

5937 

1589 

C3 

93 

15 

JMP 

IORMGO ; EXECUTE IF CODE PRESENT 

5938 

1 58C 

• 

• 

• 

.*********************** 

5939 

1 58C 

• 

• 

• 

; 10KF.1S - 

I/O KEY HIT * 

5940 

1 58C 


• 

• 

.*********************** 

5941 

1 58C 


• 

• 

i 


5942 

1 58C 

• 

• 

• 

/ ENTRY: 

D,E = KEY INDEX 

5943 

1 58C 

• 

• 

• 

» 


5944 

1 58C 

• 

• 

• 

IOKEYS EQU 

$ 

5945 

1 58C 

21 

C8 

14 

LXI 

H t IOKYTB-6 

5946 

1 58F 

19 

• 

m 

DAD 

D /COMPUTE KEY FUNCTION ADORES 

5947 

1590 

CD 

6D 

19 

CALL 

CHAIN /EXECUTE KEY FUNCTION IF I/O 

5948 

1593 

• 

• 

• 

• 

9 

ROM PRESENT 



ITEM 

5950 

5951 

5952 

5953 

5954 

5955 

5956 
595 7 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 
596b 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 


::::::: 

LOC 

1593 

1593 

1593 
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OBJECT CODE SOURCE STATEMENTS PAGE 173~ 

***************** ************************** 

IORMGO - PERFORM FUNCTION IF OPTION ROMS * 

ARE PRESENT * 


1593 

• 

9 

9 


****************** ************************** 

1593 

• 

• 

9 




1593 

• 

• 

9 


ENTRY: 

H,L = VECTOR TO BE ENTERED 

1593 

• 

• 

9 




1593 

• 

• 

• 


EXIT : 

NC - FUNCTION EXECUTED 

1593 

• 

• 

9 



REGISTERS SET ACCORDING TO FUNCTION 

1593 

• 

• 

9 



C - FUNCTION NOT EXECUTED 

1593 

• 

• 

9 



A DESTROYED 

1593 

• 

• 

9 




1593 

• 

• 

9 

10RMG0 EOU 

$ 

1593 

E5 

• 

9 


PUSH H ? PUT FUNCTION ADDR ON STACK 

1594 

2E 

00 

9 


MV I 

L,0 JCHECK ROM START LOCATION 

1596 

CD 

A3 

15 


CALL I0RMG1 ?DQES ROM EXIST? 

1599 

C8 

• 

9 


RZ 

t YES - EXECUTE FUNCTION 

1 59 A 

21 

59 

OF 


LX I 

H t NODR VR JNO - SET ERROR MESSAGE TO 

1 59D 

22 

FI 

FF 


SHLU 

MSGPTt ; "NO DEVICE DRIVER” 

1 5 AO 

El 

• 

9 


POP 

H ; RESTORE STACK 

15A1 

37 

• 

9 


SIC 

; RETURN FUNCTION NUT 

1 5A2 

C9 

• 

9 


RET 

; EXECUTED CC-TRUE) 

15A3 

• 

• 

9 


********** **************** ****************** 

1 5 A3 

• 

• 

9 


I0RMG1 - 

CHECK FOR PRESENCE OF OPTION ROM * 

1 5 A3 

• 

• 

9 


************** ****************************** 

1 5 A3 

• 

• 

9 




1 5 A 3 

• 

• 

9 


ENTRY: 

H , L = RUM STARTING ADDRESS 

1 5A3 

9 

• 

9 




1 5 A3 

• 

• 

9 


EXIT : 

Z => ROM EXIST 

1 5 A3 

• 

• 

9 



H,L = H,L(ENTRY)+1 

1 5 A3 

• 

• 

9 



NZ => RUM ABSENT 

1 5A3 

• 

• 

9 



A DESTROYED 

1 5A3 

• 

• 

9 



H , L = H,L (ENTRY) => ROM ABSENT 

1 5A3 

9 

• 

9 



H,L = H,L(ENTRY)+1 => WRONG ROM 

1 5 A3 

• 

• 

9 




1 5 A3 

• 

• 

9 

I0RMG1 EQU 

3 

1 5 A3 

7E 

• 

9 


MOV 

A,M ; GET FIRST ROM BYTE 

1 5 A4 

E6 

FO 



ANT 

3600 ;CHRCK UPPER 4 BITS ONLY 

15A6 

FE 

50 

9 


CPI 

P ?IS IT An UPPER CASE P? 

15A8 

CO 

• 

9 


RNZ 

;NQ - RETURN ROM ABSENT 

15A9 

23 

9 

9 


IN X 

H ? YES - CHECK. SECOND BYTE 

1 5AA 

7E 

• 

9 


MOV 

A,M ; SECOND BYTE OF ROM SHOULD 

15AB 

BC 

• 

9 


CMP 

H ? EQUAL HIGH ORDER EIGHT 

1 5 AC 

C9 

• 

9 


RET 

;BI1S IN ITS PROPER ADDRES 

1 5 AD 

a 

9 

9 

• 

9 


RANGE 



13255-90003 


ITEM 

LOC 

5996 

15AD 

5997 

1 SAD 

5998 

1 5 AD 

5999 

1 5 AD 

6000 

1 5 AD 

6001 

1 5 AD 

6002 

15 AD 

6003 

1 5 AD 

6004 

1 SAD 

6005 

1 5B0 

6006 

1 5b3 

6007 

1 5B5 

6008 

1587 

6009 

15BA 

6010 

1 SBB 

6011 

158D 

6012 

1SBF 

6013 

L5C2 

6014 

1 5C 3 

6015 

15C6 

6016 

1 5C7 

6017 

ISC A 

6018 

1 SC A 

6019 

t SC A 

6u20 

1 5C A 

6021 

1 5CB 

6022 

1 SCO 

6023 

15CE 

6024 

1 SO 1 

6025 

1 5D 1 

6026 

1 5D 1 

6027 

15D2 

6028 

15D3 

6029 

1SD6 

6030 

1 5D6 

6031 

15D7 


Rev AUG-01-76 


OBJECT CODE SOURCE STATEMENTS 

* . ************************************* 
\ \ ‘ ; 10INTP - I/O INTERRUPT PROCESSING * 

************************************* 


;:s:ss:s::s: 


PAGE 174 


ENTRY: M PSW" AND H,L PUSHED 

A = INTERRUPT CODE 


CD 
3 A 
F6 
D3 
21 
6E 
E6 
03 
3 A 
A5 
FA 
87 
FA 


65 

91 

F5 

FF 

40 

• 

70 

• 

DO 

8 7 

• 

BF 

• 

• 

70 

• 

7F 

FE 

3D 

28 

• 

08 

• 

60 


• • 

70 . 

06 40 

B7 . 
CA D6 


15 


• • 

04 . 

07 . 

02 01 


15 


78 


IOIN1R EUU 

$ 


CALL 

INTVEC 

; CHECK ALTERNATE INTERRUPT 

I, DA 

PRCCTL 

; GET CURRENT PROCESSOR STATE 

ORI 

POLL 

; POLL THE I/U BOARDS TO FIND 

OUT 

PROCSR 

; OUT WHO INTERRUPTED 

LXI 

H , IOCRCL 

; DO DUMMY I/O READ TO GET 

MOV 

L f M 

;POLL RESPUNSF. 

AN I 

3770-POLL 


OUT 

PROCSR 

; RESTORE PROCESSOR STATE 

LDA 

devflg 

f GET POLL DEVICE FLAG 

ANA 

l' 

; DEVICE DRIVER PRESENT? 

JM 

CT1NTP 

; CTU - DO CTU ROUTINE 

ADD 

A 

; ALTERNATE I/O INTERRUPT? 

JM 

ZINTAL 

; YES - GO CHECK INTERRUPT 

.****% ****************************** ******* 

; INVALID DEVICE INTERRUPT - REPORT ERROR * 

l %*** ********* ***************************** 

MOV 

A , L 

; RECALL POLL RESPONSE 

MVI 

B,ATSIGN 

; COMPUTE ERROR CODE 

ORA 

A 

; AN Y DEVICE INTERRUPTED? 

JZ 

101020 

; NO - DON'T BOOK FOR PIT 

• 

9 


YES - DETERMINE DEVICE 

ioio io F.yu 

$ 


INR 

B 

; INCREMENT ERROR CODE 

RLC 


; DEV ICE TYPE FOUND? 

JNC 

101010 

; NO - CONTINUE LOOKING 

101020 EOU 

$ 

; YES - SET ERROR CODE 


MQV A,B 

9 


FALL INTO ERROR REPORTER 
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ITEM 

LOC 

OBJECT 

CODE SOURCE STATEMENTS 

PAGE 175 


n 

ti 

H 

ii 

H 

n 

it 


:s:s 


:s:ss:ss:s 

ii 

ii 

ii 

it 

ii 

n 

it 

it 

ii 

ii 

ii 

ii 

ii 

H 

II 

It 

II 

II 

11 

II 

II 

11 

II 

II 

If 

II 

II 

It 

II 

6033 

15D7 


• 

• 

********************************************* 

6034 

15U7 

• 

• 

• 

IN TERR - 

REPORT INVALTO INTERRUPT OCCURRED * 

6035 

1 5D7 

• 

• 

• 

.********************************************* 

6036 

1 5D7 

9 

• 

• 




603 1 

1507 

9 

• 

• 

ENTRY; 

A r ERROR 

CODE (ASCII CHARACTER) 

6038 

15D7 

9 

• 

• 




6039 

1507 

9 

• 

• 

INTERR EgiJ 

$ 


6040 

1507 

21 

DE 

FF 

LXI 

H , 100 AT A 

;SET ERROR CODE I 1 OR ERROR 

6041 

1 5DA 

22 

EF 

FF 

SHOD 

MSGPT2 

? MESSAGE 

6042 

150D 

77 

• 

9 

MOV 

M, A 


6043 

150E 

23 

• 

9 

INX 

H 


6044 

1 5DF 

36 

CE 

• 

M VI 

M , EOP 


6045 

15EI 

21 

3F 

OF 

LXT 

rt , INERMS 

? REPORT INTERRUPT ERROR 

6046 

1 5E4 

At* 

• 

• 

XRA 

A 

? STOP ANY CTU MOTION 

6047 

1 5E5 

32 

00 

8B 

STA 

IOCTCO 


6048 

1 5E8 

C 3 

54 

12 

JMP 

HANGUO 

; AND HANG TERMINAL 

6049 

1 5EB 

0 

• 

• 

****************************************** 

6050 

1 5EB 

9 

• 

• 

INTRPT - 

PROCESS UNEXPECTED INTERRUPTS * 

6051 

1 5EB 

9 

• 

• 

.***************************************** 

6052 

1 5EB 

9 

• 

• 




6053 

1 5EB 

9 

• 

• 

ENTRY: 

M PSW” PUSHED 

6054 

15EB 

9 

9 

m 


A a INTERRUPT CODE 

6055 

1 5EB 

9 

9 

9 


C-FLAG CLEARED 

6056 

15EB 

9 

9 

9 




605 7 

1 5EB 

9 

9 

9 

INTRPT EDO 

$ 


6058 

1 5EB 

CD 

65 

91 

CALL 

IMTVEC 

; AN Y INTERRUPT HANDLER? 

6059 

15EE 

02 

07 

15 

JNC 

INTERR 

; NO - REPORT ERROR 

6060 

15F1 

FI 

• 

• 

POP 

PS* 

; YES - RESTORE PSW 

6061 

1 5F2 

FB 

9 

• 

Ei 


; RE-ENABLE INTERRUPTS 

6062 

1 5F3 

C9 

9 

9 

RET 


; RETURN TO INTERRUPTED CODE 
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ITEM LQC OBJECT CODE SOURCE STATEMENTS PAGE 176 


6064 

1 5F4 

• 

• 

• 

************************************ 

6065 

1 5F4 

• 

# 

• 

IOINTR - I/O INTERRUPT PROCESSING * 

6066 

1 5F4 

• 

• 

• 

************************************ 

6067 

1 5F4 

• 

• 

• 


6068 

1 5F4 

• 

• 

• 

KEYBOARD ENABLE * 

6069 

1 5F4 

• 

• 

• 

****************** 

6070 

1 5F4 

• 

• 

. KBEN EOU $ 

6071 

1 5F4 

3 A 

6E 

FF 

I. DA DFLGS 

6072 

1 5F7 

E6 

40 

• 

ANT KbOLOK ? KEYBOARD LOCKED BY ESC SEQ? 

6073 

15F9 

CO 

• 

• 

RNZ ; YES - DU NOT UNLOCK KEYBOARD 

6074 

1 5FA 

• 

• 

• 

• 9 

6075 

1 5F A 


• 

. KBEN 1 EQU S 

6076 

1 5F A 

3E 

02 

• 

M V I A,UNLKKB ;UNLUCK THE KEYBOARD 

6077 

1 5FC 

CD 

08 

48 

CALL ZKBCTL 

6078 

15FE 

3E 

BF 

• 

MV I A , 377Q-KBDLOK ? CLEAR LOCKED FLAG 

6079 

1601 

• 

• 

• 


6080 

1601 

• 

• 

• 

CLRDFL - CLEAR DATA TRANSFER FLAGS 

6081 

1601 

• 

• 

• 


6082 

1601 

• 

• 

• 

ENTRY: A s FLAGS TO BE CLEARED 

6083 

1601 

• 

• 

• 


6084 

1601 

• 

• 

. CLRDFL EQU $ 

6085 

1601 

21 

6£ 

FF 

LX I H, DFLGS 

6086 

1604 

Ab 

• 

• 

ANA M ; MASK OUT FLAGS 

6087 

1605 

• 

• 

• 


6088 

1605 

• 

• 

• 

STOREA - STORE VALUE N A-hEG AND RETURN 

6089 

1605 

• 

• 

• 


6090 

1605 

• 

• 


ENTRY: A = VALUE TU BE STORED 

6091 

1605 

• 

• 

• 

H,L = LOCATION TO BE STORED IN 

6092 

1605 

• 

• 



6093 

1605 

• 

• 

. STOREA EQU $ 

6094 

1605 

77 

• 

• 

MOV M,A ; STORE UPDATED VALUE 

6095 

1606 

C9 

• 

• 

RET ; RETURN 

6096 

1607 

• 

• 


.**************** 

6097 

1607 

• 

• 


? KEYBOARD LOCK * 

6098 

1607 

• 

• 


.**************** 

6099 

1607 

• 

• 

. KBLOKO EOU $ 

6100 

1607 

3E 

40 

• 

MV I A , KBDLUK ?SET ESCAPE SEQUENCE LOCK 

6101 

1609 

CD 

11 

17 

CALL SETDFL ; FLAG 

6102 

160C 

• 

• 

• 

• 

9 

6103 

160C 

• 

• 

. KBLOK EQU S 

6104 

160C 

3E 

01 

• 

MV I A , LOCKKB ?LOCK THE KEYBOARD 

6105 

1 6QE 

C 3 

08 

48 

JMP ZKBCTL 
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II 

II 

il 

II 

II 

It 

it 

ii 

n 

ii 

ii 

ti 

ti 


assr 

53S5SS 

;5:::::s3:ss3s:ss;s:ss:sss:s:s:sssss:s:s::s::;:srss 

1 TEM 

LQC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 177 

H 

it 

ii 

it 

ii 

:xs=s:: 

S £ £2 5 

rrsss 

xsxsss 

:s:::s:sr:s:3:rss::s:3s::c:s:::5:ss::s:s::s:s::::sr 

6107 

1611 

• 

9 

9 

;***************************** 

6108 

1611 

9 

9 

9 

? ESC & LOWER CASE B * 

6109 

1611 

• 

9 

9 

? BINARY LOADER * 

6110 

1611 

9 

9 

9 

? A SET ADDRESS = DIGITS * 

6111 

1611 

9 

9 

9 

; C COMPARE CHECKSUM * 

6112 

1611 

• 

9 

9 

; D STORE BYTE * 

6113 

1611 

9 

9 

9 

; INCREMENT ADDRESS * 

6114 

1611 

9 

9 

9 

; E CALL ADDRESS * 

6115 

1611 

9 

9 

9 

? DIGITS 1,2, 3,4, OR 5 * 

6116 

1611 

9 

9 

9 

****************************** 

6117 

1611 

9 

9 

9 

LOADR EQU $ ? INITIAL ENTRY 

6118 

1611 

3E 

18 

9 

MV I A , MAXROW* 1 

6119 

1613 

32 

CO 

FF 

STA CURROW ? SET CURSOR OFF THE SCREEN 

6120 

1616 

21 

4 A 

OF 

LAI ri , LDRMSG 

6121 

1619 

CD 

D6 

1C 

CALL DSPMSO ; DISPLAY THE LOADER MESSAGE 

6122 

16 1C 

9 

9 

9 

LOADR1 EQU $ ; ENTRY TO NOT DISPLAY MESSAG 

6123 

16 1C 

21 

00 

00 

LX I H , 0 ? CLEAR CHECKSUM ACCUMULATOR 

6124 

1 6 1 F 

22 

D7 

FK 

SHLD LCHKSM 

6125 

1622 

3E 

04 

9 

MV I A, FRCPS f ; SET FORCE RESET FLAG 

6126 

1624 

CD 

00 

14 

CALL STCMFL 

6127 

1627 

9 

9 

9 

LDRO EQU $ 

6128 

1627 

3A 

88 

FF 

LDA CHAR ; RECALL INPUT CHARACTER 

6129 

1 62 A 

E6 

20 

9 

AN I 40 Q ; IS IT UPPER CASE? 

6130 

162C 

3E 

FB 

9 

MV I A , 37 7 Q-FRCRST 

6131 

1 62E 

CA 

DC 

13 

JZ CLCMFL ;YES - CLEAR FORCE RESET AND 

6132 

1631 

9 

9 

9 

; EXIT ESCAPE SEQUENCE 

6133 

1631 

21 

9C 

27 

I.XI H,LDRTAB ;NO - SET LOADER FUNCTION 

6134 

1634 

3E 

08 

9 

MV I A , UCTRDX ? SET FOR OCTAL RADIX 

6135 

1636 

C 3 

81 

04 

JMP ESCAPO 

6136 

1639 

• 

9 

9 

• 

9 

6137 

1639 

9 

9 

9 

; <A> - ADDRESS PARAMETER - SET ADDRESS 

6138 

1639 

• 

9 

9 

9 

9 

6139 

1639 

• 

9 

9 

LDR3 EQU $ 

6140 

1639 

2 A 

DE 

FF 

< LHLD LDATA ; GET ACCUMULATED DATA 

6141 

163C 

22 

D5 

FF 

SHLD LADDK ?SET AS LOAD ADDRESS 

6142 

163F 

EB 

9 

9 

XCHG , PUT VALUE INTO D,E 

6143 

1640 

9 

9 

9 

LDRO 35 EQU $ 

6144 

1640 

2A 

D7 

FF 

LHLD LCHKSM ; ACCUMULATE CHECKSUM 

6145 

1643 

19 

9 

9 

DAD D 

6146 

1644 

22 

D7 

FF 

SHLD LCHKSM 

6147 

1647 

C3 

2? 

16 

JMP LDRO ? RETURN TO SYSTEM 


RETURN TO SYSTEM 



13255- 
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rssssssssssssssssssssssssssssas 

ITEM 

LOC 

OBJECT 

CODE £ 

iOURCE STATEMENTS 

PAGE 178 


it 

ii 

ii 

ii 

ii 

ii 

H 

II 



it 

ii 

ii 

it 

ti 

ii 

ii 

it 

ii 

ii 

it 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

H 

ii 

ii 

ti 

ii 

ii 

H 

11 

II 

11 

II 

11 

11 

II 

II 

6149 

164A 

• 

• 

• 



6150 

164A 

• 

• 

• 

<D> - DATA BYTE 

PARAMETER - STORE DATA BYTE 

6151 

1 64 A 

• 

• 

• 



6152 

1 64 A 

• 

• 

. I 

jDR4 EOU $ 


6153 

1 64 A 

2E 

DE 

• 

MV I L , LDATA 

-BASE 

6154 

1 64C 

5E 

• 

• 

MOV E , M 

; GET ACCUMULATED DATA 

6155 

1 64D 

2A 

D5 

FF 

LHLD LADDR 

; GET LOAD ADDRESS 

6156 

1650 

73 

• 

• 

MOV M , E 

; STORE THE BYTE 

6157 

1651 

16 

00 

• 

MV I 0,0 

; ZERO MSB FOR CHECKSUM 

6158 

1653 

23 

• 

• 

IN X H 

J INCREMENT AND STORE NEW 

6159 

1654 

22 

D5 

FF 

SHLD LADDR 

; LOAD ADDRESS 

6160 

1657 

C 3 

40 

16 

JMP LDR035 

; ACCUMULATE CHECKSUM 

6161 

165 A 


• 

• 

^^^4t** ********************** ****************** 

6162 

1 65 A 

• 

• 

• 

<E> - EXECUTE ENTERED CODE, WAIT UNTIL CTU'S * 

6163 

165 A 

• 

• 

• 

STOPPED BEFORE 

EXECUTING CODE * 

6164 

1 65 A 

• 

• 

• 

. ********** *********** ************************ ** 

6165 

165 A 

• 

• 

. 

LiDRObO F,gU $ 


6166 

165A 

CD 

A5 

OF 

CALL DISLN4 

; RE-ENABLE RESET KEY 

6167 

1 65D 

CD 

1 1 

50 

CALL ZGETDC 

? PURGE DATA COMM INPUT 

6168 

1660 

DC 

51 

12 

CC DCERK 

; PROCESS ERROR IF ANY 

6169 

1663 

3 A 

55 

FF 

LDA CMND 

; GET CTU COMMAND 

6170 

1666 

E6 

01 

m 

AfU RUN 

; CTU'S RUNNING? 

6171 

1668 

C2 

5 A 

16 

JNZ LDR060 

;YES - CONTINUE WAITING 

6172 

1 66B 

3E 

80 

• 

MVI A , CRTOFF ?NU - TURN OFF THE DISPLAY 

6173 

166D 

32 

20 

87 

SI A IOCRRW 


6174 

167 0 

F3 

• 

• 

DI 

; DISABLE INTERRUPTS 

6175 

1671 

2 A 

05 

FF 

LHLD LADDR 

; GET LOAD ADDRESS 

6176 

1674 

E9 

• 

• 

PCHL 

? START EXECUTION THERE 

6177 

1675 

• 

• 

• 

? 


6178 

1675 

• 

• 

• 

; <C> - CHECKSUM ENTRY 

6179 

1675 

• 

• 

• 

i 


6180 

1675 


• 

• 

LDR10 EWU $ 

; CHECKSUM ENTRY 

6181 

1675 

21 

F7 

FF 

LXI H , ERRFLG ; DEFAULT TO GOOD CHECKSUM 

6182 

1678 

7E 

• 

• 

MOV A , M 


6183 

1679 

F6 

04 

• 

OR I LDRCHK 


6184 

167B 

77 

4 

m 

MOV M , A 

; SET ERROR FLAGS 

6185 

1 67C 

2A 

DE 

FF 

LHLD LDATA 

; GET USER SPECIFIED CHECKSUM 

6186 

167F 

EB 

• 

• 

XCHG 


6187 

1680 

21 

D7 

FF 

LXI H,LCHKSM 

6188 

1683 

7B 

• 

4 

MOV A , E 

JCOMPARE TO CALCULATED 

6189 

1684 

A E 

• 

4 

XRA M 

;CHECKSUM 

6190 

1685 

4F 

• 

4 

MUV C , A 


6191 

1686 

23 

• 

4 

INX H 


6192 

1687 

7A 

• 

4 

MOV A , D 


6193 

1688 

AE 

• 

4 

XRA M 


6194 

1689 

B 1 

• 

4 

ORA C 

f DO CHECKSUMS MATCH? 

6195 

168 A 

CA 

27 

16 

JZ LDRO 

; YES - RETURN NORMAL 

6196 

168D 

C7 

• 

. 

RST ; RESET 

NO - RESFI TERMINAL 



ITEM LUC 

619 b 1 68E 

6199 168E 

6200 1 6 8E 

6201 168E 

6202 1 68E 

6203 1691 


OBJECT CODE 


• • • 

• • • 

• • • 

21 32 27 

C 3 7E 04 



;****************************************** 
; PARAMETERIZED SEQUENCES INITIAL CONTROL * 
;****************************************** 


PRMSEO EQl) & 

LXI H,PRMTAB ;SET RANGE TABLE FOR 

JMP ESCAPA ; PARAMETERIZED ESC SEQUENC 
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90003 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 180 

6205 

1694 

• 

• 

• 

;**************** 


6206 

1694 

• 

• 

• 

; START PROTECT * 


6207 

1694 

• 

• 

• 

;**************** 


6206 

1694 

• 

• 

9 

PRSTRT EQU $ 


6209 

1694 

06 

CO 

• 

MV I B , STPR 

; STORE START PROTECT CONTROL 

6210 

1696 

C 3 

B9 

16 

JMP PR0100 

? FLAG 

6211 

1699 

• 

• 

• 

***************** 


6212 

1699 

• 

• 

• 

; TRANSMIT-ONL ¥ * 


6213 

1699 

• 

• 

• 

;**************** 


6214 

1699 

• 

• 

• 

STRXMQ EQU $ 


6215 

1699 

3E 

C2 


M VI A , XMONLY 

? STORE TRANSMIT-ONLY CONTROL 

6216 

1 69B 

C3 

AO 

16 

JMP PP0010 

;flag 

6217 

1 69E 

• 


9 

*************** 


6218 

169E 

• 

• 

• 

; END PROTECT * 


6219 

1 69E 

• 

• 

• 

*************** 


6220 

169E 

• 

• 

• 

PR EK'D EQU $ 


6221 

1 69E 

3E 

Cl 

• 

M V I A,ENDPR 

; STORE END PROTECT CONTROL 

6222 

16A0 

• 

• 

• 

• 

9 


6223 

1 6A0 

• 

• 

• 

; MAKE SURE PREVIOUS CHAP IS DEFINED PROTECTED 

6224 

1 6 AO 



9 

i 


6225 

1 6A0 

• 

# 

• 

PP0010 EQU $ 


6226 

1 6A0 

32 

DB 

FF 

STA P ARM 1 

; SAVE CONTROL FLAG 

6227 

1 6A3 

3 A 

Cl 

FF 

LDA CURCOL 

; GET THE CURRENT COLUMN 

6228 

1 6 A6 

3D 

• 

• 

DCP A 

;SET TO FIND PREVIOUS COLUMN 

6229 

1 6 A7 

CD 

OB 

07 

CALL RCADRO 

; PREVIOUS COLUMN PRESENT? 

6230 

1 6A A 

FA 

14 

48 

JM ZBELL 

;NG - SOUND BELL AND RETURN 

6231 

1 6 AD 

3A 

C5 

FF 

LDA LSTFMT 

; YES - PECALL LAST FORMAT CT 

6232 

16B0 

FE 

CO 

9 

CPI STPR 

? WAS IT A START PROTECT? 

6233 

1 6B2 

C4 

94 

16 

CNZ PRSTRT 

;NO - ENTER STPR 

6234 

1 6B5 

3 A 

DB 

FF 

LDA P ARM 1 

; RECALL FORMAT CONTROL FLAG 

6235 

1668 

47 

• 

• 

MOV B f A 

; TO BE STORED 

6236 

16B9 

• 

• 

• 

• 

9 


6237 

1 6B9 

• 

• 

9 

; ENTER THE FORMAT 

CONTROL FLAG 

6238 

1 6B9 

• 

• 

9 

• 

9 


6239 

1 6B9 

• 

• 

• 

PR0100 EQU $ 


6240 

16B9 

CD 

76 

19 

CALL CHKFMS 

; FORMAT MODE? 

6241 

166C 

CO 

• 

9 

RNZ 

;YES - TERMINATE 

6242 

16BD 

78 

m 

9 

MOV A , B 

?NU - ADD CHAR TO DISPLAY 

6243 

16BE 

F5 

m 

9 

PUSH PSN 

; SAVE THE CONTROL CODE 

6244 

16BF 

CD 

EO 

21 

CALL DISPC1 

; (DISPC1 DESTROYS "LSTFMT" 

6245 

16C2 

FI 

• 

9 

POP PSW 

; RECALL CONTROL CODE 

6246 

16C3 

32 

C5 

FF 

STA LSTFMT 

; NEW ENTRY 

6247 

16C6 

C9 

• 

9 

RET 




ITEM 

6249 

6250 

6251 

6252 

625 3 

6254 

6255 

6256 

6257 

6258 

6259 

6260 
6261 
6262 

6263 

6264 

6265 

6266 

626 7 
6268 

6269 

6270 

6271 

6272 

6273 

6274 
62 75 

6276 

6277 

6278 
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LOC 

OBJECT 

CODE SOURCE STATEMENTS PAGE 181 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ssss 

sssa 



16C7 

• 

m 

• 

• 

9 

1 6C7 

• 

• 

• 

t ENTREN - ENABLE ENTER VIA ESCAPE SEQUENCE 

16C7 

• 

• 

• 

r 

16C7 

• 

• 

• ENTREN EQU $ 

16C7 

01 

00 

40 

LXI B , SENTER ; SET DISPLAY SEND PENDING 

16CA 

• 

• 

• 

FALL INTO "SBLXFO" 

1 6C A 


• 

• 

********************************************** 

1 6C A 

• 

» 

• 

SBLXFO - SET BLOCK TRANSFER FLAG FUR ESCAPE * 

16CA 

• 

• 

• 

SEQUENCE INITIATED BLOCK TRANSFERS * 

1 6C A 

• 

• 

• 

************************************** ******** 

16CA 

• 

• 

• 


1 6C A 

• 

• 

• 

ENTRY; B = FLAG TO BE SET IN "MFLGS" 

1 6CA 

• 

• 

• 

C‘ = FLAG TO BE SEX IN "MFLGS2" 

1 6CA 

• 

• 

• 


16CA 

• 

• 

• 

EXIT J ALL REGISTERS DESTROYED 

16CA 

• 

• 

• 

X -ON AND DC 2 PENDING FLAGS APE SET 

16CA 

• 

• 

• 

ACCORDING TO THE SETTINGS OF G AND H 

16CA 

• 

• 

• 


1 6C A 

• 

• 

. SBLXFO EQU $ 

1 6C A 

CD 

88 

10 

CALL CLRXON ? CLEAR BLOCK TRANSFER TRIGGE 

16CD 

• 

* 

• i 


1 6CD 

• 

• 

• i 

SBLXFA - DETERMINE DC2 HANDSHAKE MUDE FOR 

16CD 

• 

• 

• # 

MON-BLOCK MODE KEYBOARD INITIATED BLOCK 

1 6CD 

• 

• 

• t 

TRANSFERS 

1 6CD 

• 

• 

• i 


1 6CD 

• 

• 

• SBLXFA EQU $ 

16CD 

3A 

F6 

FF 

LDA KBJMPR ;GET THE STRAP SETTINGS 

1600 

E6 

40 

• 

ANI HNDSHK ;DC2 ON ALL, BLOCK TRANSFERS? 

161)2 

CA 

E2 

16 

JZ SBL010 » NO - DO NOT SET DC2 FLAG 

1605 

• 

• 

• # 

YES - FALL INTO "SBLXF1" 



13255-90003 


ITEM 

LOC 

— . • jg 55 

6280 

16D5 

6281 

1 6D5 

6282 

1 6D5 

6283 

16D5 

6284 

1605 

6285 

1 6D5 

6286 

1 6D5 

6287 

1 6D5 

6288 

1 6D5 

6289 

1 6D5 

6290 

1608 

6291 

1 6 D A 

6292 

1 6DC 

6293 

1 6 DF 

6294 

1 6E2 

6295 

1 6E2 

6296 

16E2 

6297 

1 6E2 

6298 

16E3 

6299 

1 6E3 

6300 

1 6E4 

6301 

1 6E5 

6302 

16E8 

6303 

16E9 

6304 

16EC 

6305 

16ED 

6306 

1 6 EE 

6307 

16EF 

6308 

1 6F0 

6309 

1 6 F l 

6310 

16F2 

6311 

1 6 F 3 


Rev AUG-0 1-76 


OBJECT CODE 


SOURCE STATEMENTS PAGE 1B2 

7 **^******** ************* ***************** ******* 

; SBLXFl - SET BLOCK TRANSFER FLAG FOR KEYBOARD * 
; INITIATED BLOCK TRANSFERS * 

.************♦***♦******************************* 


ENTRY: B = FLAG TO BE SET IN "MFLGS" 

C = FLAG TO BE SET IN’ "MFLGS2" 


3 A 

FB 

• 

FF 

E 6 

80 


3E 

01 

• 

CA 

F.3 

16 

CO 

24 

04 


78 

• 

BO 
47 
CD 
C 8 
21 

78 
Bb 
77 
2D 

79 

8b 
77 
C 3 


6 A 


0 FF 


OC 16 


SBLXFl 

EQU 

$ 

; GET THE STRAP SETTINGS 


LDA 

KBJMPP 


AN I 

DC2SND 

; INHIBIT DC2 HANDSHAKE? 


MV I 

A , SDC2/256 ; ( SET DC 2 PENDING FLAG) 


JZ 

SBL020 

; NO - SET DC 2 PENDING FLAG 


CALL 

CHKCT1 

; YES - SET BLOCK TRANSFER 

• 

m 



TRIGGER TO CAUSE IMMEDIATE 

9 

9 



TRANSMISSION OF DATA 

SBL010 

EQU 

$ 



MOV 

A,B 

; PUT FLAG INTO A-REGISTER 

SBL020 

EQU 

5 



ORA 

B 

; ADO TN OPTIONAL DC 2 FLAG 


MOV 

B , A 

;SAVE FLAGS IN B-REGISTER 


CALL 

CKRMTE 

? REMOTE MODE ENABLED? 


RZ 


; NO - DON'T SET BLOCK XFR 


LXI 

H f MFLGS 

; YES - SET DATA PENDING 


MOV 

A , B 

? FLAGS 


ORA 

M 



MOV 

M,A 



OCX 

H 



MOV 

A f C 



ORA 

M 

; SET FLAG IN M MFLGS2" 


MOV 

M , A 



JMP 

KRLOK 

; DISABLE THE KEYBOARD 
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sss 


u 

it 

ii 

il 

II 

II 

II 

II 

II 

II 

l( 

ai 

it 

ii 

ii 

IS 

ii 

ii 

ii 

ii 

ii 

it 

n 

il 

ii 

ii 

M 

ii 

ii 

ii 

ii 

il 

ii 

ii 

ii 

ii 

il 

ii 

ii 

ii 

ii 

il 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

il 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 183 

6313 

1 6F6 

• 

• 

• 


************************* ************* 

6314 

1 6 F 6 

• 

• 

• 


SDTRM1 - 

SEND TERMINATOR CHARACTER * 

6 31b 

1 6F6 

• 

• 

• 


'♦******************♦*******♦******♦** 

6316 

1 6F 6 

♦ 

• 

• 





6317 

16F6 

• 

• 

• 


EXIT : 

A DESTROYED 


6 31b 

1 6F6 

• 


• 





6 319 

1 6f 6 

• 

• 

• 

SOTRtfl EUll 

$ 


6 320 

1 6F6 

CD 

59 

to 


CALL 

GTMODE 

; PAGE MODE? 

6321 

16F9 

3 A 

0 4 

50 


LDA 

BLKTRM 

; ( GET BLOCK TERMINATOR ) 

6 322 

1 6EC 

C2 

Cl 

17 


JNZ 

XPUTDC 

; YES - SEND BLOCK TERM ON Li 

6 323 

1 6FF 

• 

♦ 

• 

SI)TPh2 F.yi) 

$ 

; NO - SEND CK(LF) 

6324 

1 6FF 

3£ 

0D 

• 


Mai 

A , C R 


6 32 5 

1 7 u l 

CO 

Cl 

1 7 


CALL 

XPUTDC 

; TRANSMIT RETURN 

6 3 2o 

1.704 

3 A 

F 3 

FT 


LlA 

« DEL 02 


o 3 2 7 

1 7u7 

E6 

04 

• 


an i 

AUfOLF 

JAUTU lINF Fc.FD emablfd? 

632b 

1709 

C 8 

* 

• 


RZ 


;NU - RETURN 

6 3 29 

1 70 A 

• 

• 

• 

S0TRM3 EOU 

$ 


6 330 

1 7 0 A 

3E 

OA 

• 


,v V I 

A , LF 

; YES - TRANSMIT LINE FEED 

6 3 31 

17 OC 

C 3 

Cl 

1 7 


JmP 

XPUTDC 




1 3255- 

90003 

Rev 

AUG-01- 

7b 

ii 

ii 

ii 

ii 

ii 

ss assess 

S SS S S S3* 

S5K-S 

ssssrsssscszssssssssssssssssssssssssssssssrsssss-ss 

ITEM 

LUC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 184 

ii 

u 

ii 

it 

ii 

N 

II 

II 

II 

II 

II 

11 

II 

ssssssss 

it 

ii 

ii 

H 

II 

*S**SttS*SSSSSSSSSSSSSSSS5SSSSSSSSS5SSSSSSSS5SSSSS 

6333 

17 OF 

• 

• 

• 

;********************************** 

6334 

1 7 OF 

• 

• 

• 

; 5ETPFL - SET DATA TRANSFER FLAG * 

6335 

1 7oF 

• 

• 

• 

;********************************** 

b33b 

1 7oF 

• 

• 

• 

• 

9 

6337 

17 OP’ 

• 

• 

• 

; ENTRY : A = FLAG bIT TO BE SET 

633d 

1 7uF 

• 

• 

• 

• 

9 

6339 

17 OF 

• 

• 

• 

; EXIT : H = BASEH 

6340 

1 7 OF 

• 

• 

• 

; A,L DESTROYED 

6 3 41 

1 7oF 

• 

• 

• 

• 

9 

o J42 

17 OF 

• 

• 

• 

SETDKO FQU $ ;SET DAI A COMM INPUT f* ju AG 

6343 

170F 

3E 

01 

• 

MVI A , SDACOM ; SET FLAG BIT TO BE SE1 

6344 

1711 

• 

• 

♦ 

SEIDEL FQU $ 

6 3 46 

1711 

21 

6fc 

FF 

LXI H,DFlGS 

6346 

1714 

B6 

• 

• 

ORA k ; MERGE FLAG BIT 10 EXISTING 

6347 

1715 

77 

• 

• 

MOV M , A ; FLAGS 

6348 

1716 

C9 

• 

• 

BET ; RETURN 
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tl 

II 

II 

II 

II 

II 

II 

ii 

it 

ii 

ii 

ii 

ii 




SSS5SSSSSSSS 

tt 

H 

11 

II 

II 

II 

II 

II 

II 

It 

ii 

H 

it 

ii 

li 

li 

ii 

li 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

i> 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

it 

ii 

1 TEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 185 

ii 

it 

II 

ii 

II 

n 

H 


n 

n 

ii 

it 

ii 


ii 

it 

ii 

ii 

it 

it 

ii 

it 

ii 

ii 

if 

ii 

ii 

ii 

it 

ii 

ii 

It 

II 

It 

It 

II 

II 

II 

II 

II 

!! 

ti 

li 

11 

II 

II 

II 

(1 

II 

II 

II 

II 

II 

II 

II 

II 

li 

if 

II 

II 

if 

II 

II 

II 

II 

It 

II 

6350 

1717 

• 

• 

• 





6351 

1717 

• 

• 

• 


* * * * * 

* * * * * 

************* 

6352 

1717 

• 

• 

• 





6353 

1717 

• 

• 

• 


SETLFT, SETRHT - SET LEFT AND RIGHT MARGINS 

b354 

1717 

• 


9 





6355 

1717 

9 

• 

• 


ENTRY: H = BASEH 

6356 

1717 

• 

# 

• 



CURCOL 

= CURSOR COLUMN POSITION 

6357 

1717 

• 

• 

• 





6358 

1717 

• 

• 

9 


EXIT 

: lftmgn 

, RHTMGN SET APPROPRIATELY 

6359 

1717 


• 

• 





6360 

1717 

• 

• 

• 

SETLFT EQU 

$ 


6361 

1717 

CD 

7 B 

19 


CALL 

CHKFMT 

; FORMAT MODE? 

6362 

171 A 

CO 

• 

• 


RNZ 


Z YES - DON'T SET MARGIN 

6363 

1 7 1 B 

3 A 

BE 

FF 


LDA 

RHTMGN 

?NO - GET THE RIGHT MARGIN 

6364 

1 7 IE 

2E 

Cl 

• 


MVT 

L ,CURCOL- 

BASE 

6 365 

1720 

BE 

• 

• 


CMP 

M 

/CURSOR AFTER RTGHT MARGIN 

6366 

1721 

FA 

51 

23 


JM 

DSPCH1 

/YES - DON'T SET MARGIN 

6367 

1724 

7 E 

• 

9 


MOV 

A , M 

,*N 0 - SET NEW LEFT MARGIN 

636 6 

1725 

32 

BE 

FE 


SI A 

LFTMGN 


6369 

1728 

C9 

• 

9 


RET 


RETURN 

6370 

1729 

• 

• 

9 

} 



6371 

1729 

• 

• 

9 

SETPHT EOU 

$ 


6372 

1729 

CD 

7B 

19 


CALL 

CHKFMT 

/FORMAT MODE? 

6 37 3 

1 7 2C 

CO 

• 

9 


RNZ 


/YES - DON' SET MARGIN 

6374 

1 72D 

3 A 

Cl 

FF 


LDA 

CURCOL 

/GET CURRENT CURSOR COLUMN 

6375 

1730 

2E 

BE 

9 


My/I 

L , LFTMGN- 

BASE 

6376 

1732 

BE 

• 

9 


CMP 

M 

ZREFURE LEFT MARGIN? 

6377 

1733 

FA 

51 

23 


JM 

DSPCH1 

/YES - DON'T SET MARGIN 

6378 

1736 

2B 

• 

9 


DC X 

H 

/NO - SET NEW RIGHT MARGIN 

6379 

1737 

77 

9 

9 


MOV 

M, A 


6380 

1738 

C9 

• 

9 


PET 


/RETURN 
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ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

it 

li 

it 

ii 
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ii 

it 

ii 

it 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

M 

ii 

ii 

ii 

ii 

n 

ii 

•i 

ii 

it 

ii 

ii 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 
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LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

— 

it 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

5222 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

6333 

1 70F 


• 



6334 

17 OF 

• • 

• 


SETDFL - 

SET DATA TRANSFER FLAG * 

6335 

1 70F 

• • 

• 


.*********** j*****^*************** 

6336 

1 70F 

• • 

• 




6337 

1 70F 

• • 

• 


ENTRY: 

A = FLAG BIT TO BE SET 

6338 

1 7 0F 

• • 

• 




6339 

1 7 0F 

• • 

• 


exit : 

H = BASEH 

6340 

1 7 OF’ 

• • 

• 



A f L DESTROYED 

6341 

1 70F 

• • 

• 




6342 

1 70F 

• • 

• 

SETDFO FQU 

$ ; SET DATA COMM 

6343 

170F 

3E 01 

• 


M V I 

A , SD ACQM ; SET FLAG BIT 

6344 

1711 

• • 

• 

SETDFL EQU 

$ 

6345 

1711 

21 6E 

FF 


LX I 

H , DFLGS 

6346 

1714 

R6 

• 


ORA 

M ; MERGE FLAG 61 

6347 

1715 

77 . 

• 


MOV 

M , A ? FLAGS 

6348 

1716 

C9 . 

• 


RET 

; RETURN 


PAGE 184 
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ti 

ii 

ii 

ii 

ii 

ti 

ii 

ii 
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5SS 
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ii 

it 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

H 

ii 

ii 

it 

it 

ti 

ii 

i» 

it 

ii 

li 

ii 

ii 

ti 

6397 

1 7 3E 

• 

• 

• 

J******* ******** ************************** 

6398 

173F 

• 

• 

• 

; SETTRM - 

SET NON-DISPLAYING TERMINATOR * 

6399 

1 7 3F 

• 

• 

• 

***************************** ************* 

6400 

1 7 3F 

• 

• 

• 

SETTRM EQU 

$ 


6401 

1 7 3F 

3E 

01 

• 

MVI 

A , IGNTRM 

;SET TO IGNORE NON-DISPLAY IN 

6402 

1741 

32 

6D 

FF 

STA 

TRMFCT 

; TERMINATORS 

6403 

1744 

3E 

04 

• 

MVI 

A , STPF LG 

; ADD NON-DISPLAYING 

6404 

1746 

CD 

E2 

21 

CALL 

DISPC2 

? TERMINATOR TO DISPLAY 

6405 

1749 

03 

20 

IE 

JMP 

FLDSRX 

;SET M LSTCOL” TO MAXCOL+1 

6406 

1740 

• 

• 

• 

• 

9 


TO FORCE LINE RE-SCAN TO 

6407 

1 7 40 

• 

• 

• 

# 

9 


INHIBIT DELETION OF NEW 

6408 

1740 

• 

• 

• 

• 

9 


NON-DISPLAYING TERMINATOR 



13255- 
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Pev 

AUG- 01 

it 

ii 

it 

it 

ii 
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ii 

ii 

ii 

ii 

V0 II 
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ii 

ii 

ii 
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ii 
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ii 
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i 
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ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

it 

it 

ii 

ti 

ti 

n 

ii 

ii 

ii 

ii 

ii 

ii 

sssss:s:ss:ssrs5:rs=s5::s;s: 

6410 

1 74C 


• 

• 

.*****jM****************** *************** 

6411 

174C 

• 

• 

• 

; SNOCDE - 

SEND ATTENTION/FUNCTION CODE * 

6412 

174C 

• 

• 

• 

• **************************************** 

6413 

174C 

• 

• 

• 

SNDCDE EQU 

$ 


6414 

1 7 4C 

3 A 

6E 

FF 

LD A 

DFLGS 

; GET DATA TRANSFER FLAGS 

6415 

1 7 4F 

E6 

01 

• 

ANI 

SDACOM 

; COMMAND FROM DATA COMM? 

6416 

1751 

CO 

• 

* 

RNZ 


? YES - IGNORE IT 

6417 

1752 

21 

BO 

27 

LXI 

H , SNDCTB 

; SET TO ACCUMULATE OCTAL 

6418 

1755 

3E 

08 

• 

MV I 

A , OCTRDX 

;CODE CHARACTER 

6419 

1757 

C 3 

81 

04 

JMP 

ESCAPO 


6420 

1 75 A 

• 

# 

• 

.************* *************** 

6421 

1 75 A 

• 

• 

• 

; <A> - SEND ATTENTION 

CUDE * 

6422 

1 75 A 

• 

« 

• 

.***************+************ 

6423 

175A 

4f 

• 

• 

SNDCD1 EQU 

$ 


6424 

175A 

3 A 

DE 

FF 

LDA 

IODATA 

; GET ACCUMULATED VALUE 

6425 

175D 

47 

• 

• 

MOV 

B , A 

;PUT CODE INTO R-REG I STER 

642o 

175E 

3E 

OB 

• 

MV 1 

A , SNDATN 

;SET DATA COMM CONTROL CODE 

6427 

1760 

C 3 

42 

12 

JMP 

DCMCTL 

? PERFORM FUNCTION 
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ITEM 

LOC 

OBJECT 
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j 429 

1763 

• 

• 

• 

44444444444444444444444444444444444444444444444 

6430 

1763 


• 

• 

STRTBL - SET FIRST DISPLAY OUT CHARACTER FOR * 

6431 

1763 

• 

• 

• 

BLOCK STORE * 

6432 

1763 

• 

• 

• 

44444444444444444444444444*44444444444444444444 

6433 

1763 

• 

• 

• 


6434 

1763 

• 

• 

• 

ENTRY! DON'T CARE 

6435 

1763 

• 

• 

• 


6436 

1763 

• 

• 

• 

EXIT : CURCOL jCURROW = STARTING POSITION 

6437 

1763 

• 

• 

• 


6438 

1763 

• 

* 

• 

IF THE AUTO TERMINATOR STRAP (J) IS OUT, A 

6439 

1763 

• 

• 

• 

TERMINATOR IS PLACED AHEAD OF THE CURRENT 

6440 

1763 

• 

• 

• 

CURSOR POSITION AND A REVERSE SCAN IS MADE 

6441 

1763 

• 

• 

• 

FUR THE FIRST TERMINATOR BEFORE THE CURRENT 

6442 

1 7o 3 

• 

• 

• 

CURSOR POSH ION. OTHERWISE, THE CURSUR IS 

6443 

1763 

• 

• 

• 

PLACED AT THE HUME POSITION 

6444 

1763 

♦ 

• 

<9 


6445 

1763 

• 

• 

. STRTbL EgU $ 

6446 

1763 

CD 

69 

17 

CALL STRTB1 ;SET CURSOR START POSITION 

6447 

1766 

C 3 

9C 

25 

JMP initdg ;set up display get routine 

6448 

1769 

• 

• 

• 

• 9 

6449 

1769 

• 

• 

. STRTB1 EQU $ 

6450 

1769 

3A 

FA 

FF 

LDA KBJMP2 ? GET KEYBOARD JUMPERS 2 

6451 

1 76C 

F 6 

01 

• 

AN I AUTTftM ;AUTU TERMINATOR ENABLED? 

6452 

1 76E 

CA 

F 4 

17 

JZ XMOHME ; NO - HOME THE CURSOR 

6453 

1771 

• 

• 

• 

4444444444444444444444444444444 

6454 

1771 

• 

• 

• 

STTERM - SET AUTO TERMINATOR * 

6455 

1771 

• 

• 

• 

*4*4***44444********* 4 444444444 

5456 

1771 

• 

• 



*6457 

1771 

• 

• 

• 

EXIT ! Z => AUTO TERMINATOR NOT SET 

6458 

1771 

• 

• 

• 

NZ => AUTO TERMINATOR SET 

6459 

1771 

• 

• 

• 


6460 

1771 

• 

• 

. STTERM EgU $ 

6461 

1771 

CD 

81 

19 

CALL CHKMLK ; MEMORY LOCK ENABLED? 

6462 

1774 

CA 

70 

17 

JZ STB010 ; YES - CHECK FOR FREE BLOCKS 

6463 

1777 

CD 

7 B 

19 

CALL CHKFMT ; FORMAT . MODE ENABLED? 

6464 

177 A 

CA 

84 

17 

JZ STB050 ?NO - ADD TERMINATOR 

6465 

177D 

• 

• 

. ST8010 ECU $ ;Y ES - CHECK FOP FREE BLOCKS 

6466 

1 7 7D 

3 A 

AC 

FF 

LDA FPBLKS ; GET LSB OF FREE BLOCKS PTR 

6467 

1780 

87 

« 

• 

ORA A ? ANY FREE BLOCKS? 

6468 

1761 

CA 

07 

OB 

JZ M’LOCK ,*NQ - FORCE MEMORY LOCK ON 
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xxx 


it 

it 

ii 
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ii 

it 

li 

n 
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ii 

H 

11 


il 

il 

il 

il 

II 

il 

li 

il 

il 

il 

li 

il 

li 

li 

il 

ti 

ii 

ii 

li 

it 

il 

II 

li 

fi 

it 

li 

il 
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ii 
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il 
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L.QC 

OBJECT 

CODE 

SOURCE STATEMENTS 
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H 

ii 

it 

ii 

ii 

ii 

it 


= = s 




ii 

i< 

ii 

it 

ii 

ii 

it 

u 

ii 

ii 

H 

II 

II 

II 

II 

II 

II 

11 

II 

II 

11 

II 

II 

II 

II 

II 

11 

ii 

li 

11 

II 

ii 

6470 

1784 

• 

• 

• 

;*****♦************************************ 

6471 

1784 

• 

• 

• 

; SPACE AVAILABLE 

- STORE NON-DISPLAYING * 

6472 

1784 

• 

• 

• 

; TERMINATOR AT 

CURRENT CURSOR POSITION * 

6473 

1784 

• 

• 

• 

;****************** ************************ 

6474 

1784 

• 

• 

• 

STB050 EQU 

$ 


6475 

1784 

CO 

3F 

17 

CALL 

SETTRM 

; STORE TERMINATOR 

647b 

1787 

3 A 

04 

50 

LD A 

BLKTRM 

# GET BLOCK TERMINATOR CHAR 

6477 

1 78 A 

6F 

• 

• 

MOV 

L f A 

? SET PARAMETERS FOR REV ERSE 

6478 

1 7 8B 

26 

C4 

• 

M VI 

H , STPFLG ; SEARCH FOR PREV TERM! NATO 

6479 

1 78D 

CD 

05 

18 

CALL 

BACKT1 

;TS THER A PREV TERMINATOR? 

6480 

1790 

C2 

A2 

17 

JNZ 

STBOBO 

;NQ - HOME THE CURSOR 

6481 

1793 

CD 

A4 

06 

CALL 

RCADRA 

; DOES THE CHARACTER EXIST? 

6482 

1796 

C 4 

96 

20 

CtsiZ 

CRLF 

; NO - START AT NEXT LINE 

6483 

1799 

• 

• 

• 

STBObO EQU 

$ 


6484 

1799 

3E 

FB 

• 

MV I 

A, 377Q 

-NOSEND 

6485 

1798 

CD 

01 

16 

CALL 

CLRDFL 

? CLEAR NO DATA FLAG 

6486 

1 7 9E 

F6 

08 

• 

OKI 

SKPTRM 

; SET TO SKIP INITIAL BLOCK 

6487 

1 7 AO 

77 

• 

• 

MOV 

M, A 

7 TERMINATOR CHARACTER 

6488 

1 7 A 1 

C9 

• 

• 

RET 


7 RETURN NZ 
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OBJECT 
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^490 

6491 

1 7 A2 

• 

• 

• 


1 7 A2 

• 

• 

• 

; NO PREVIOUS TERMINATOR - HOME THE CURSOR * 

6492 

1 7 A2 

• 

• 

• 


4^**;r* **************** 

6493 

1 7 A2 

• 

• 

• 

STB080 EQU 

$ 


6494 

17A2 

2 A 

CO 

FF 

LHLD 

CURROW 

/ SAVE THE CURRENT ROW AND 

6495 

1 7 A5 

E5 

• 

• 

PUSH 

H 

; COLUMN VALUES 

6496 

1 7 A6 

CD 

31 

1 3 

CALL 

DPSEN1 

/HOME CURSOR FOR TRANSM1SSIO 

6497 

1 7 A9 

2 A 

CO 

FF 

LHLD 

CURROW 

? GET NEW ROW AND COLUMN 

6498 

1 7 AC 

Cl 

• 

• 

POP 

B 

/RECALL OLD ROW AND COLUMN 

6499 

1 7 AD 

7C 

• 

• 

MOV 

A,H 

/COMPARE TO HOME ROW AND 

6500 

17AE 

90 

• 

• 

SUB 

B 

/COLUMN 

6501 

17AF 

47 

• 

• 

MOV 

B # A 


6502 

1760 

7D 

• 

• 

MOV 

A t L 


6503 

1 76t 

91 

• 

• 

SUB 

C 


6504 

17B2 

BO 

• 

• 

ORA 

6 

/DID CURSOR MOVE? 

6505 

1763 

C2 

99 

17 

JNZ 

STB060 

/YES - SET FOR DATA PRESENT 

6506 

1 7B6 

3E 

04 

• 

MV I 

A , NOSEND 

/ NU - SET FOR NO DATA 

6507 

1768 

C 3 

11 

17 

JMP 

SETDFL 

/ RETURN 
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ti 
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ITEM 

LQC 

OBJECT 

CODF SOURCE STATEMENTS 
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6509 

1 76B 


• 

• 

******************************* 

6510 

1 7BB 

• 

• 

• 

XPUTDC - TRANSMIT 

CHARACTER * 

6511 

1 7B8 

• 

• 

• 

■*********+******************** 

6512 

17BB 

• 

• 

• 

' 


6513 

1 7BB 

* 

• 

• 

ENTRYi A = CHARACTER TO BE TRANSMITTED 

6514 

1 7 BB 

• 

• 

• 



6515 

17B8 

• 

• 

• 

EXIT J NC - TRANSMIT SUCCESSFUL 

6516 

17BB 


• 

• 

C - TRANSMIT FAILED 

6517 

17BB 

• 

• 

• 

A DESTROYED 

6518 

1 7 BB 

• 

• 

• 



6519 

1 7 BB 

• 

• 

. ESC0U1 EOU $ 

; OUTPUT AN ESCAPE CODE 

6520 

1 7BB 

3E 

16 

• 

MV I A, ESC 


6521 

1 7 BD 

CO 

Cl 

17 

CALL XPUTDC 


b522 

1 7C0 

78 

• 

• 

MOV A,B 

;FULLOwFD BY CHAR IN B-REG 

6523 

1 7C1 

• 

• 

• 

• 9 


6524 

1 7C l 

9 

• 

. XPUTDC EQU $ 


6525 

17CI 

B7 

• 

• 

ORA A 

/SET C-FLAG FALSE 

6526 

1 7C2 

F5 

• 

* 

PUSH PSW 

;SAVE THE FLAGS AND A-REG 

6527 

1 7C3 

CO 

6 A 

10 

CALL CKKMTFJ 

; REMOTE MODE ENABLED? 

6528 

1 7C6 

CA 

04 

1 7 

JZ XPD005 

; NO - EXIT 

6529 

1 7C9 

• 

• 

. XPD001 EUU $ 


6530 

17C9 

FI 

• 

« 

POP PSW 

? YES - RECALL THE CHARACTER 

6531 

1 7C A 

F5 

m 

• 

PUSH PSW 

/ SAVE CONTENTS OF A AND FLAG 

6532 

1 7CB 

CD 

1A 

50' 

CALL ZPUTDC 

; TRANSMIT THE CHAR IN A-REG 

6533 

1 7CE 

DA 

FA 

17 

JC XPD050 

; ERROR - REPORT IT 

6534 

17D1 

C2 

D6 

17 

JNZ XPDOIO 

/WAIT - TR t AGAIN 

65 35 

1 7D4 

• 

• 

. XPD005 EQU S 


6536 

1 7D4 

FI 

• 

• 

PUP PSw 

/DUNE - RECALL FLAGS AND CHA 

6537 

17D5 

C9 

• 

• 

RET 

/RETURN 

6538 

1 7D6 

• 

• 

• 


TRANSFER TRIGGER (SETS 

6539 

1706 

• 

• 

• 


FLAG TRUE) 

6540 

1 7D6 

• 

• 

• 


6541 

1706 

• 

• 

• 

WAIT FOP DATACOM - 

RETRY OPERATION * 

6542 

1706 

• 

• 

• 

.***********^** ********* ************* 

6543 

17D6 

• 

• 

. xPooio Egu $ 


6544 

1706 

E5 


• 

PUSH H 

/SAVE THE REGISTERS 

6545 

1707 

05 

• 

• 

PUSH D 


6546 

1708 

C5 

• 

• 

PUSH B 


6547 

1 7D9 

CD 

86 

15 

CALL IOCTMN 

/MONITOR CARTRIDGE TAPES 

6548 

1 7 DC 

3E 

OA 

• 

MV I A , CKBRKY 

/LOOK FOR A BREAK KEY HIT 

6549 

17DE 

CO 

08 

48 

CALL ZKBCTL 

/ RREAK, KEY HIT? 

6550 

1 7E 1 

Cl 

• 

• 

POP B 

/(RESTORE REGISTERS) 

6551 

17E2 

01 

• 

• 

PUP 0 


6552 

17E3 

El 

• 

• 

POP H 


6553 

1 7E4 

CA 

C9 

17 

JZ XPD001 

/NO - TRY TO OUTPUT AGAIN 

6554 

1 7E7 

CD 

3B 

12 

CALL BRKDC 

/YES - BREAK DATA COMM 

6555 

1 7EA 

• 

• 

• 

' 

FALL INTO ERROR EXIT ROUTINE 



ITEM 

4bSl 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 
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ii 

17EA 

m 

• 

• 

.****************************************** 

1 7EA 

• 

• 

• 

J DATA COMM 

ERROR 

DETECTED - REPORT ERROR * 

1 7EA 

• 

• 

• 

;***♦ ******** ****************************** 

1 7 EA 

• 

♦ 

• 

XPD050 EQU 

$ 


1 7EA 

33 

• 

• 

I NX 

SP 

? RESTORE STACK LEVEL WITHOUT 

1 7EB 

33 

• 

• 

INX 

SP 

? AFFECTING THE FLAGS 

17EC 

C 2 

54 

12 

JNZ 

HANGUO 

? FATAL - HANG THE TERMINAL 

17EF 

CD 

14 

46 

CALL 

Z0ELL 

; NON -FATAL - SOUND BELL 

1 7F2 

37 

♦ 

• 

STC 


;RETUPN FAIL (C-FLAG = TRUE) 

1 7 f* 3 

C9 

• 

• 

RET 
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S5S 

:s:ss: 

it 

ii 

it 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

6568 

1 7 F 4 

• 

• 

• 

■ ************^****************** ********** 

6569 

1 7 F 4 

• 

• 

• 

; XMUHME - HOME CURSOR 

INCLUDING TRANSMIT * 

6570 

17F4 

• 

• 

• 

; ONLY FIELDS 

* 

6571 

1 7F4 

• 

• 

» 

; ************** ******************* ********* 

6572 

1 7F4 

• 

• 

• 

XMUHME EQU $ 


6573 

1 7F4 

CD 

OF 

17 

CALL SETDFO ? 

SET DATA COMM INPUT FLAG 

6574 

1 7F7 

* 

• 

• 

ft 

9 

TO ENABLE TRANSMIT ONLY 

6575 

1 7F7 

• 

• 

ft 

i 

FIELDS 

6576 

17F7 

C 3 

2C 

ID 

JMP CURPH1 ; 

HOME the cursor 



ITEM LOC OBJECT CODE SOURCE STATEMENTS 
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*157 8 1 7 E A 

6579 1 7FA 

6580 1 7F A 

6581 1 7F A 

6582 1800 

6583 1800 50 

6584 1801 18 


;************$************* 

J R 0 M BREAK 3 * 

•*********♦**&************* 

ORG ZE1RK2 + 4000Q 
ZBRK3 EQU $ 

DB VERSN ;ROM PRESENT FLAGS 

DB ZBRK3/25o 
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6586 

1802 

• 

• 

• 


********** 

6587 

1802 

• 

• 

• 


BACKT1 - 

6588 

1802 

• 

« 

• 


********** 

6589 

1802 

• 

• 

• 



6590 

1802 

• 

• 

• 


ENTRY: 

6591 

1802 

• 

• 

• 



6592 

1802 

• 

• 

• 



6593 

1802 

• 

• 

• 


EXIT : 

6594 

I8u2 

• 

• 

• 



6595 

1802 

• 

• 

• 



6596 

1802 

• 

• 

• 



6597 

1802 

• 

• 

• 



6598 

1802 

• 

* 

• 



6599 

1802 

• 

• 

• 



6600 

1802 

• 

• 

• 



6601 

1802 

• 

• 

• 

f 

JACKTO EQU 

6602 

1802 

21 

Cl 

Cl 


LX I 

6603 

1805 

• 

• 

• 

t 

SACKT1 EQU 

6604 

1805 

22 

D7 

FF 


SHLD 

6605 

1808 

AF 

• 

• 


XRA 

6606 

1809 

32 

8 2 

FF 


SI A 

6607 

1 80C 

2 A 

CO 

FF 


LHLD 

6608 

1 8 OF 

22 

OE 

FF 


SHLD 

6609 

1812 

2 A 

C9 

FF 


LHLD 

6bl0 

1815 

22 

D5 

FF 


SHLD 

6611 

1818 

3E 

01 

• 


MV I 

6612 

1 8 1 A 

32 

6D 

FF 


ST A 

6613 

1 8 1 D 

CD 

B4 

06 


CALL 

6614 

1820 

3 A 

DF 

FF 


LLA 

6615 

1823 

F2 

3B 

18 


JP 

6616 

1826 

3 A 

CO 

FF 


LDA 

6617 

1829 

21 

6B 

FF 


LX I 

6618 

1 8 2C 

BE 

. 

• 


CMP 

6619 

18 2D 

F2 

7 A 

18 


JP 

6620 

1830 

• 

• 

• 

BKI210 EOU 

66 21 

1830 

CD 

07 

tl 


CALL 

6622 

1833 

3 A 

C7 

FF 


LDA 

6623 

1836 

32 

CO 

FF 


STA 


****************** ********* 

LuCATE PREVIOUS CHARACTER * 
*************************** 

IODATA = CHARS TO FIND (2 BYTES) 

CURCOL, CURROW = CURRENT CURSOR POSITION 

Z - CHARACTER FOUND 

DISPLAY AND CURSOR SET TO CHARACTER 
POSITION IN DISPLAY MEMORY - ALL 
DISPLAY PARAMETERS UPDATED 
NZ - CHARACTER NOT FOUND 
DISPLAY UNCHANGED 
ALL REGISTERS DESTROYED 

$ ;LOOK FOR PREVIOUS FIELD 

rt,ENDPR*256+ENDPR 
$ 

LCHKSM ;SAVE CHARACTERS TO BE FOUND 

A ; CLEAR ROLL COUNT 

KOLLCT 

CURPOW ; SAVE THE CURRENT STATE OF 

LDATA ? THE DISPLAY 

LSTL1N 

LADDR 

A , IGNTRF ; SET TO IGNORE NON-DISPLAYIN 
TPMFCT ? TERMINATOR 

RCADR1 ; DOES THE CURRENT LINE EXITS 
LDATA+1 ? (RECALL CURRENT COLUMN) 

BKT230 ? YES - SEARCH FOR PPEV FIELD 
CURROW ; NO - LOCATE LAST LINE 

rt , MLKftUW ; CURRENT ROW LESS THAN 
M ; MEMORY LOCK ROW? 

BKT300 ;NO - LOOK FOR UNLOCKED LINE 
$ ; YES - START FROM LAST LINE 

CUKPHD 

LSTROW ; FORCE TO LAST ALLOCATED 

CURROW ; ROW 
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II 
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6625 

1839 


• 

• 

******** ***************** ******** 

6626 

1839 

• 

• 

• 

; LOCATE THE 

LAST FIELD IN THE LINE * 

6627 

1839 

• 

• 

• 

.************************************ 

6628 

1839 

• 

• 

• 

BKT220 EQU 

$ 


6629 

1839 

3E 

4F 

• 

M V I 

A , MAXCQL 

; SET SEARCH LIMIT 

6630 

1836 

# 

• 

• 

BKT230 EQU 

$ 


6631 

1 8 3B 

32 

85 

FF 

STA 

TMPCOL ; 

SAVE THE SEARCH LIMIT 

6632 

1 8 3F 

2 A 

C9 

FF 

LHLD 

LSTLIN ; 

GET SEARCH START ADDRESS 

6633 

1841 

F.B 

• 

* 

XCHG 


; PUT ADDRESS IN D , E 

6634 

1842 

2 A 

07 

FF 

LHLD 

LCHKSM 

; RECALL CHARS TO BE FOUND 

6635 

1845 

CD 

5C 

IF 

CALL 

FNDLST 

; ANY FIELDS IN LINE? 

6636 

1848 

F2 

90 

18 

JP 

BKT400 

; VES - SET DISPLAY TO FIELD 

6637 

1 8 4ft 

3A 

6B 

FF 

LD A 

MLKROW 

; NO - SEE IF TUP UNLOCKED 

663 8 

184E 

21 

CO 

FF 

LXI 

H , CURROW 

; LINE HAS BEEN PEACHED 

6639 

1851 

BE 

• 

• 

CMP 

M 

; PEACHED MEMORY LOCK ROW? 

6640 

1852 

CA 

8 6 

16 

JZ 

BKT310 

; YES - CONTINUE ABOVE DISPLA 

6641 

1855 

3A 

82 

FF 

LD A 

ROLLCT 


6642 

1859 

B6 

• 

• 

ORA 

M 

; PULL COUNT AND ROW = ZERO? 

6643 

1859 

CA 

FO 

18 

JZ 

BKT500 

; YES - NO PREVIOUS FIELD IN 

6644 

1 8 5C 

• 

• 

• 

• 

9 


LOCKED AREA , RESTORE DISPL 

6645 

1 85C 

35 


• 

OCR 

M 

?MO - MOVE TO PREVIOUS ROW 

6 646 

1 85D 

2E 

82 

• 

MV I 

L f ROLLCT 


6647 

1 85F 

7 E 

• 


MyV 

A,M 

? GET ROLL COUNT 

6648 

1860 

B 7 

• 

• 

ORA 

A 

} SEARCHING ABOVE DISPLAY? 

6649 

1861 

CA 

68 

18 

JZ 

BKT240 

; NO - DON'T INCREMENT COUNT 

6650 

1864 

34 

• 

• 

I NR 

M 

; ROLL OVERFLOW? 

6651 

18 65 

CA 

FO 

18 

JZ 

b K T 5 0 0 

;YES - RESTORE DISPLAY 

6652 

1868 

• 

• 

• 

BKT240 EQtJ 

$ 

; NO - LOOK TO PREVIOUS LINE 

665 3 

1868 

2 A 

C9 

FF 

LHLD 

LSTLIN ? 

RECALL CURRENT LINE ADDR 

6654 

1 8 6B 

• 

• 

• 

b K T 2 5 0 EQU 

$ 


6655 

1 8 6B 

23 

• 

• 

INX 

H 

; GET ADDRESS OP PREVIOUS 

6656 

1 8 6C 

23 

• 

• 

I NX 

H 

r LINE 

6657 

i8 60 

CD 

6D 

19 

CALL 

CHAIN 

; GET PREVIOUS LINE ADDRESS 

6658 

1870 

B7 

• 

• 

ORA 

A 

; DOES PREVIOUS LINE EXIST? 

6659 

1871 

CA 

FO 

18 

JZ 

BKT500 

; NO - RESTORE DISPLAY 

6660 

1874 

22 

C9 

FF 

SHLD 

LSTLIN 

; YES - SAVE ADDRESS OF LINE 

6661 

18 7 7 

C 3 

39 

16 

JMP 

BKT220 

? LOCATE LAST FIELD IN LINE 
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6663 

1 8 7 A 

• 

• 

• 

! 




6664 

1 8 7 A 

• 

« 

• 

r 

ROW NOT 

FOUND AND 

CURSOR BELOW MEMORY LOCK 

6665 

1 8 7 A 

• 

♦ 

• 

• 

t 

LINE - 

LOCATE LAST LINE TO START 

6666 

1 8 7 A 

• 

• 

• 

f 




6667 

1 87 A 

• 

• 

• 

BKT300 EOU 

$ 


6668 

1 87 A 

93 

• 

• 


SUB 

E 

?CE = # OF ROWS TO LAST LN 

6669 

187B 

BE 

• 

• 


CMP 

M 

; LAST ROW BELOW LOCKED AREA? 

6670 

1 87C 

E2 

30 

18 


JP 

BKT210 

; YES - START AT LAST LINE 

6671 

1 87F 

7E 

• 

m 


MOV 

A , M 

; NO - SEARCH ABOVE DISPLAY 

6672 

1880 

32 

CO 

FF 


STA 

CURROW 

; SET "CURROW" TO MEM LOCK RO 

6673 

1883 

21 

CO 

FF 


LXI 

H , CURROW 

; SET H,L -> "CURROW" 

6674 

1886 

• 

• 

• 

9 




6675 

1886 

• 

• 

• 

• 

9 

NO PREVIOUS FIELDS 

UN DISPLAY - LOOK ABOVE DISP 

6676 

1886 

• 

• 

• 

* 

9 




6677 

1886 

• 

• 

♦ 

6KT310 EQU 

$ 


6678 

1886 

35 

• 

• 


DCP 

M 

? DECREMENT ROW NUMBER 

6679 

1887 

2E 

82 

• 


MV I 

L , ROLLCT- 

BASE 

6680 

1889 

34 

• 

• 


INR 

M 

? INCREMENT ROLL COUNT 

6681 

1 8 8 A 

2 A 

CB 

FF 


LBLD 

TOPLIN ; 

GET TOP DISPLAY LINE ADDR 

6682 

188D 

C3 

6B 

18 


JMP 

BKT250 

; LOOK FOR PREVIOUS ROW 
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6684 

1890 

• 

• 

• 



6685 

1890 

• 

• 

• 

Z FIELD FOUND - SET DISPLAY 

6686 

1890 

• 

• 

• 

* 

9 



6687 

1890 

• 


• 

BKT400 

EQU 

$ 

6688 

1890 

2 A 

05 

FF 


LHLD 

LADDR / RESTORE VALUE OF LSTLIN 

6689 

1893 

EB 

• 

• 


XCHG 

? AND SAVE ADDRESS OF 

6690 

1894 

2 A 

C9 

FF 


LHLD 

LSTLIN /LINE WHERE FIELD IS 

6691 

1897 

22 

D5 

FF 


SHLD 

LADDR 

6692 

1 89 A 

E6 

• 

• 


XCHG 


6693 

1 89B 

22 

C9 

FF 


SHLD 

LSTLIN 

6694 

1 89E 

3 A 

85 

FF 


LDA 

TMPC 01. /COMPUTE COLUMN LOCATION 

6695 

1 8 A 1 

90 

• 

• 


sue 

B 

6o96 

1 8 A2 

32 

Cl 

FF 


STA 

CURCOL 

6697 

18A5 

3 A 

82 

FF 


LDA 

ROLLCT 

6696 

18A8 

B7 

• 

• 


ORA 

A / ROW ABOVE DISPLAY? 

6699 

18A9 

CA 

DB 

18 


JZ 

BKT450 /NO - EXIT 

6 /00 

18 AC 

• 

• 

• 

• 

9 



6701 

1 8 AC 

• 

• 

• 

/ ROW 

ABOVE DISPLAY ROLL 11 Down 

6702 

1ft AC 

• 

• 

• 

9 



6703 

1 8 AC 

• 

• 

• 

BKT410 

EvU 

$ 

6704 

18 AC 

3E 

EB 

• 


MVI 

A , -MAXROW-1 /COMPOTE NUMBER OF LINES 

6705 

1 8 AE 

21 

6B 

FF 


LXI 

H , MLKROW /TO ROLL FOR ONE PAGE 

6706 

1 8B 1 

86 

» 

• 


ADD 

M 

6707 

1862 

32 

82 

FF 


STA 

ROLLCT /SAVE ROLL COUNT 

6708 

1 8B5 

• 

• 

• 

BKT420 

EQU 

$ 

6709 

1965 

CD 

C5 

OB 


CALL 

ROLLUN / ROLL. DOWN ONE LINE 

6710 

1888 

CA 

D 1 

18 


JZ 

BKT430 ? ROLL FAIL - CHECK FOR FIELD 

6711 

1 8BB 

21 

CO 

FF 


LXI 

H, CURROW 

6712 

186E 

34 

• 

• 


INR 

M / INCREMENT RUW NUMBER 

6713 

18BF 

2E 

8 2 

• 


MVI 

L, ROLLCT 

6714 

180 

34 

• 

* 


INR 

rt /PAGE COMPLETED? 

6715 

1 8C2 

C2 

B5 

1 8 


JNZ 

BKT420 /NO - CONTINUE POLLING 

6716 

18C5 

3A 

CO 

FF 


LDA 

CURROW 

6717 

18C8 

2E 

6B 

• 


MVI 

l,mlkrow 

6718 

18CA 

96 

• 

• 


SUB 

M /IS DESIRED ROw ON SCREEN? 

6719 

1 8CB 

FA 

AC 

18 


JM 

BKT410 /NO - ROLL DOWN ANOTHER PAGE 

6720 

1 8CE 

C 3 

OB 

18 


JMP 

8KI450 /YES - EXIT 

6721 

1801 

• 

• 

• 

r 



6722 

18D1 

• 

' m 

• 

Z ROLL FAILED - CHECK FUR FIELD ON SCREEN 

6723 

1801 

• 

• 

• 

9 



6724 

1801 

• 

• 

• 

BKT430 

EQU 

$ 

6725 

1 8D 1 

3 A 

CO 

FF 


LDA 

CURROW /GET CURRENT ROW NUMBER 

6726 

1804 

21 

68 

FF 


LXI 

H , MLKRQW /SUBTRACT MEMRY LOCK PWS 

6727 

1807 

96 

• 

• 


SUB 

M /IS FIELD 0N SCREEN? 

6728 

1808 

EA 

F6 

18 


JM. 

BKT510 /NO - RESTORE DISPLAY, ROLL 

6729 

1 8DB 

• 

• 

• 

• 

9 


DOWN FAILED BECAUSE OF NO 

6730 

1 80B 

• 

• 

• 

9 


MEMORY TO FILL TO MEMORY 

6731 

18 OB 

• 

• 

• 

• 

9 


LOCK LINE 
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6/33 

1 8DB 

• 


• 

• 

9 




6734 

1 8DB 

• 

• 

• 

i FIELD ON 

SCREEN 

- SET SCREEN VALUES 

6735 

1 8DB 

• 

9 

• 

• 

9 




67 3d 

18DB 

• 

9 

• 

BKT450 

EQU 

$ 


6 7 3 7 

1 8DB 

3 A 

CO 

FF 


LLA 

CUR ROW 

;SET LAST ROrt VALUE TO 

67 38 

18DE 

32 

Cl 

FF 


ST A 

LSTROW 

;pow FOUND 

6739 

1 8£1 

AF 

9 

• 


XR A 

A 

; SET LAST COL DONE TO ZERO 

d 7 4 0 

t 8E2 

32 

C 8 

FF 


ST A 

LSTCCJL 


6741 

1 6E5 

2 A 

D5 

FF 


LHLL 

laddh 

; SET ADDRESSES TO LOC A 11 ON 

6742 

18E8 

• 

. 

. 

MAC K 15 

egu 

$ 


67 43 

1 8£8 

22 

C9 

FF 


ShLD 

LSTL1N 

;OF FIELD 

6744 

1 8 £B 

2R 

• 

• 


DC X 

H 

; SET CURADR TO CORRESPOND 

6745 

18EC 

22 

C 3 

FF 


SHLD 

CURADR 


6 7 46 

1 8EF 

C9 

• 

• 


RET 


; RETURN 

6747 

1 8F0 

• 

• 

• 

9 




6748 

1 8F0 

• 

• 

• 

; FIELD NOT FOUND 

- RESTORE DISPLAY 

6749 

1 8F0 

• 

• 

• 

} 




6750 

1 8F0 

• 

• 

• 

BKT500 

EOU 

$ 


6751 

1 8F0 

2A 

D5 

FF 


LHLD 

LAUDR 

? RESTORE LAST LINE ADDRESS 

6752 

18F3 

22 

C9 

FF 


SHLD 

LSI LIN 


6753 

1 8F6 

« 

. 

• 

BKT510 

EQU 

$ 


6754 

18F6 

2 A 

DE 

FF 


LHLD 

LDATA 

? RESTORE CURRENT ROW AND 

6755 

1 8F9 

22 

CO 

FF 


SHLD 

CURROW 

? COLUMN 

6756 

18FC 

F6 

FF 

• 


OKI 

3770 

; SET Z FALSE 

6757 

1 8FE 

C9 

• 

• 


RET 


? RETURN NOT FOUND (NZ) 
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6759 

1 8FF 

• 

• 

• 

.********************* 

6760 

18FF 

• 

# 

• 

; BKTAB - 

BACK TAB 

* 

6761 

18FF 

• 

• 

• 

.********************* 

6762 

1 8FF 

• 

• 

• 

BKTA6 EQU 

$ 


6763 

1 8FF 

CD 

72 

19 

CALL 

CHKFMO 

; FORM AT/SOFT KEY DEFINE MODE 

6764 

1902 

C 2 

02 

18 

JnZ 

BACKTO 

; YES - LOCATE PREVIOUS FIELD 

6765 

1905 

3 A 

Cl 

FF 

LD A 

CURCOL 

; NO - FIND PREVIOUS SET TAB 

6766 

1908 

3D 

• 

• 

DCR 

A 

; START AT PPEVIOUS CULUMN 

6767 

1909 

2E 

8F 

• 

MV I 

L f LFTMGN- 

BASE 

6 7 68 

1908 

BE 

• 

• 

CMP 

M 

; WHERE IS CURSORY 

6769 

190C 

CA 

98 

11 

JZ 

CURP04 

; AT MARGIN - SET DISPLAY 

6 7 7 0 

1 9 OF 

F2 

39 

19 

JR 

BKT100 

; AFTER MARGIN - FIND PREV IA 

6 771 

1912 

# 

• 

• 

9 



67 7 2 

1912 

• 

• 

• 

; CURSOR at BEGINNING OF LINE - LOCATE TAB IN 

6773 

191? 

• 

• 

• 

; PREVIOUS LINE 


6774 

1912 

• 

• 

• 

• 

9 



6775 

1912 

3 A 

66 

FF 

LDA 

MLKROW ; 

GET MEMORY LOCK ROW 

6776 

1915 

2E 

CO 

• 

MV I 

L , CURROW 


6777 

1917 

BE 

• 

• 

CMP 

H 

; CURRENT ROW = LUCK ROW? 

67 7 8 

1918 

C2 

22 

1 9 

JNZ 

BKT010 

; NO - MOVE CURSOR UP ONE ROW 

67 79 

1918 

CD 

C5 

06 

CALL 

ROLLDN 

; YES - PULL DOWN ONE LINE 

6 780 

1 9 1 E 

C8 

• 

• 

RZ 


;CAN'T ROLL DOWN - EXIT 

67 8 i 

1 9 1 F 

C 3 

26 

t 9 

JMP 

BKT050 

;G0 LOCATE LAST TAB SET 

67 82 

1922 

• 


• 

• 

9 



6783 

1922 

• 

• 

• 

. ; CURSOR NOT AT TOP 

OF FREE AREA - MOVE UP 1 LINE 

6784 

1922 

• 

. 

• 

9 



6785 

1922 

• 

• 

• 

BKT010 EQU 

$ 


' 6 7 86 

1922 

7E 

• 

• 

MOV 

A r M 

? GET CURRENT ROW NUMBER 

6787 

1923 

87 

• 

• 

ORA 

A 

; ROW = 0 

6788 

1924 

C8 

• 

• 

RZ 


; YES - DON'T RACK TAB WHEN 

6789 

1925 

• 

• 

• 

• 

9 


CURSOR IS LOCATED IN ROW 

6790 

1925 

• 

• 

• 

• 

9 


ZERO AND DISPLAY LUCK ON 

6791 

1925 

35 

• 

• 

DCR 

M 

; NO - DECREMENT ROW NUMBER 
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6793 

1926 

6794 

1926 

6795 

1926 

6796 

1926 

6797 

1926 

6798 

1929 

6799 

1 92B 

6800 

1 92D 

6801 

1930 

6802 

1931 

6803 

19 32 

6804 

1934 

6805 

1935 

6806 

1938 

6807 

1938 

6808 

1939 

6809 

1939 

6810 

1939 

6811 

1939 

6812 

1939 

6813 

193A 

6814 

193B 

b8 15 

1 9 3D 

6816 

1 93D 

b8 1 7 

193F 

6818 

1940 

6819 

1941 

6820 

1942 

6821 

1945 

6822 

1945 

6823 

1946 

6824 

1947 

6825 

1947 

6826 

1947 

6827 

1947 

6828 

1947 

6829 

1949 

6830 

1949 

6831 

1 94 A 

68 32 

1 94D 

6833 

1 94D 

6834 

1 94D 

68 35 

1 94D 

6836 

194D 

6837 

194E 

6838 

1 94F 

6839 

1950 

6840 

195 3 

6841 

1954 

6842 

1955 

6843 

1956 

6844 

1957 


3 A 81 FF 
Eb 80 
3E 4F . 
CA 38 19 

3C . 

4F . 

2E BE . 
BE • • 

CA 98 11 

• • • 
3d . 


5F 
79 
E5 
2 A 
84 
2C 
BD 
El 
FA 


BE 


98 


FF 


11 


; PREVIOUS ROW LOCATED - LOCATE LAST TAB SET 


BKT050 

EQU 

$ 

; GET LAST TAB ENTRY 


LDA 

HTBTBL+9 


AN 1 

200Q 

; LAST TAB SET? 


MV I 

A , MAXCOL 

; (SET FOR LAST CULUMN-1) 


JZ 

BKT060 

; NO - LOCATE LAST TAb 


INR 

MOV 

A 

C, A 

; YES - SET FOR LAST COLUMN ft 


MV I 

L, RHTMGN 

-BASE 


CMP 

M 

;RIGHT MARGIN = LAST COLUMN? 


JZ 

CURPU4 

; YES - SET CURSOR TO LAST CO 

BKT060 

Egu 

$ 

•NO - SET TO MAXCOL-1 AND 

DCR 

A 

; LOCATE PREVIOUS TAB 


; LUCATE PREVIOUS TAB (A = CURRENT COLUMN - 1) 


f 


BKT100 

EQU 

S 

; RESTORE CURRENT COLUMN 

INR 

A 


MOV 

B, A 

; SAVE IT 

• 

OR I 

70 

•SET 10 COLUMN COPRESPOINDIN 
TO LAST BIT OF TAB BYTE 

9 

MV I 

L , LF TMGN 

-BASE 


SUB 

M 

; COMPUTE NUMBER OF CHARS 


MOV 

C ,A 

; TO SEARCH 


MOV 

A, B 

; RECALL CURRENT COLUMN 

m 

CALL 

fndtbi 

; GET BYTE MASK AND 

CORRESPONDING TABLE BYTE 

9 

OCR 

A 

; SET FOP MASK TO MASK OFF 


ANA 

M 

; SUCCEEDING TABS 


t 

9 


LOCATE PREVIOUS TAB SETTING 


BKT110 EDU $ 

M VI B , 8 
BKT120 EQU $ 

RLC 

JNC BKT150 


INITIALIZE BIT COUNT 
; TAB SET? 

; NO - BACK UP ANOTHER COLUMN 


« 

tab LOCATED - SET CUPSOR tC = TAB COLUMN) 


BKT130 F.gU $ 

MOV E r A 
MOV A,C 
PUSH H 
LHLD RHTMGN 
ADD H 
INP L 
CMP L 
POP H 
JM CURP04 


; SAVE A-REGISTER 
; PUT COLUMN NUMBER IN A-REG 
; SAVE H AND L 
? GET MARGIN SETTINGS 
; COMPUTE TAB COLUMN LOCATION 
; IS TAB LOCATION BEYOND LEFT 

; MARGIN? 

; (RESTORE H AND L) 

;NO - LOCATE TAB AND RETURN 



ITEM LGC 
6845 1 95A 


OBJECT CODE 
7 B . 


SOURCE 




STATEMENTS 

s3s:sr:;:ss 


MOV A , E 
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PAGE 203 

? YES - RECALL A-REGISTER 


13255 


ITEM 

6847 

6848 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 


90003 

Rev 

AUG-01 

-76 



LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 204 

1 95R 

• 

• 

• 

******************************* 

1 95B 

• 

• 

• 

; continue: 

SCANNING 

BACKWARDS * 

1 95B 

• 


• 

;****************************** 

1 95B 

• 

• 

• 

BKT150 EQIJ 

$ 


1 95R 

OD 

• 

• 

OCR 

C 

; COLUMN ZERO REACHED? 

1 95C 

CA 

4D 

19 

JZ 

BKT130 

; YES - SET CURSOR COLUMN 

1 95F 

05 

• 

• 

OCR 

B 

; BITE DONE? 

i960 

C2 

49 

19 

JNZ 

BKT120 

; NO - CONTINUE TO NEXT COLUM 

1 9b3 

2B 

• 

• 

DCX 

H 

; YES - GET NEXT BYTE 

1964 

7E 

• 

• 

MOV 

A,M 


1965 

C3 

4 1 

19 

JMP 

BKT1 10 

; CHECK BYTE FOR TAB SET 
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ITEM 
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6859 

1968 

• 

. # ; * *******************5M******************* 

6860 

1968 

• 

• • 

; CHAIN - SET H,L TO POINTER FROM MEMORY * 

6861 

1968 

• 

* » 

;♦****♦**♦**♦ ************************** 

6862 

1968 

• 

• • 

• 

9 


6863 

1968 

• 

• • 

; ENTRY : 

H f L = ADDRESS OF POINTER 

6864 

1968 

• 

• • 

? 


6865 

1968 

• 

• « 

? EXIT : 

A = USB OF POINTER 

6866 

1968 

• 

# • 

• 

9 

H,L = POINTER VALUE 

6667 

1968 

• 

* • 

9 

9 


6868 

1968 

• 

• • 

CHAINO EQU 

$ 

6869 

1968 

E6 

• • 

XCHG 

? PUT ADDRESS INTO H , L 

6870 

1969 

• 

# • 

CHAIN1 EQU 

$ 

6871 

1969 

7D 

• • 

MOV 

A,L ; COMPUTE LOCATION OF NEXT 

6872 

196 A 

E6 

FO . 

A N I 

37 7Q-BLKSM ;BLOCK POINTER IN BLOCK 

6873 

1 96C 

6F 

• • 

MOV 

L , A ; GET THE: NEXT BLOCK ADDRESS 

6874 

1 96D 

• 

• • 

CHAIN EQU 

$ 

6875 

i960 

7 E 

• • 

MOV 

A r M ; GET LSB OF POINTER 

6876 

196E 

23 

• • 

INX 

H 

6877 

1 96F 

66 

• • 

MOV 

tt,M ? PUT MSB INTO H-RFGISTEP 

6878 

1970 

6F 

• • 

MOV 

L , A ;PUT LSB INTO L-REGISTER 

68 7 9 

1971 

• 

• • 

NOFNCT EQU 

$ ? (NON-FUNCTION FOP ESC SEQ 

6880 

1971 

C9 

• • 

RET 

; RETURN 
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ITEM 

LOC 

OBJECT 

CODE SOURCE 

STATEMENTS 

PAGE 206 




5ss: 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

sss: 


ii 

ii 

(I 

ii 

ii 

H 

It 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

If 

II 

H 

6082 

1972 

« 

• 

• 

.***j^>*******:M***»******* *********** *********** 

6883 

1972 

• 

• 

• 

CHKFMS - 

CHECK FORMAT AND SOFT KEY DEFINE MODE 

6884 

1972 

• 

« 

• 


6885 

1972 

• 

• 

• 





6886 

1972 

• 

• 

• 

ENTRY: 

DON'T CARE 


6887 

1972 

• 

• 

• 





6888 

1972 

• 

• 

• 

EXIT 

• 

Z - NEITHER MODE ENABLED 

6889 

1972 

• 

• 

• 



A = 0 


6890 

1972 

• 

# 

• 



NZ - MODE 

ENABLED 

6891 

1972 

• 

• 

• 



A = -1, 

SOFT KEY MODE ENABLED 

6892 

1972 

• 

• 

• 



A > 0, 

FORMAT MODE ONLY ENABLED 

6893 

1972 

• 

• 

• 





6694 

1972 

• 

• 

. CHKFMO 

EQU 

$ 


6895 

1972 

2E 

6C 

• 


MV I 

L , SPOWL 

; TURN OF SPGw LATCH FIRST 

6896 

1974 

36 

FF 

• 


MVI 

M f SPOWOF 


6897 

1976 

• 

• 

. CHKFMS 

EQU 

$ 


6898 

1976 

3 A 

AE 

FF 


LDA 

DSPTYP 

? GET DISPLAY TYPE FLAG 

6899 

1979 

B7 

• 

• 


ORA 

A 

; SOFT KEY DISPLAY ON? 

6900 

1 97 A 

CO 

• 

• 


RNZ 


; Y ES - RETURN 

6901 

1 97B 

• 

• 

. CHKFMT 

EOU 

$ 


6902 

197B 

3 A 

F 4 

FF 


LDA 

MDFLG1 

; NO - GET MODE FLAGS 

6903 

197E 

E6 

08 

• 


ANI 

FORMAT 

?MASK for format flag and 

6904 

1980 

C9 

• 

• 


RET 


; RETURN 
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ii 

li 

1! 

it 

li 

li 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

It 

ii 

it 

it 

ii 

ii 

it 

ii 

li 

ii 

n 

H 

II 

II 

II 

II 

li 

n 

ii 

ii 

ii 

ii 

n 

ii 

ii 

it 

li 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

li 

it 

li 

M 

li 

li 

6906 

1981 

• 

• 

• 

****************************************** 


6907 

1981 

« 


• 

CHKMLK - 

CHECK FOR MEMORY LOCK ENABLED * 


6908 

1981 

• 

• 

• 

* ***************************** ************ 


6909 

1981 

• 

• 

• 




6910 

1981 

• 

• 

• 

ENTRY : 

DON'T CARE 


6911 

1981 

• 

• 

• 




6912 

1901 

• 

• 

• 

EXIT : 

Z => MEMORY LOCK ENABLED 


6913 

1981 

• 

• 

• 


NZ => MEMORY LOCK NOT ENABLED 


6914 

1981 

• 

• 

• 


A,H,L DESTROYED 


6915 

1981 

« 

• 

. ? 



6916 

1981 

• 

• 

, CHKMLK EOU 

$ 


6917 

1981 

3 A 

F 4 

FF 

LDA 

MDFLG1 ? GET SOFT MODE FLAGS 


6918 

1984 

2F 

• 

• 

CM A 

; MEMORY LOCK ENABLED 

FOR FUL 

6919 

1985 

E6 

04 

• 

ANI 

MFMLOK ? LOCKOUT IF MEMORY 

LOCK SE 

6920 

1987 

21 

6B 

FF 

LXI 

H r MLKRGW 7 AND MEMORY LOCK ROW = 0 

6921 

1 98 A 

B6 

♦ 

• 

ORA 

M 


6922 

1980 

C9 

• 

• 

RET 

/RETURN 


6923 

1 98C 

• 

• 

• 

>******************** ************ *** 


6924 

t 98C 

• 

• 

• 

CHKSFK - 

CHECK FOR SOFT KEY MODE * 


6925 

198C 

• 

• 

• 

-****♦*♦»* ********* ***************** 


6926 

1 98C 

• 

• 

• 




6927 

198C 

• 

• 

• 

EXIT : 

Z - NORMAL MODE 


6928 

1 98C 

• 

• 

• 


A = 0 


6929 

1 98C 

• 

• 

• 


NZ - SOFT KEY DEFINE MODE 


6930 

1 98C 

• 

• 

• 


A DESTROYED 


6931 

1 98C 

• 

• 

• 




6932 

1 98C 

• 

• 

, CHKSFK EQU 

$ 


6933 

198C 

3 A 

AE 

FF 

LDA 

DSPTYP ; GET DISPLAY TYPE FLAG 

6934 

1 98F 

87 

• 

• 

ORA 

A ; SET Z FALSE IF SOFT 

KEY 

6935 

1990 

C9 

• 

• 

RET 

; ON AND RETURN 
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ssxsssssxsszssssssssssBsisssxssfSisssastisssscsssssstsacssscasssssss:::::::; 


ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGF 208 

H 

(I 

It 

tt 

(1 

tt 

H 


SS8SS 

33333333 

33333333:3333 

33SS«3S3SZ33esXSS33333SSSS3S35SS=S===S£ 

6937 

1991 

• 

• 

• 

;************************ 

6938 

1991 

• 

• 

• 

; CD - CHARACTER DELETE * 

6939 

1991 

• 

• 

• 

************************* 

6940 

1991 

• 

• 

• 

DELWRP FQU 

$ 

; DELETE WITH WRAP AROUND 

6941 

1991 

CD 

76 

19 

CALL 

CHKFMS 

; FURMAT/SOFT KEY DEFINE i^ODE 

6942 

1994 

3E 

20 

• 

MV I 

A r wRPDEL 

;(PUT WRAP FLAG IN A-REGJ 

6943 

1996 

CC 

39 

17 

cz 

SETMF2 

? NO - SET WRAP AROUND FLAG 

6944 

1999 

• 

• 

• 

* 

9 



6945 

1999 

• 

• 

• 

CHRDEL EOU 

$ 


6946 

1999 

CD 

8C 

19 

CALL 

CHKSFK 

; SOF'I KEY DEFINE MODE? 

6947 

1 99C 

CA 

A4 

19 

JZ 

CHD010 

;N0 - DO DELETE 

6948 

1 99F 

3 A 

CO 

FF 

LDA 

CURROW 

/YES - GET CURSOR ROW 

6949 

19A2 

OF 

• 

• 

RhC 


?IN DATA LINE? 

6950 

1 9A 3 

DO 

• 

« 

RNC 


;N0 - RETURN 

6951 

1 9 A4 

• 

• 

• 

CHD010 EOU 

$ 

r YES - DO DELETF 

6952 

1 9 A4 

AF 

• 

• 

XRA 

A 

/ZERO SAVE AREA 

6953 

1 9 A5 

32 

98 

FF 

ST A 

CHSAV 


6954 

1 9A8 

CD 

OA 

IA 

CALL 

CHDOOO 

; DELETE A CHARACTER 

6955 

1 9A8 

3 A 

98 

FF 

LDA 

CHSAV 

; RECALL THE DELETED CHARACTE 

6956 

1 9AF 

B7 

• 

• 

ORA 

A 

;WAS IT A DISPLAY CONTROL? 

6957 

1 9 AF 

FA 

99 

19 

J M 

CHRDEL 

;YES - CONTINUE DELETING 

6958 

1962 

• 

• 

• 

******************** 

************************* 

6959 

19B2 

• 

• 

• 

; ADJUST FOR CHARACTERS BEYOND RIGHT MARGIN * 

6960 

1962 

• 

• 

• 

;*************♦♦***************************** 

6961 

1 9B2 

21 

Cl 

FF 

LX 1 

h,cukcol 


6962 

1 9B5 

3A 

BE 

FF 

LDA 

RHTMGN 


6963 

1968 

BE 

• 

• 

CmP 

M 

/ CURSOR BEYOND RIGHT MARGIN? 

6964 

19B9 

08 

• 

• 

RC 


; YES - DON 9 1 CHECK WRAP 

6965 

1 96 A 

46 

• 

• 

MUV 

B, M 

; NO - SAVE CURRENT COLUMN 

6966 

1 9BB 

77 

• 

• 

MOV 

M,A 

;SET COLUMN TO RIGHT MARGIN 

6967 

1 9bC 

57 

• 

• 

MOV 

D t A 

/SAVE RIGHT MARGIN VALUE; 

6968 

1 9bD 

2E 

F4 

• 

MVI 

L, MDFLG1 

•BASE 

6969 

1 9BF 

4£ 

• 

• 

MOV 

C , M 

/SAVE SOFT MODE FLAGS STATE 

6970 

1 9C0 

C5 

• 

• 

PUSH 

b 

/AND CURRENT COLUMN 

6971 

1 9C l 

79 

• 

• 

MOV 

A ,C 

/FORCE THE INSERT CHARACTER 

6972 

1 9C2 

E6 

FD 

• 

AN 1 

377Q-INSCHR ; MODE OFF 

6973 

19C4 

7 7 

• 

• 

MOV 

M , A 
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it 

li 

II 

II 

II 

It 

ii 

ii 

n 

ii 

ii 

ii 

ti 


:szs 


ii 

it 

it 

it 

ii 

ii 

it 

li 

II 

U 

II 

li 

it 

it 

it 

it 

it 

li 

li 

it 

li 

li 

li 

n 

ii 

ii 

ii 

ii 

n 

li 

ii 

ii 

ii 

it 

it 

ii 

li 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ti 

ii 

it 

ii 

ITEM 

LOG 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 209 


ii 

ii 

it 

ii 

ii 

ii 

ti 

SIST SS 





it 

ii 

it 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

it 

ti 

ii 

ii 

ii 

ii 

ii 

ti 

ti 

ii 

it 

ii 

ii 

ii 

it 

ii 

it 

6975 

19C5 

« 

• 

• 

.******************************************* 

6976 

1 9C5 


• 

* 

; DELETE PERFORMED - 

CHECK FOP WRAP AROUND * 

6977 

19C5 

• 

• 

• 

******************************************** 

6978 

19C5 

21 

6F 

FF 

LAI 

H , MFLGS2 

? GET TERMINAL MODE FLAGS 

6979 

19C8 

7E 


• 

MOV 

A,M 

; MASK OUT DELETE WRAP FLAG 

6980 

19C9 

E6 

DF 

• 

ANI 

377Q-WRPDEL 

6981 

1 9CB 

BE 

• 

m 

CMP 

M 

; DELETE WRAP AROUND ENABLED? 

6982 

19CC 

CA 

01 

t A 

JZ 

CHD050 

; NO - EXIT 

6983 

19CF 

77 

• 

• 

MOV 

M , A . 

; YES - UPDATE MODE FLAGS 

6984 

1 9D0 

• 

• 

• 

************************** *********** ******** 

6985 

1 9D0 

• 

• 

• 

? TRANSFER A CHRACTER 

UP FROM THE NEXT LINE * 

6986 

1900 

• 

• 

• 

;********************************* *********** 

6987 

19 DO 

• 

• 

• 

CHD020 EQU 

$ 


6988 

191)0 

3E 

20 

• 

M V I 

A , ABLNK 

? PRESET DELETED CHARACTER 

6989 

1 9D2 

32 

98 

FF 

ST A 

CHSAV 

; TO A BLANK 

6990 

1 9D5 

21 

CO 

FF 

LXI 

H , CURPUW 

; SET TO DELETE FIRST 

6991 

19D8 

34 

♦ 

• 

INR 

M 

; CHARACTER AT LEFT MARGIN 

6992 

1 9U9 

23 

• 

• 

I N X 

H 

; FROM NEXT ROW 

6993 

1 9D A 

3 A 

BF 

FF 

LDA 

LFTMGN 


6994 

1 9DD 

77 

• 

• 

MOV 

M,A 


6995 

1 9DE 

CD 

CD 

06 

CALL 

RCADR4 

yChARACTER EXIST? 

6996 

1 9£1 

CC 

19 

1A 

CZ 

CHRDL1 

; YES - DELETE IT 

6997 

1 9E4 

21 

CO 

FF 

LXI 

H,CURRQW 

; RESTORE ROW NUMBER AND SET 

6998 

1 9E7 

35 

• 

• 

DCR 

M 

; COLUMN TO RIGHT MARGIN 

6999 

1 9E8 

23 

« 

• 

I NX 

H 


7000 

1 9E9 

3 A 

BE 

FF 

LD A 

RHTMGN 


7001 

1 9EC 

77 

• 

• 

MOV 

M r A 


7002 

19 ED 

3 A 

98 

FF 

LD A 

CHSAV 

; GET THE DELETED CHARACTER 

7003 

1 9FQ 

FE 

20 

• 

CPI 

ABLNK 

; BLANK CHARACTER DELETED? 

7004 

1 9F2 

CA 

01 

1A 

JZ 

CHD050 

? YES - EXIT 

7005 

1 9F5 

06 

00 

• 

M V I 

6,0 

; NO - SET TO FURCE ENHANCE 

7006 

1 9F7 

CD 

E2 

21 

CALL 

DISPC2 

; DISPLAY THF CHARACTER 

7007 

1 9F A 

3A 

9b 

FF 

LDA 

CHSAV 

; RECALL THE DELETED CHARACTE 

7008 

1 9 F D 

B7 

• 

• 

ORA 

A 

; WAS IT ASCII? 

7009 

19FE 

FA 

DO 

19 

JM 

CHD020 

; NO - TRANSFER ANOTHER BYTE 

7010 

1 AO t 

• 

• 

• 

*********** 

********************************** 

7011 

1 AO 1 

• 

• 

• 

; EXIT - RESTORE CURSOR COLUMN AND "MDFLGl" * 

7012 

1 AO 1 

• 

• 

• 

.******************************************** 

7013 

1 AO 1 

• 

• 

• 

CHD050 EQU 

$ 


7014 

1 AO t 

Cl 

• 

• 

POP 

B 

? RECALL ORIGINAL VALUES 

7015 

1 A02 

21 

Cl 

FF 

LXI 

H , CURCOL 


7016 

1 A 05 

70 

• 

• 

MOV 

M , B 

; RESTORE CURSOR COLUMN 

7017 

1A06 

2E 

F 4 

• 

MV I 

L , MDFLG1 -BASE 

7018 

1 A08 

71 

• 

• 

MOV 

M , C 

; RESTORE "MDFLG1 

7019 

1A09 

C9 

• 

• 

PET 


? RETURN 
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7021 

1 AOA 

• 

• 

• 

CHDOOO EQU 

$ 


7022 

1 AO A 

CD 

CD 

06 

CALL 

RCADR4 

7 DOES CHARACTER EXIST? 

7023 

1 AOD 

CO 

• 

• 

RNZ 


7 NO - RETURN 

7024 

1 AOE 

CD 

9A 

1A 

CALL 

CHD500 

;SKIP OVER SINGLE DISPLAY 

7025 

1 A 1 1 

• 

• 

• 

• 

9 


ENHANCEMENT CODE 

7026 

1 A 1 1 

CD 

7B 

19 

CALL 

CHKFMT 

; FORMAT MODE? 

7027 

1 A 1 4 

CA 

19 

1A 

JZ 

CHD10Q 

7 NO - DELETE THE CHARACTER 

7028 

1A17 

04 

• 

• 

INP 

B 

7CURS0R IN PROTECTED FIELD? 

7029 

1 Al 8 

C« 

• 

• 

RZ 


; YES - RETURN 

7030 

1A19 

• 

• 

• 

********************************* 

7031 

1A19 

• 

• 

• 

7 CHRDLt - 

DELETE ONE CHARACTER * 

7032 

1 A 1 9 

• 

• 

« 

********************************* 

7033 

1 A 1 9 

• 

• 

• 

; 



7034 

1 Al 9 

« 

• 

• 

? ENTRY: 

C a CHARACTER COLUMN POSITION 

7035 

1 A 1 9 

« 

• 

• 

• 

9 

D,E * ADDRESS OF CHAR TO BF DELETED 

7036 

1 A 19 

• 

• 

• 

• 

9 



7037 

1 A 1 9 

• 

• 

• 

i EXIT : 

ALL REGISTERS DESTROYED 

7038 

1 A19 

• 

• 

• 

« 

9 

CHSAV a 

CHARACTER DELETED (UNCHANGED 

7039 

1 A 1 9 

• 

• 

• 

; 

I* A CHARACTER HAS NOT BEEN DELETED) 

7040 

1 A19 

• 

• 

# 

• 

9 



7041 

1 A 1 9 

• 

• 

• 

CHRDL1 EQU 

$ 


7042 

1A19 

• 

• 

• 

CHD100 EQU 

$ 


7043 

1A19 

IA 

• 

• 

LDAX 

D 

7 GET CHARACTER TO BE DELETED 

7044 

1 Al A 

FE 

CC 

• 

CPI 

EOL 

; IS IT EUL? 

7045 

1 A1C 

ca 

• 

• 

PZ 


7 YES - RETURN 

7046 

1 A ID 

32 

98 

FF 

STA 

CHSAV 

;s AVE THE DELETED CHARACTER 

7047 

1A20 

62 

• 

• 

MOV 

H,D 

|H # L a ADDR OF CHAR TO FILL 

7048 

1A21 

6B 

• 

• 

MOV 

L,E 

;D,E a ADDR OF CHAR TO MOVE 

7049 

1 A22 

• 

• 

• 

********************************************* 

7050 

1 A22 

• 

• 

• 

7 MOVE CHARACTERS DOwN TO PREVIOUS POSITION * 

7051 

1 A22 

• 

• 

• 

;******************************************** 

7052 

1 A22 

• 

• 

• 

CHD110 EQU 

$ 


7053 

1 A22 

CD 

87 

OB 

CALL 

NXTCHR 

7 GET THE NEXT CHARACTER 

7054 

1 A25 

C2 

74 

1A 

JNZ 

CHD210 

; EOL LINK - TERMINATE DELETE 

7055 

1 A28 

47 

• 

• 

MOV 

b, A 

; SAVE CHARACTER IN B-REGISTE 

7056 

1 A29 

FE 

CO 

• 

CPI 

ENHLIM+1 J ASC I I OR ENHANCEMENT CODE? 

7057 

1A2B 

DA 

49 

1A 

JC 

CHD120 

;YES - SEE IF PAST MARGIN 

7058 

1 A2E 

• 

• 

• 

; ********************************************* 

7059 

1 A2E 

• 

• 

• 

; FORMAT CONTROL CODE FOUND - CHECK FUNCTION * 

7060 

1 A2E 

• 

• 

• 

I********************************************* 

7061 

1 A2E 

FE 

CC 

• 

CPI 

EOL 

7 END OF LINE? 

7062 

1 A30 

CA 

88 

1A 

J Z 

CHD250 

;YES - TERMINATE DELETE 

7063 

1A33 

FE 

C 3 

• 

CPI 

FILL 

; END OF LINE FILL? 

7064 

1 A35 

CA 

70 

1A 

JZ 

CHD200 

? YES - TERMINATE DELETE 

7065 

1A38 

CD 

91 

1A 

CALL 

CHD400 

; FORMAT MODE 6 DELETE ASCII? 

7066 

1A3B 

CA 

49 

1A 

JZ 

CHD120 

/NO - MOVE NEW CHARACTER 

7067 

1A3E 

78 

• 

• 

MOV 

A , B 

7 YES - GET CHAR TO BE MOVED 

7068 

1 A3F 

FE 

CO 

• 

CPI 

STPR 

7 IS IT START PROTECT? 

7069 

1A41 

CA 

9D 

1C 

JZ 

CLEP02 

7 YES - CLEAR REST OF FIELD 

7070 

1 A44 

• 

• 

• 

7 


AND TERMINATE DELETE 

7071 

1 A44 

FE 

C5 

• 

CPI 

ALPHA 

7 TYPE DEFINITION? 

7072 

1 A46 

F2 

22 

1A 

JP 

CHD1 10 

7 YES - SKIP OVER CHARACTER 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE 
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7074 

1 A49 

• 

• 

• 

•**********> ***************************** 

7075 

1 A49 

• 

• 

• 

? CHARACTER 

TO BE MOVED - CHECK MARGIN * 

7076 

1A49 

• 

• 

• 

.*************************************** 

7077 

1 A49 

• 

• 

• 

CHD120 

E«U 

$ 


7078 

1 A49 

3 A 

BE 

FF 


LDA 

RHTMGN 


7079 

1 A4C 

B9 

* 

• 


CMP 

C 

?CHAR FROM BEYOND MARGIN? 

7080 

1 A4D 

C2 

57 

1 A 


JNZ 

CHDiiO 

; NO - CONTINUE DELETE 

7081 

1 A50 

3 A 

98 

FF 


LDA 

CHSAV 

; YES - GET DELETED CHARACTER 

7082 

1 A53 

B7 

• 

• 


ORA 

A 

?IS IT ASCII? 

7083 

1 A54 

36 

20 

• 


MV I 

M f ABLNK 

; (SET BLANK BY DEFAULT) 

7084 

1 A56 

FO 

• 

• 


RP 


; YES - TERMINATE DELETE 

7085 

1 A57 

• 

• 

• 

• 

9 



NO - PUT CHAR INTO PREV CHAR 

7086 

1 A57 

• 

• 

• 

********************** 

**************************** 

7087 

1 A57 

* 

• 

• 

; move: 

CHARACTER INTO 

PREVIOUS CHARACTER POSITON * 

7088 

1 A57 

• 

• 

• 

************************************************** 

7089 

1 A57 

• 

• 

• 

CHD130 

EOU 

$ 


7090 

1A57 

70 

• 

• 


MOV 

rt r B 

! REPLACE PREVIOUS CHARACTER 

7091 

1 A58 

78 

• 

• 


MOV 

A,B 


7092 

1 A59 

8/ 

• 

9 


ORA 

A 

; IS CHARACTER ASCII? 

7093 

1 ASA 

FA 

5E 

1A 


JM 

CHD140 

; NO - advance to next char 

7094 

1 A5D 

oc 

• 

• 


INR 

C 

; YES - INCREMENT COLUMN ft 

7095 

1 A5E 

• 

• 

• 

CHD140 

EOU 

$ 


7096 

1 A5E 

CD 

86 

OB 


CALL 

NXTCHO 

? GET THE NEXT CHARACTER 

7097 

1 A6 1 

FE 

C5 

* 


CPI 

ALPHA 

; TYPE DEFINITION? 

7098 

1 A63 

DA 

6C 

1A 


JC 

CHU150 

;NU - CONTINUE MOVING CHARS 

7099 

1 A66 

CD 

91 

1A 


CALL 

CHD400 

; FORMAT MODE & DELETE ASCII? 

7100 

1 A69 

C4 

87 

OB 


CNZ 

NXTCriR 

;YES - ADVANCE TO NEXT CHAR 

7101 

1A6C 

9 

• 

• 

CHD150 

EQU 

$ 


7102 

1 A6C 

EB 

• 

• 


XCHG 


? RESTORE REGISTER POSITIONS 

7103 

1 A60 

C3 

22 

1A 


JMP 

CHDIIO 

; MOVE NEXT CHARACTER 
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ii 
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7105 

1 A70 

• 

• 

• 

;***********************♦*********************** 

7106 

1 A70 

• 

• 

• 

? END OF LINE FILL 

CHARACTER FOUND - CLEAR THE * 

7107 

1 A 70 

• 

• 

• 

; REST OF 

THE LINE * 

7108 

1 A70 

• 

• 

• 

• ******** ********** ******** ft-***-**** ***** 

7109 

1 A70 

• 

• 

* 

CHD200 EQU 

$ 


7110 

1 A70 

CD 

68 

19 

CALL 

CHAINO 

? GET END OF LINE LINK IN H,L 

7111 

1A73 

EB 

• 

• 

XCHG 


J EXCHANGE H,L AND D , E 

7112 

1A74 

• 

• 

• 

.ft******************************************* 

7113 

1 A74 

• 

• 

• 

; END OF LINE LINK 

FOUND - CLEAR THE REST OF * 

7114 

1A74 

• 

• 

• 

; THE LINE 

♦ 

7115 

1 A74 

• 

• 


. *********** ****************** ****** ********** 

71 16 

1 A7 4 

• 

• 

• 

CHD210 EQU 

$ 


7117 

1 A 7 4 

CD 

91 

1A 

CALL 

CHD400 

; FORMAT MODE & DELETE ASCII? 

7118 

1A77 

EB 

• 

• 

XCHG 


; ( SET D,E TO LAST CHAR ADD 

7119 

1A78 

26 

• 

• 

DCX 

H 

;h ,L TO LSB OF NEXT LINE 

7120 

1A79 

• 

• 

• 

• 

1 


LINK) 

7121 

1 A79 

C2 

8C 

1A 

JNZ 

CHD260 

; YES - CLEAR REST OF FIELD 

7122 

1 A7C 

• 

• 

• 

9 


TO LSB OF NEXT LINE LINK 

7123 

1 A7C 

3 A 

98 

FF 

LDA 

CHSAV 

? RECALL DELETED CHARACTER 

7124 

1 A7F 

B7 

• 

• 

ORA 

A 

; WAS IT ASCII? 

7125 

1A80 

F2 

8C 

1A 

JP 

CHD260 

; YES - END LINE WITH EOL 

7126 

1 A83 

3E 

C 3 

• 

M V I 

A, FILL 

; NO - END LINE WITH FILL 

7127 

1 A85 

Ci 

61 

1C 

JMP 

CLERL1 

;CLEAR REST OF LINE 



ITEM 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 

7139 

7140 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

7150 

7151 

7152 
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========= 

it 

il 

ii 

ii 

ii 

ii 

if 

ii 

it 

«i 

ii 

it 

ti 

ii 

n 

ii 

ii 

ii 

ii 

ii 

li 

it 

ii 

ii 

ii 

ti 

ii 

ti 

ii 

il 

1 A88 

• 

• 

« 

**************** ******************* ******* 

1 A88 

• 

• 

• 

? EOL FOUND 

- CLEAR 

THE REST OF THE LINE * 

1 A88 

• 

• 

• 

.***************************************** 

1 A88 

• 

• 

• 

CHD250 EQU 

$ 


1 A88 

CD 

68 

19 

CALL 

CHAINO 

; GET EOL LINK IN H , L 

1 A80 

2B 

• 

• 

DC X 

H 

; SET TO LSB OF NEXT LINE LIN 

1A6C 

• 

• 

• 

CHD260 EQU 

$ 

; CLEAR THE REST OF THFJ LINE 

1 A8C 

3E 

CC 

• 

MV I 

A, EOL 

? TERMINATING WITH AN EOL 

1 ABE 

C 3 

61 

1C 

JMP 

CLERL1 


1 A9 1 

• 

• 

• 

.********************************************* 

1 A9 1 


• 

• 

; CHD400 - 

CHECK FOR 

FORMAT MODE ENABLED AND * 


1A91 
1 A9 1 
1A91 
1A91 
1 A 9 1 
1A91 
1 A9t 
1 A9 1 
1 A9 1 
1 A94 
1 A 95 
1 A98 
1A99 


DISPLAYABLE ASCII CHARACTER DELETED * 

********************************************* 

EXIT : NZ - FORMAT MODE AND DELETE ASCII 

Z - NOT FORMAT MODE OR NON-DISPLAY 
CODE DELETED 


• 

• 

• 

CHD400 EQU 

$ 


3 A 

98 

FF 

LD A 

CH5AV 

; GET CHARACTER DELETED 

07 

• 

9 

ORA 

A 

?IS IT DISPAYABLE ASCII 

F2 

7B 

19 

JP 

CHKFM T 

; YES - CHECK FOR FORMAT 

AE 

• 

• 

XRA 

A 

;NU - RETURN Z 

C9 

# 

• 

RET 




MODE 
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LOC 

OBJECT 

CODE 
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7154 

1 A9 A 

• 

• 

• 


-*********************** ****** ****************** 

7155 

1 A9 A 

• 

• 



CHD500 - 

CHECK FOR 

DISPLAY EHANCEMENT DELETE * 

7156 

l A9 A 

• 

• 

• 


!********************************** ************* 

7157 

1 A9 A 

• 

• 

• 





7158 

1 A9A 

• 

• 

• 


ENTRY: 

D , E = CHARACTER TO BE DELETED 

7159 

1 A9 A 

• 

• 

• 





7160 

1 A9 A 

• 

• 

• 


fxii : 

D,E = ACTUAL CHARACTER TO DELETE 

7161 

1 A9 A 

• 

• 




A , L DESTROYED 

7162 

1 A9 A 

• 

• 

• 





7163 

1 A9 A 

• 

• 

• 

CHD500 EQU 

$ 


7164 

1 A9 A 

IA 

• 

• 


LD AX 

D 

? GET CHARACTER TO BE DELETED 

7165 

1 A9B 

87 

• 

• 


ADD 

A 

? DISPLAY ENHANCEMENT CODE? 

7 1 6o 

1 A9C 

DO 

• 

• 


RNC 


; ASCII - LET IT bE DELETED 

7167 

1 A9D 

F8 

• 

• 


RM 


; FORMAT CONTROL - DELETE IT 

7168 

1 A9E 

2E 

02 

• 


M V 1 

L,2 

} YES - LOOK FOR POSSIBLE 

7169 

1 A AO 

D5 

• 

• 


PUSH 

D 

; DOUBLE EHANCEMENT CODE 

7170 

1 A A 1 

• 

• 

• 

CHD510 EQU 

$ 


7171 

1 A A 1 

CD 

87 

OB 


CALL 

NXICHR 

; GET THE NEXT CHARACTER 

7172 

1 AA4 

C2 

AE 

1A 


JNZ 

CHD515 

;EXIT IF EOL LINK 

7173 

1AA7 

87 

• 

• 


ADD 

A 

; enhancement code? 

7174 

1 AA8 

D2 

BO 

1 A 


JNC 

CHD520 

? ASCII - CHECK for scan done 

7175 

1 A AB 

FA 

A1 

IA 


J M 

CHD510 

; FORMAT CONTROL - CONTINUE 

7176 

1 AAE 

• 

• 

• 

CHD515 EWU 

$ 


717/ 

1 AAE 

D1 

• 

• 


POP 

D 

;YES - DELETE ENHANCEMENT 

7178 

1 AAF 

C 9 

• 

• 


RET 



7179 

1 ABO 

• 

• 

• 

'ft********************************************* 

7180 

1 A BO 

« 

• 

• 

; ASCII CHARACTER FOUND - CHECK FOR SCAN DONE * 

7181 

1 ABO 

« 

• 

• 

********************* ************************** 

7182 

1 ABO 

• 

• 

• 

CHD520 EOU 

$ 


7183 

1 ABO 

2D 

• 



DCR 

L 

;N£XT ASCII CHARACTER FOUND? 

7184 

1 AB 1 

C2 

A 1 

t A 


JNZ 

CHD510 

; NO - CONTI NUF SCAN 

7185 

1 AB4 

• 

• 

• 

• *********************************** ******** 

7186 

1 AB4 

• 

• 

• 

; NEXT ASCII CHARACTER OR EOL LINK FOUND - * 

7187 

1 A64 

* 

• 

• 

? DON'T DELETE DISPLAY ENHANCEMENT CODE * 

7188 

1 AB4 

• 

• 

• 

i 

♦ a******************-************************ 

7189 

1AB4 

D1 

• 

• 


POP 

D 

; RECALL ORIGINAL ADDRESS 

7190 

1 A65 

C3 

87 

OB 


JMP 

NXTCHR 

;SET TO DELETE NEXT CHAR 



ITEM 

LOC 

OB 

7192 

1 AB8 

• 

7193 

1 AB8 

• 

7194 

1 AB8 

• 

7195 

1 ABB 

• 

7196 

1A68 

• 

7197 

1AB8 

• 

7198 

1 AB8 

• 

7199 

1 ABB 

• 

7200 

1 AB8 

• 

7201 

1 AB8 

• 

7202 

1 ABB 

• 

7203 

1A68 

• 

7204 

1 AB8 

C5 

7205 

1 AB9 

05 

7206 

1 ABA 

CU 

7207 

1 ABD 

D1 

7208 

1 ABE 

Cl 

7209 

1 ABF 

13 

7210 

1 ACO 

C9 


CODE 


13255-90003 Rev AUG-01 
SOURCE STATEMENTS PAGE 215 

• JM****************** *************** ********* 

? CHRDL2 - DELETE CHARACTER ^/REGISTER SAVE * 

• a******************************************** 


ENTRY: C = CHARACTER COLUMN POSITION 

0,E = ADDRESS OF CHAR TO BE DELETED 


EXIT J B,C = B ,C (ENTRY ) 

D,E = D , £ ( ENTRY ) ♦ 1 
A,H,L DESTROYED 


CHRDL2 EyU $ 

PUSH B 
PUSH U 
CALL CHRDL1 
PUP 1) 

POP B 
l NX D 
RET 


? SAVE REGISTERS B,C 
; AND D , E 

; DELETE THE CHARACTER 
; RESTORE REGISTER D,E 
? AND B,C 
? INCREMENT D , E 
t RETURN 


-76 
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ITEM 

LOC 

OBJECT 

CODE SOURCE STATEMENTS PAGE 216 

7212 

1 AC 1 

• 

• 

• 

*********** ********** ******* 

7213 

1 AC 1 

• 

• 

• 

CHRINS - INSERT CHARACTER * 

7214 

1 AC 1 

• 

• 

• 

**************************** 

7 215 

1 AC 1 

• 

• 

• 


7216 

1 AC 1 

• 

• 

• 

ENTkY : A = CHARACTER TO BE INSERTED . 

7217 

1 AC 1 

• 

• 

• 

CURROW ,CURCOL = DISPLAY POSITION WHERE 

7218 

1 AC 1 

• 

• 

• 

INSERT IS TO BE DONE 

7219 

1 AC 1 

« 

• 

• 


7220 

1 AC 1 

• 

• 

• 

EXIT S A = 0, INSERT NOT DONE 

7221 

1 AC 1 

• 

• 

• 

A * 0, INSERT PERFORMED 

7222 

1 AC 1 

• 

• 

• 

DCHAR DESTROYED 

7223 

1 AC1 

• 

• 

• 

B-L DESTROYED 

7224 

1 AC1 

• 

• 

• 


7225 

1 AC 1 

• 

• 

• 

CHARACTER IS INSERTED IMMEDIATELY AHEAD OF THE 

7226 

1 AC 1 

• 

• 

• 

' CHARACTERS LOCATED AT THE SPECIFIED ROW AND 

722 7 

1 ACl 

• 

• 

• 

COLUMN POSITIONS 

7228 

1 AC 1 

• 

• 

• 


7229 

1 AC 1 

• 

• 

. ( 

:hrins EyU $ 

7230 

1 ACl 

32 

89 

FF 

STA DCHAR ;SAVE CHAR TO BE INSERTED 

7231 

1 AC 4 

3E 

F F 

• 

MVT A# 3 77 Q /INHIBIT LINE EXTENSION 

7232 

1 AC 6 

32 

91 

FF 

STA BLKFIL 

7233 

1 AC 9 

CD 

CD 

06 

CALL RCADR4 /DOES DISPLAY POSITION EXIST 

7234 

1 ACC 

C2 

E9 

21 

JNZ DI5PLA /NO - TRY TO EXTEND LINE 

7235 

1 ACF 

• 

• 

. / YES - INSERT THE CHARACTER 
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ITEM 

LGC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 217 

7237 

1ACF 

• 

• 

• 


7238 

1ACF 

• 

• 

• 

? CRI100 - 

ENTRY TO 

STORE CHARACTER FOR INSERT * 

7239 

1 ACF 

• 

• 

• 

; CHARACTER MODE 

* 

7240 

1ACF 

• 

• 

• 

«************^#**^ ******** ********************* 

7 241 

1 ACF 

• 

• 

• 

• 

9 




7242 

1 ACF 

• 

• 

• 

i ENTRY: 

C = COLUMN NUMBER 

724 3 

1 ACF 

• 

• 

• 

« 

9 


D , E = ADDR WHERE INSERT IS TO RE MADE 

7244 

1 ACF 

• 

• 

• 

• 


H = BASEH 


7245 

1 ACF 

• 

• 

• 

• 

9 




7246 

1 ACF 

• 

• 

• 

CR1100 

EQU 

$ 


7247 

1 ACF 

CD 

65 

to 


CALL 

CKPROT 

? CURSOR IN PROTECTED FIELD? 

7248 

1 AD2 

CA 

D4 

22 


JZ 

DTS092 

;YES - TAB TO NEXT FIELD 

7249 

1 ADS 

• 


• 

CRI104 

EQU 

S 


7250 

1 ADS 

2E 

89 

• 


MV I 

L,DCHAR- 

BASE 

7251 

1AD7 

46 

• 

• 


MQV 

B,M 

; GET CHAR TO BE INSERTED 

7252 

1 AD8 

EB 

• 

• 


XCHG 

; PUT CHAR ADDRESS INTO H , L 

7253 

1 AD9 

• 

• 

* 

CRI 1 1 0 

EQU 

$ 


7254 

1A09 

78 

• 

• 


MOV 

A,B 

; IS THIS CONTROL CODE? 

7 255 

1 AD A 

B7 

• 

• 


ORA 

A 


7256 

1 ADB 

FA 

DF 

1A 


JM 

CR1120 

; YES - DON'T COUNT COLUMN 

7257 

1ADE 

OC 

• 

• 


I NR 

C 

; INCREMENT COLUMN 

7258 

1 ADF 

• 

• 

• 

CRI 120 

EQU 

$ 


7259 

1 ADF 

7E 

• 

• 


MOV 

A,M 

; GET CHAR IN CURRENT ADDR 

7 260 

1 AEO 

70 

• 

m 


MOV 

M,R 

; STORE NEW CHAR 

7261 

1 AE1 

47 

• 

9 


MOV 

B,A 

;SAVE OLD CHAP IN b 

7262 

1 AE2 

26 

• 

m 


OCX 

H 

;MOVE TO NEXT CHARACTER 

7263 

1 AE3 

3E 

50 

9 


M V I 

A t M AXCOL+ 1 

7264 

1 AE5 

R9 

• 

9 


CMP 

C 

; STORE DONE AT END OF LINE? 

7265 

1 AE6 

CA 

91 

IB 


JZ 

CRI 305 

; YES - TERMINATE INSERT 

7266 

1AE9 

3 A 

BE 

FF 


LDA 

RHTMGN 

; GET RIGHT MARGIN COLUMN 

726 7 

1 AEC 

3C 

• 

• 


INR 

A 

; WAS THE LAST STORE DONE 

7268 

1 AED 

B9 


• 


CMP 

C 

; AT THE RIGHT MARGIN? 

7269 

1 AEE 

CA 

89 

IB 


JZ 

CRI 300 

; YES - TERMINATE INSERT 
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ii 

ii 

it 

ii 

ii 

ii 

ii 

n 

::: s 

::s 




ITEM 

LOC 
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CODE 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

2 = 2 


ssssssssss: 

H 

ii 

II 

II 

II 

II 

II 

li 

H 

II 

II 

II 

li 

H 

li 

H 

ii 

li 

ii 

li 

n 

li 

li 

ii 

l* 

ii 

li 

ii 

li 

li 

u 

ti 

it 

li 

ti 

it 

ii 

li 

li 

li 

7271 

1 AF1 

• 

• 

• 

;********************************** 

7272 

1 API 

• 

• 

• 

? PROCESS 

NEXT CHARACTER OF BLOCK * 

7273 

1 API 

• 

• 

• 

*********************************** 

7274 

1AF1 

• 

• 

• 

CP 1 1 40 EQU 

$ 


7275 

1 AF 1 

IE 

• 

• 

MOV 

A,M 

GET THE NEXT CHARACTER 

7276 

1 AF2 

FE 

CO 

• 

CPI 

ENHLIM+ 1 

'ASCII OR DISPLAY CONTROL? 

7277 

1AF4 

DA 

D9 

1A 

JC 

CRI 110 

rYES - MOVE THE BYTE 

7278 

1 AF7 

FE 

DO 

• 

CPI 

LNKLIM ; IS IT A LINK BYTF? 

7 27 9 

1AF9 

D2 

5D 

16 

JNC 

CRI200 ; YES - MOVE TO NEXT BLOCK 

7280 

1 AFC 

FE 

CC 

• 

CPI 

EOL ; IS IT END OF LINE? 

7281 

1 AFE 

CA 

39 

16 

JZ 

CRI 1 58 

YES - ADD LAST CHAR TO LINE 

7282 

1 BO t 

FE 

C3 

• 

CPI 

FILL 

END OF LINE FILL CHARACTER? 

7283 

1B03 

CA 

44 

16 

JZ 

CRI 1 59 

YES - ADD BYTE TO END 

7284 

1B06 

3 A 

89 

FF 

LD A 

DCHAR 

NO - FIELD CHECK CHARACTER 

7285 

1B09 

R7 

• 

• 

ORA 

A 

IS ADDED CHARACTER ASCII? 

7286 

1 BOA 

FA 

D9 

1 A 

JM 

CRH 10 

NO - CONTINUE INSERT MOVE 

7287 

1 BOD 

CD 

76 

19 

CALL CHKFMS 

FORMAT MODE ENABLED? 

7288 

1R1Q 

CA 

D9 

1 A 

JZ 

CRI 1 1 0 

NO - CONTINUE INSERT 

7289 

1 B 1 3 

7E 

• 

• 

MOV 

A,M 

YES - RECALL THE BYTE 

7290 

1 B i 4 

FE 

CO 

• 

CPI 

ST PR 

IS CHARACTER A START PROT? 

7291 

1 B 1 6 

CA 

22 

16 

JZ 

CRI 1 50 

YES - CHECK INSERT TYPE 

7292 

1B19 

FE 

C5 

• 

CPI 

ALPHA 

FIELD TYPE DEFINITION? 

7293 

1 B 1 B 

FA 

D9 

1A 

JM 

CRI110 

NO - CONTINUE INSERT 

7294 

1 R 1 E 

2B 

• 

• 

DCX 

H 

YES - ADVANCE TO NEXT BYTE 

7295 

18 IF 

Ci 

FI 

1A 

JMP 

CRI 140 

LOOK TO NEXT CHARACTER 
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u 

ii 

H 

if 

ti 

if 


s::s 



ii 

ii 

ii 

ii 

ii 

ii 

H 

If 

11 

•> 


ITEM 

ItOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 219 



it 

ii 

ii 

ii 

it 


it 

ii 

ii 

ii 

ii 




n 

it 

ii 

it 

it 

it 

ii 

ii 

it 

it 

ii 

it 

ii 

ti 

it 

!« 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

7297 

1622 

* 

• 

0 

.*************•*******♦**************** 

7298 

1822 

0 

• 

0 

; END OF FIELD - ASCII 

CODE INSERTED * 

7299 

1822 

• 

0 

0 

; ************************************* 

7300 

1822 

♦ 

• 

0 

CRI150 EQU 

$ 


7301 

1B22 

78 

• 

0 

MOV 

A,b 

; GET CHAR WHICH ROLLED OFF 

7302 

1823 

67 

0 


ORA 

A 

?IS IT ASCII? 

7303 

1B24 

F2 

2F 

IB 

JP 

CRI154 

;YES - DELETE PREV CONTROLS 

7304 

1827 

« 

0 

0 

CRI152 EQU 

$ 

; NO - BACK UP ANOTHER CHAR 

7305 

1B27 

CD 

2E 

1C 

CALL 

CRI500 

; IS PREVIOUS CHARACTER ASCII 

7306 

1B2A 

FA 

27 

IB 

JM 

CRI152 

; NO - CONTINUE BACKING UP 

7307 

1820 

36 

80 

0 

MV I 

M , 200Q 

; YES - TEMPORARILY REPLACE 

7308 

1B2F 

• 

0 

0 

9 


ASCII WITH DUMMY CONTROL 

7 309 

1 B2F 

0 

0 

0 

CRH54 egu 

S 


7310 

1B2F 

CD 

2E 

1C 

CALL 

CRI500 

? PREVIOUS CHARACTER ASCII? 

7311 

1 B32 

FA 

2F 

IB 

JM 

CRI154 

;N0 - CONTINUE BACKING UP 

7312 

1835 

2B 

0 

0 

DCX 

h 

; MOVE TO NEXT CHARACTER 

7313 

1B36 

C 3 

9D 

1C 

JMP 

CLER02 

JCLEAR REST OF FIELD 



3255- 

90003 

Rev 

AUG-01 

-76 


ii 

ii 

ii 

ii 

ii 

ii 

11 

II 

s:s: 

ssss 

S3SS 

H 

ti 

ii 

it 

ii 

It 

ii 

ii 

(I 

il 

ii 

il 

li 

il 

li 

it 

li 

it 

ll 

it 

it 

it 

ti 

it 

ll 

it 

il 

it 

it 

it 

it 

li 

il 

il 

ll 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

M 

II 

II 

It 

II 

II 

II 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 220 

7315 

1B39 

• 


• 

.**************************♦** 

7316 

1B39 

• 

• 

• 

,* EOL FOUND * 

7317 

1B39 

• 

• 

• 

; ADD LAST CHARACTER TO LINE * 

7318 

1B39 

• 

• 

• 

;****: t************************ 

7319 

1B39 

• 

• 

• 

CRI 158 EQU $ 

7320 

1 B39 

78 

• 

• 

MOV A / B ? GET CHARACTER 

7321 

1B3A 

B7 

• 

• 

ORA A ; IS THIS CONTROL CHAR? 

7322 

1B3B 

FA 

47 

lb 

JM CRI 1 60 ;YES - ADD CHAR 

7323 

1B3E 

79 

• 

• 

MOV A,C ;NQ - CHAP IS ASCII 

7324 

IB3F 

FE 

4F 

• 

CPI MAXCOL MS THIS MAX COLUMN? 

7325 

1 B4 1 

C2 

48 

IB 

JNZ CRI 170 t NO - ADD CHAP 

7326 

1 B44 

• 

• 

• 

CRI 159 EQU S 

7327 

1B44 

70 

• 

• 

MU V M , B ; ASCI I CHARACTER INSERTED TO 

7 3 28 

1R45 

B7 

# 

• 

ORA A MAXIMUM COLUMN - OVERLAY 

7329 

1B46 

C9 

• 

• 

RET ; EQL AND RETURN NZ 

7 330 

1647 

• 

# 

• 

; #44****4*44*f**44*4******* 

7331 

1B47 

• 

• 

• 

; EOL CANNOT BE OVERLAYED * 

7332 

1 B47 

• 

• 

• 

} ADD NEW CHAR TO LINE * 

7333 

1847 

m 


• 

; *^*** + *4 ****************** 

7334 

IB47 

• 

• 

• 

CRI 160 EQU $ 

7335 

1 B47 

01) 

• 

• 

DCR C 

7336 

1B48 

• 

• 

• 

CRI 1 7 0 EQU $ 

7337 

1B48 

EB 

• 

• 

XCHG ? PUT H,L INTO D , E 

7338 

1B49 

• 

• 

• 

CRI 180 EQU S 

7339 

1 R49 

21 

89 

FF 

LXI H , DCHAR ;SAVE CHARACTER TO BE ADDED 

7340 

1 B4C 

70 

• 

• 

MOV M,B 

7341 

1 B4D 

2£ 

Cl 

• 

MV I L,CURCOL-BASE 

7342 

1 B4F 

46 

• 

• 

MOV 6,M ; GET CURRENT CURSOR COLUMN 

7343 

1 B50 

C5 

• 

• 

PUSH B ? AND SA VE IT 

7344 

1 B5 l 

71 

• 

• 

MOV M,C ;SET "CURCOL" TO INSERT COL 

7345 

1652 

OE 

00 

• 

M V I C,0 ;SET # OF CHARS NEEDED TO 1 

7346 

1B54 

• 

• 

• 

; (VALUE IN C IS ONE LESS) 

7347 

1 B54 

CD 

AB 

08 

CALL DISPL1 ; BUILD NECESSARY BLOCKS 

7348 

1 B57 

Cl 

• 

• 

PUP B ; RESTORE ORIGINAL CURSOR 

7349 

1B58 

21 

Cl 

FF 

LXI H, CURCOL ;CULUMn NUMBER 

7350 

1 B5B 

70 

• 

• 

MOV M r B 

7351 

1 B5C 

C9 

• 

• 

RET ; RETURN (A=MEMORY LOCK STATE) 



I IEM 

7 35 3 
/ 354 
7355 
7 3 5 o 
7 357 
7 358 
7359 
7 360 
7 361 
7 362 

7363 

7364 
1 365 
7 36 6 

7367 

7368 

7369 
7 370 
7371 
73 72 
7 373 
7 3 74 
7375 
7 37t> 
737 7 
7378 
7 3 7 9 

7380 

7381 

7382 

7383 

7384 

7385 

7386 

7387 

7388 

7389 

7390 


1 3255-90003 


LOC OBJECT CODE SOURCE STATEMENTS 


Rev AUG-01-76 
RACE 221 


1 B5D 
1 B5D 
1 BSD 
1 BSD 


1 B 8 2 
1B82 
188 3 
1B83 
1 B8 3 
1B63 
1 B8 3 
1B83 
1986 
l B 8 8 


? LINK FUU«D - MOVE TO NEXT BLOCK * 
CR120O EyU $ 


1 B5D 

22 

96 

FF 

SHI.D 

LNK5AV 

;SAVE CURRENT BLOCK ADDRESS 

1 B60 

2b 

• 

• 

OCX 

H 

i GET TrtE LSB OF THE LINK 

1 B6 l 

7E 

• 

• 

MOV 

A r M 

1 B62 

2K 

• 

• 

Cm a 


;IS iT AN EUL LINK (LOWER 

1 B 6 3 

E6 

OF 

• 

AN I 

bLKSM 

? FOUR BI TS NOT ALL OwKS)V 

1 B65 

C 2 

6E 

IB 

JNZ 

CP 1240 

? YES - EXTEND i HE LINF 

l Ro8 

CD 

6D 

19 

CALL 

CHAIN 

7 NO - GET NEXT BLOCK ADDRESS 

1 B6 9 

C 3 

Ft 

1 A 

JMP 

CPI 1 40 

;CONTlwUE INSERT CHARACTER 

1 B6E 

• 

• 

• 

;********************* 

1B6E 

• 

• 

• 

; NEW BLOCK 

REgU IRED 

* 

1 B6E 

• 

• 

• 

*********** *********** 

1 B6E 

• 

• 

• 

CP1240 Egu 

$ 


186E 

78 

• 

• 

MOV 

A , 6 

?SAVE CHARACTER BEING MOVED 

1 B6E 

32 

90 

FF 

ST A 

i'EhP 


1 B / 2 

23 

• 

• 

TUX 

H 

;GET THE LAST CHARACTER OE 

1 B 1 3 

23 

• 

• 

TnX 

H 

;ThE current BLOCK TO bE 

1R7 4 

46 

• 

• 

MOV 

B , M 

; STORED AGAIN IN THE SAME 

IB 75 

Eb 

• 

• 

XCHG 


; LOCATION oY "DISPLl" 

1 B 7 6 

OD 

« 

• 

OCR 

C 

; GET COLUMN * OF PKFV CHAR 

1 P V 7 

CD 

49 

1 B 

CALL 

CRI180 ; 

ADD BLOCK 

1 B 7 A 

B7 

• 

• 

ORA 

A 

is memory lucked? 

1 P 7 B 

CA 

83 

IB 

J 2 

CR1260 ; 

YES - BLOCK NuT ADDED 

1B7E 

3 A 

9D 

FF 

LOA 

TEMP 

;NU - RECALL CHAR TO BE A DDE 

1B81 

12 

• 

• 

STAX 

D 

7 PUT CHARACTER In NEW BLOCK 


C9 


2 A 
36 
C9 


94 

CC 


RET 


(OVERWRITE EOL) 
; RETURN 


FF 


BLOCK NO I AVAILABLE * 

WRITE EOL AT END Of LAST BLOCK * 

********************************* 

CFU260 EOU S 

LHLD EOL ADR ; GET ADR OF CUR BEFORE LNK 
MV I M f EOL ; WRITE EOL 

P ET ; RETURN 
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7392 

7393 

7394 
7 395 

7396 

7397 

7398 

7399 

7400 

7401 
7 402 

7403 

7404 
7 405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 
7 414 
7415 
741o 

7417 

7418 

7419 

7420 

7421 
7 422 

7423 

7424 

7425 

7426 

7427 
7 428 
7429 
7 4 30 
7 431 
7 432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 


1R89 

1B89 

1B89 

1B89 

1R89 

1B89 

1B89 

l BSC 

1 B8D 

1B90 

1 B9 1 

1B91 

1R94 

1 B97 

1698 

1 B9B 

1 B9C 

1B9P 

1BA0 

l BA 3 

1BA4 

1BA7 

1BAA 

1 BAB 

1BAE 

1BAF 

IB AF 

1BAF 

IBAF 

1 BAF 

1 BB2 

1BB3 

1BB5 

1BB8 

1 BBA 

1BBD 

1BC0 

1BC 1 

1BC2 

1BC3 

1BC3 

1BC6 

1BC7 

1 BC A 

1BCD 

1 BCF 

1BD2 

1 B03 

1BD5 


-76 = = : = r====r = 

SOURCE STATEMENTS — 

.***************************♦*********♦***** 

; RIGHT MARGIN OR END OF LINE REACHED - * 

? TERMINATE AND OPTIONALLY PUSH CHARACTERS * 

TO THE NEXT LINE (WRAP AROUND) 


.******************* ******* ***************** 


CR I 300 Egu $ 


3A 

89 

FF 

LD A 

DCHAR 

B7 

• 

# 

ORA 

A 

FA 

FI 

1A 

J to 

CR I 1 40 

79 

• 

• 

MOV 

A,C 

• 

• 

• 

C P 1 3 0 5 FQU 

$ 

32 

D7 

FF 

ST A 

PARM5 

22 

96 

FF 

SHLD 

LNKSAV 

FB 

• 

• 

XCHG 


CD 

05 

26 

CALL 

INITD1 

13 

• 

• 

INX 

D 

CD 

87 

OB 

CALL 

NXTCHR 

EB 


• 

XCHG 


22 

D5 

FF 

SHLD 

PARM6 

78 

• 

• 

MOV 

A,b 

CA 

C 3 

lb 

J2 

CRI320 

CD 

CO 

13 

CALL 

A20UTB 

B7 

• 

• 

ORA 

A 

F2 

D8 

IB 

JP 

CRI 330 

C9 

• 

• 

RET 


• 

• 

• 

• 

• 

• 

? ACCUMULATE THE EXCES 

• 

• 

• 

• 

9 



• 

• 

CR13I0 EQU 

$ 

2A 

D5 

FF 

LHLD 

PARM6 

Eti 

• 

• 

XCHG 


3E 

FK 

• 

MVI 

A r - l 

32 

98 

FF 

STA 

CHSAV 

OE 

50 

• 

MVI 

C ,MAXC0L+1 

CD 

19 

1A 

CALL 

CHRDL1 

3 A 

98 

FF 

LDA 

CHSAV 

47 

• 

• 

MOV 

B f A 

04 

• 

• 

INR 

B 

C8 

• 

• 

RZ 



• 

• 

CRI 320 FQU 

$ 

CD 

CO 

13 

CALL 

A20UTB 

87 

• 

• 

ORA 

A 

FA 

AE 

IB 

JM 

CR1310 

3 A 

D7 

FF 

LDA 

P ARMS 

FE 

50 

• 

CPI 

MAXCOL+l 

2 A 

96 

FF 

LHLD 

LNKSAV 

EB 

• 

• 

XCHG 

3E 

C 3 

• 

MVI 

A, FILL 

CC 

5E 

1C 

CZ 

CLERLO 


GET THE INSERTED CHARACTER 
IS IT ASCII? 

NO - CONTINUE INSERTING 


SAVE ENDING COLUMN NUMBER 
SAVE ENDING CHARACTER ADDR 


; CHARACTER 

; ARE WE AT AN EOL LINK? 

; (PUT 1ST EXCESS CHAR IN A 
•MU - ACCUMULATE EXCESS 
;YES - SAVE FIRST EXCESS CHA 
; IS IT ASCII? 

•YES - CHECK FOP INSERT WRAP 
; NO - RETURN 


; RECALL EXCESS CHAR ADDRESS 
7 PUT ADDRESS INTO D,E 
; SET DELETED CHAR TO -1 

; FORCE DELETE PAST MARGIN 
DELETE ONE EXCESS CHARACTER 
RECALL THE DELETED CHARACTE 
SAVE THE CHARACTER IN B-REG 
ANY CHARACTER DELETED? 

NO - RETURN (A#0) 

YES - ACCUMULATE EXCESS 
PUT DELETED CHAR INTO BUFFE 
WAS DELETED CHARACTER ASCII 
NO - CONTINUE ACCUMULATING 
RECALL ENDING COLUMN NUMBER 
TERMINATE ON LAST COLUMN? 

; (RECALL ENDING CHAR ADDR) 

; (SET FOR FILL PAD) 

• YES - CLEAR REST OF LINE 
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II 

II 

II 

II 

II 

II 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 



ii 

it 

it 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

n 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

ii 

ii 

n 

ii 

ii 

ii 

ii 

it 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

It 

II 

11 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 223 


ii 

ii 

•i 

ii 

ii 

ii 

ii 


:sss 

ii 

ii 

ii 

n 

ii 

!! 

II 

II 

It 

II 

II 

ft 

II 

II 

H 

II 

II 

It 

it 

it 

ii 

ii 

ii 

ii 

it 

if 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

ii 

IS 

it 

it 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

7442 

1 B D 8 

• 

• 

• 

i 



7443 

1 BU8 

• 

• 

• 

? EXCESS CHARACTERS 

ACCUMULATED - CHECK K OR WRAP 

7444 

1 8D8 

• 

• 

« 

! 



7 445 

1 BD8 

* 

• 

• 

CR1330 FOU 

$ 


744b 

1BD8 

3 A 

F8 

FF 

LD A 

CMfr LGS 

; GET THE COMMON FLAGS 

/ 4 4 7 

1 BDB 

2F 

• 

• 

CM A 


; COMPLEMENT FLAGS 

74 4b 

IBDC 

Fb 

02 

• 

AM 

i NSWKP 

;WRAP AROUND ENABLED? 

7 44y 

1 B D E 

CO 

« 

• 

RNZ 


? NO - RETURN (A#0) 

7450 

1 8DF 

3 A 

Cl 

Ft 

LD A 

CURCUL 

; YES - GET THE CURRENT CuLUM 

7 **51 

IBE2 

47 

• 

• 

MU V 

ti, A 

; SAVE VALUE IN B-REG1STER 

7452 

1 BE 3 

3A 

BE 

FF 

LD A 

KH1MGN 


7 45 3 

1 BE6 

b a 

• 

• 

CMP 

b 

; C IJRSOK BEYOND RIGHT MARGIN? 

7454 

1BE7 

Db 

• 

• 

PC 


;YES - RETURu 

7455 

1 BE8 

CD 

7b 

iy 

CALL 

CHKFMS 

; FuRMA i’/SOFT KE V DEFI NE MODE 

745o 

1 BE8 

CO 

• 

• 

RwZ 


; YES - RETURN 

7457 

1 BEC 

C5 

• 

• 

PUSH 

ti 

; Mu - SAVE CURRENT COLUMN AN 

7 458 

1 BED 

21 

CO 

FF 

LX I 

H,CURRU* 

; INCREMENT TO NEXT FOW 

7 459 

1 B F Q 

34 

• 

• 

INR 

M 


7 4o0 

1BF1 

2 A 

C9 

FF 

LhLD 

ESI LIN 

; CHECK TO SEE IF NEXT LINE 

7401 

l B F 4 

5E 

• 

• 

MQV 

E,M 

; IS FULL ( I . E . , NO " EOL" 

7462 

18F5 

23 

• 

• 

InX 

H 

; BEFORE KlGH'l MARGIN J 

7463 

1 BF6 

5b 

• 

• 

MOV 

D t M 


7464 

1BF7 

1C 

• 

• 

INR 

E 

? DUES NEXT LINE EXIST? 

7465 

1 B F 8 

ID 

• 

• 

OCR 

E 

;(LSB ft 0)? 

7460 

1 BF9 

CA 

oc 

1C 

JZ 

CPI400 

; MO “ ADD CHAP TO NEW LINE 

7467 

1 BFC 

13 

• 

• 

INX 

D 

; YES - START FROM BEGINNING 

7468 

1BFD 

3 A 

BE 

FF 

LDA 

rhtmgn 

;0K LINE TO RIGHT MARGIN 

7469 

1COO 

CD 

58 

IF 

CALL 

IMDLSO 

; N L X T LINE FULL? 

7470 

ICO 3 

F2 

OC 

1C 

JP 

CRI400 

;NU - ADD OVERFLOW CHARACTER 

7471 

1C06 

• 

• 

• 

9 


TO NEXT LINE 

7472 

1C06 

CD 

00 

OA 

CALL 

LININS 

; YES - INSERT A LINE 

7473 

1C09 

CA 

25 

1C 

JZ 

CRI 450 

; E X I T IF MEMORY LOCKED 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 224 

7475 

1COC 

• 

• 

• 

» 

t 




747 b 

1C0C 

• 

• 

• 

t INSERT CHARACTERS 

INTO NEXT LINE 

7477 

1C0C 

• 

• 

• 

! 




7478 

1C0C 

• 

• 

• 

CRI400 

EQU 

$ 


7479 

1C0C 

21 

3B 

FF 


LXI 

H , B2DEND 

; GET BUFFER POINTER 

7480 

1C0F 

7 E 

• 

• 


MOV 

A,M 


7 481 

1C10 

FE 

3C 

• 


CPI 

B2DBFL-1 

; ALL BYTES DONE? 

7482 

1C12 

CA 

25 

1C 


JZ 

CRI 450 

?YES - EXIT 

7483 

1C15 

35 

• 

• 


dcr 

M 

; NO - UPDATE BUFFER POINTER 

7484 

1C 1 6 

6F 

• 

• 


MOV 

L , A 

; PUT LSB INTO L 

7485 

1C 1 7 

3A 

BF 

FF 


LDA 

LFTMGN 

;SET TO INSERT CHARACTER A1 

7486 

1C 1 A 

32 

Cl 

FF 


ST A 

CURCOL 

; LEFT MARGIN 

7487 

1C 1 D 

7 E 

• 

• 


MOV 

A f M 

; GET CHARACTER TO INSERT 

7488 

1C IE 

CD 

Cl 

1A 


CALL 

CHRIWS 

? INSERT CHARACTER 

7489 

1C21 

87 

• 

• 


ORA 

A 

; INSERT SUCCESSFUL? 

7 490 

IC22 

C2 

oc 

1C 


JNZ 

CRI400 

? YES - DO NEXT BYTE 

7491 

1C25 

• 

• 

• 

! 




7492 

1C25 

* 

• 

• 

; ALL 

CHARACTERS INSERTED - EXIT 

7493 

1C25 

• 

• 

• 

• 




7494 

1C25 

• 

• 

• 

CRI450 

EOU 

$ 


7495 

1C25 

21 

CO 

FF 


LXI 

H t CURROW 


7496 

1C28 

35 

• 

• 


DCR 

M 

; RESTORE THE PON NUMBER 

7497 

1C29 

FI 

* 

• 


POP 

PSw 

? RECALL THE COLUMN NUMBER 

7498 

1C2A 

23 

• 

• 


INX 

H 


7499 

1C2B 

77 

• 

• 


•MOV 

M , A 

; RESTORE COLUMN NUMBER 

7500 

1C2C 

3C 

• 

• 


INR 

A 

; FORCE A * 0 

7501 

1C2D 

C 9 

• 

• 


RET 


; RETURN 



i tem 

7503 
7 50 4 
750 *? 
750b 
7507 
750b 
7 509 

7510 

7511 

7512 
7 51b 

7514 

7515 
7 516 
7 517 

7518 

7519 
7 520 
7521 
75 2^ 
752 3 
7524 
7 525 
75 2b 
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1 C 2 E 
1C2E 
1C2E 
1C2E 
1C2E 
1C2E 
1C2E 
1 C2E 
1 C 2 £. 
1 C 2 E 
IC2E 
1 C 2 F. 
1C2E 


1C2E 

• 

m 

• 

CRI500 

Eg u 

$ 

1C2E 

23 

9 

• 


TNX 

H 

1 C 2 E 

7D 

9 

• 


MOV 

A f L 

lC3n 

Fb 

OE 

• 


AN L 

bLKSM 

l C 3 2 

C 2 

39 

1C 


JNZ 

CRI510 

1 C 3 5 

2 A 

9b 

F F 


LHLD 

Li N f\ S A V 

1C38 

23 

# 

• 


IPX 

H 

1 C 39 

9 

9 

• 

C H I 5 1 0 

EyU 

S 

1C 3 9 

7 E 

9 

• 


D U V 

A , to 

1 C 3 A 

B7 

9 

• 


ORA 

A 

1C3B 

C 9 

• 

• 


RET 



♦♦***♦** ***************** ******m 

C R 1 5 0 0 - GeT PREVIOUS CHARACTER * 

********************************** 

ENTRY: H # I, = CURRENT CHARACTER ADDRESS 

LNKSAV = ADDRESS OF MSB PARI OF NEXT 
BLOCK LINK IN PREVIOUS BLOCK 

EXIT : A = PREVIOUS CHARACTER 

H,L = ADDRESS Ot PREVIOUS CHARACTER 

p - character t o ascii 
m - character is non-display control 


;M0VE TO PREVIOUS CHARACTER 
; I ti BLOCK 

; previous c hap ac i er ir- block 

; YES - GET IT 

;NO - GET PREV BLOCK ADDRESS 
; SET TO L AS ( CHARACTER AD DR 

?GET THE PREVIOUS CHARACTER 
;St-T FLAGS FOR ASCII OR .«C1T 
;ASCIT AND RETURN 
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II 

!i 

II 

II 

II 


ii 

n 

ii 

n 



ITEM 

LGC 

OBJECT 

CODE 

752b 

IC3C 

• 

• 

• 

7529 

1C3C 

• 

• 

m 

7530 

1C3C 

• 

• 

m 

7531 

1C3C 

• 

• 

m 

7 53 2 

1C3C 

• 

• 

m 

7 5 33 

iC3C 

• 

• 

m 

7534 

1C3C 


• 

m 

7 53 5 

1C3C 

• 

• 

• 

7 5 36 

1C5C 

• 

• 

• 

7537 

1C3C 

• 

• 

• 

753b 

1C3C 

• 

• 

• 

7539 

1C3C 

CD 

CD 

06 

7540 

1C3F 

Cu 

» 

• 

7b4 1 

1 C 4 0 

Cu 

7 6 

19 

7542 

1C 43 

CA 

5 4 

1C 

7 54 3 

IC46 

F 2 

9 A 

1C 

7544 

1 C 4 9 

• 

• 

• 

7545 

IC49 

• 

• 

• 

7546 

1C49 

• 

• 

* 

754 1 

1C 4 9 

3 A 

CO 

FF 

7 5 4b 

1C4C 

01 

« 

• 

7549 

IC4D 

DO 

• 

• 

7550 

1 C 4 E 

1 A 

• 


7 551 

1C4F 

FE 

Cl 

• 

7 552 

1 C 5 1 

CC 

8 7 

OB 

7 553 

1C54 

* 

• 

• 

7554 

1 C54 

CD 

«C 

19 

7555 

1C57 

3E 

oc 

• 

7556 

1C59 

CC 

08 

48 

7557 

1C5C 

3E 

CC 

• 
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********************** 
CLEAR I. - CLEAR LINE * 
********************** 


ENTRY: DON'T CARE 


EXIT ; A - -1 , ROW NUT POUND 

= o, character found and clear done 

> 0, COLUMN EAST EOL, CLEAR NOT DONE 


CLRARL EOU $ 

CALL KCADR4 
RNZ 

CALL. CHKFrtS 
JZ CLERLA 
JP CLL400 


jDOfS ROfc EXIST? 

;i‘JU - rE 1 URN 

/FORDA 1/SOP I KEY DEFINE DUuP 
;NO - DO NORMAL CLEAR LIuE 
; FORMAT MOOR - CLEAR FIELD 


SOt-T KEY DEFINE MODE - CLEAR DATA ROaS PM.* * 


IDA CUkROw 

PrC 

PNC 

LDAA 0 
CPI E N D P K 

cz nx i cur 

CI-eRLA fc\>U $ 

c A L L CHnSFK 
MVt A, SET PR H 
CZ ZKBCTL 
M V I A , EOL 


; CET CURSOR KOw 
; 1 N D a 1 A LINE ( ODD ROW it)? 
?NU - INHIBIT CLEAR 
;Gfl FIRST CHARACTER 
; E nd P r 0 1 PCI ? 

; r E S - SKIP 1 0 1 S T ABC 1 I C H A 

; Slip T KEY DEFINE MODE? 

; (SET COMrOD CODE) 

; NO - UPDATE FOREIGN muDE 
? CLEAR LINE WITH ’’tOL" END IN 
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ITEM 

LUC 

7559 

1C5E 

7560 

1C5E 

7561 

1C5E 

756 2 

1C5E 

7 56 3 

1C5E 

7 56 9 

1 C 5 E 

7 565 

1C5E 

756o 

1C5E 

7 567 

1 C 5 E 

7 5 o 8 

1C5E 

7 56 9 

IC5E 

7 57 0 

1C61 

7 5 7 1 

IC6 1 

7 5 72 

l C 6 4 

7573 

lCoS 

7574 

1 C 66 

7575 

1Co7 

757o 

1C69 

7 5 7 7 

lCoA 

7576 

1 C 0 B 

7579 

IC6C 

756u 

IC6D 

7 561 

lCoE 

7562 

1 C 0 F 

/ 5 6 3 

1C7'» 

7 58 4 

1C 7 1 

7585 

1C 7 2 

758o 

1C 7 3 

7587 

1C74 


OBJECT COOf SnURCF STATEMENTS 


RAUF 111 



• 

• 

• 

• 


• 

• 

• 

• 


• 

• 


• 

• 


• 

• 


• 

• 


• 

• 


• 

• 

2 A 

C9 

FE 

m 

• 

• 

32 

BE 

Ft 

4 4 

• 

• 

40 

• 

• 

7 b 

• 


Fb 

FO 

• 

6E 

• 

• 

6 2 

• 

• 

7 E 

• 

• 

0 3 

• 

• 

71 

• 

• 

23 

• 

• 

4E 

• 

m 

7o 

• 

• 

45 

• 

• 

61 

• 

• 

6E 

• 

• 

E5 

• 

• 


********* *. ******************** 

CLERLO - CLEAR REST IJF LINE * 


ENTRY: A = TERMINATOR CHARACTER 

D,E = CLEAR STARTING ADDRESS 


EXIT ! SEE "CLEARL" 


CLERLO 

EgU 

$ 



LoLD 

LSI ML 

; G E T CURRENT LINE ADDRESS 

CLERL1 

FvH! 

$ 



Si A 

FILCHE 

; S A V E i F R m 1 N A T U P CHARACTER 


MyV 

B , H 

; SET F,C TU ADDRESS UP NEXT 


MUV 

C , L 

; L J N E RH INTER'S LSb 


MUV 

A , E 

; SET H,L TU ADDRESS UF NEXT 


Ai\ I 

3770-BLKSm ; BLOCK LINK IN CURRENT 


MUV 

L , A 

; F LUCK 


MyV 

H , \) 



MUV 

A » M 

; get next pluck 


1 M X 

b 

; SET P f C TU MSB UF NEXT 5 ulNE 


MUV 

M,C 

; POINTER 


I LX 

H 



MUV 

C,M 



MUV 

m , b 



MUV 

b , L 

? SAVE LSB UF LINE'S MSB ADOR 


MUV 

«i,C 



MUV 

L, A 



PUSH 

H 

; SAVfc, ADDRESS UF NEXT BLOCK 



1 3255-90003 


ITEM 

LUC 

7589 

1C75 

7690 

1 C 7 5 

7591 

1C75 

7592 

1C 75 

7593 

1C 7 6 

7594 

1C 7 8 

7595 

1C 7 A 

7596 

1C7D 

759 7 

1C7E 

759b 

1C7F 

7599 

1C7F 

7600 

1CBO 

7601 

1C«2 

7o02 

1C8 3 

7o03 

iCeb 

7 ou 4 

1C 8 9 

7605 

1C8A 

760o 

1 C o A 

/ o 0 7 

lCB A 

7 ti 0 b 

IC8A 

7o09 

l Cb A 

7ol 0 

1C8B 

7oU 

1C8C 

7612 

lCoO 

7ol 3 

1C8F 

7o 1 4 

IC92 

7o 1 5 

1C93 

7616 

1C94 

7o 1 7 

1C95 

76 1 B 

1C98 

7619 

1C96 

7620 

IC99 
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• 

• 

• 

CLL160 

EUU 

$ 

01 

• 

• 


POP 

It 

7 b 

• 

• 


MG V 

A , E 

2F 

• 

• 


CMA 


E6 

OF 

• 


AN I 

BLKStt 

C 2 

9d 

1C 


Jn7, 

CLL310 

1 b 

• 

• 


OCX 

U 

IB 

• 

• 


OCX 

u 

lb 

• 

• 


OCX 

u 

CD 

91 

Ob 


CALL 

PUT LIN 

• 

• 

• 

CLL310 

ECU S 


AF 

• 

• 


XRA A 


C 9 

• 

• 


RET 



; RECALL ADDRESS OF NEXT BLOC 

;IS if)E LINK AN EOL LINK 
;CLOw 4 bUS NUT ALL ONES) 
; yes - exit 

;NU - ADO BLOCKS to FREE LIS 
;SET AuDKESS TO LSB OF NEXT 
? LINE FIELD IN FIRST BLOCK 
; ADD BLOCKS TO FREE LIST 

;5ET Zt.RU FLAG FUR CLEARS 

? return 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 


s = ss 


sasssssssssssssassssasssssssssssssssssssssssssssssa 

ITEM 

LOC 

OBJECT 

CODE 
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ii 

ii 

ii 

ii 

n 

n 

it 

it 

ii 

ii 

ii 

ii 

ii 

11 

II 

It 

Ii 

II 

ll 

Ii 

ll 

Ii 

It 

II 

II 

ll 

14 

II 

II 

II 

II 

M 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

It 

Ii 

II 

7622 

1C9A 

« 

• 

• 

.************************************** 

7623 

1C9 A 

♦ 

• 

• 

; CLEAR LINE FUNCTION FOR FORMAT MODE * 

7624 

1C9A 

• 

• 

• 

*************************************** 

7625 

1C9A 

• 

• 

• 

CLi.400 EQU $ 

7626 

1C9A 

04 

• 

• 

INR B ; CURSOR IN PROTECTED FIELD? 

7627 

1C9B 

C 8 

• 

• 

RZ ? YES - RETURN , DON'T DO CLEA 

7628 

1C9C 

• 

• 

• 

; * 444 ** ****** ***************** **************** 

7629 

1C9C 

• 

• 

• 

? CLEAR UNPROTECTED FIELD * 

7630 

1C9C 

• 

• 

• 

? D , E s ADDRESS OF FIRST ASCII CHAR IN FIELD * 

7631 

1C9C 

• 

• 

• 

********************************************** 

7632 

1C9C 

• 

• 

• 

CLER01 EQU $ 

7633 

1C9C 

EB 

• 

• 

XCHG 

7634 

1C9D 

• 

• 

• 

CLER02 FQU $ 

7635 

1C9D 

EB 

• 

• 

XCHG ;PUT CHARACTER ADDR INTO D , E 

7636 

1C9E 

13 

• 

• 

INX D ;SET TO PREVIOUS CHARACTER 

7637 

1C9P 

• 

• 

• 

CLL510 EQU $ 

7638 

1C9F 

CD 

87 

OB 

CALL NXTCHR ; GET THE NEXT CHARACTER 

7639 

1CA2 

C 2 

CA 

1C 

JNZ CLL580 ; CHECK EXIT IF EOL LINK 

7640 

ICA5 

87 

* 

• 

ADD A ; ASCII? 

7641 

1CA6 

DA 

BO 

1C 

JC CLL540 ;N0 - CONTINUE 

7642 

1CA9 

3E 

20 

• 

MV I A , ABLNK ;YES - STORE BLANK 

7643 

1 CAB 

12 

• 

• 

STAX D 

7644 

1C AC 

OC 

• 

• 

INR C J INCREMENT COLUMN 

7645 

1C AD 

C3 

9F 

1C 

JMP CLL510 r'TRY NEXT CHARACTER 

7646 

1CB0 

• 

• 

• 

.********************** 

7647 

1CB0 

• 

• 

• 

; NON-ASCII CHARACTER * 

7648 

1CB0 

• 

# 

• 

.********************** 

7649 

1CB0 

• 

• 

• 

CLL540 EQU $ 

7650 

1 CBG 

FA 

B9 

1C 

JM CLL550 ;NOT DSPLY CNTRL - CHECK MORE 

7651 

1CB3 

• 

• 

• 

;********************************** 

7652 

1CB3 

• 

• 

• 

; DELETE DISPLAY ENHANCEMENT CHAR * 

7653 

1CB3 

• 

• 

• 

ft********************************* 

7654 

1CB3 

• 

• 

• 

CLL544 EQU $ 

7655 

1CB3 

CD 

B 8 

1A 

CALL CHRDL2 ? DELETE ENHANCEMENT CODE 

7656 

1 CB 6 

C3 

9F 

1C 

JMP CLL510 fCONTINUE CLEARING 



13255-90003 


ITEM 

LOC 

ssss=s 

zs=ss: 

7658 

1CB9 

7659 

1CB9 

76t>0 

1CB9 

7661 

1CB9 

7662 

1CB9 

7663 

1CBA 

7664 

ICBC 

7665 

1CBF 

7666 

1CC1 

7667 

1CC2 

7668 

1CC4 

7669 

1CC7 

7670 

ICC A 

7671 

ICC A 

7672 

ICC A 

7 1>7 3 

1CCA 

7674 

ICC A 

7675 

ICC A 

7676 

1CCB 

7o77 

1CCD 

7678 

1CCE 

7679 

ICD1 

7680 

1CD4 

7o8 1 

1CD5 
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• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

; NOT ASCII 
.********** 
CLL550 EQU 

If 

• 

• 

PAR 

FE 

C3 

• 

CPI 

CA 

9F 

1C 

JZ 

FE 

CO 

• 

CPI 

C8 

• 

• 

RZ 

FE 

C5 

• 

CPI 

DA 

B3 

1C 

JC 

C 3 

9F 

1C 

OMP 


******* ************** ********** 

i ihcdi. 1V OiMTRLlT. * 


BILL 

CLL510 

STPR 

STPFLG+1 

CLL544 

CLL510 


; RESTORE CHARACTER 
; END OF LINE FILL? 

• YES - GO TO NEXT CHARACTER 
; START PROTECT? 

• YES - TERMINATE CLEAR 
; FORMAT CONTROL CODE? 

; YES - DELETE IT 

• NO - GO TO NEXT CHARACTER 


LINK FOUND * 

MOVE TO NEXT BLOCK * 

****** ******* ******** 


• • • 

1A . 

FE CE . 
C8 . 

CD 84 IE 
CA 9F 1C 
AF . 

C9 . 


CLL580 EQU $ 

LD AX D 
CPI EOP 
RZ 

CALL FLDSR2 
JZ CLL510 
XRA A 
RET 


• GET next LINE LINK'S MSB 
; END OF DISPLAY LIST? 

;YES - RETURN 
;CONTINUATION FIELD? 

• YES - CONTINUE CLEAR 

;NU - TERMINATE CLEAR AND 
; RETURN END ON END OF FIEL 
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<1 

ii 

II 

II 

II 

II 

it 

it 

it 

ii 

ii 

n 

it 


s:s: 


it 

ii 

tl 

it 

H 

ii 

ii 

ll 

ii 

it 

H 

It 

11 

II 

II 

II 

II 

II 

II 

II 

ll 

II 

II 

II 

II 

II 

11 

II 

II 

II 

II 

It 

II 

11 

II 

II 

II 

II 

ITEM 

LOC 

OBJECT 
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ii 

ii 

it 

ii 

ii 


ii 

ii 

ii 

ii 

ii 


II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

it 

II 

II 

II 

II 

II 

H 

7683 

1CD6 

• 

• 

• I 

*************************** 

7684 

1CD6 

• 

• 

• i 

DSPMSG - DISPLAY MESSAGE * 

7685 

1CD6 

• 

• 

• i 

*************************** 

7686 

1CD6 

• 

• 

• i 

1 


7687 

1CD6 

• 

• 

• 

ENTRY: NC - ADD MESSAGE TO NORMAL DISPLAY 

7688 

1CD6 

• 

• 

• i 

C 

- REPLACE DISPLAY WITH MESSAGE 

7689 

1CD6 

• 

• 

• 

MSGPT 1 -MSGPT8 = POINTERS TO MESSAGE 

76 90 

1C06 

• 

• 

• 


SECTIONS 

7 691 

1CD6 

• 

• 

• 

’ 


7692 

1CD6 

• 

• 

• 

EXIT ; ALL REGISTERS DESTROYED 

7693 

1CD6 

• 

• 

• 

1 


7694 

1CD6 

• 

• 

. DSPMSO EQU 

$ ; SET C-FLAG TO FORCE DISPLAY 

7695 

1CD6 

37 

• 

• 

STC 

; REPLACEMENT R7 MESSAGE 

7 696 

1C 07 

• 

• 

. DSPM51 EQU 

$ 

7697 

1CD7 

22 

FI 

FF 

SHLD 

MSGPT 1 ; SET MESSAGE POINTER 1 

7698 

ICO A 

• 

• 

„ DSPMSG EQU 

$ 

7699 

1CDA 

D2 

FB 

1C 

JNC 

DSM500 ; ADD MESSAGE TO DISPLAY 

7700 

1CDD 

01 

4F 

FE 

LXI 

B , DSPSTR ; SET DESTINATION POINTER 

7701 

1CE0 

21 

F2 

FF 

LX1 

rt,MSGPTl+l ;SET INITIAL TABLE POINTER 

7702 

1CE3 

• 

• 

• 



7703 

1CE3 

• 

• 

• 

TRANSFER 

MESSAGE TO MESSAGE BUFFER 

7704 

ICE 3 

• 

• 

• 



7705 

1CE3 

• 

• 

. DSM010 EQU 

$ 

7706 

1CE3 

56 

• 

9 

MOV 

D,M ; GET POINTER TO MESSAGE 

7707 

1CE4 

26 

• 

9 

OCX 

H 

7708 

1CE5 

5E 

• 

9 

MOV 

E , M 

7709 

1CE6 

2B 

• 

9 

DCX 

H ;SET TO NEXT POINTER 

7710 

1CE7 

EB 

• 

9 

XCHG 

; PUT POINTER INTO H ,L 

7 711 

1CE8 

CD 

20 

OB 

CALL 

MO VC HR ; XFR MESSAGE PART TO BUFFER 

7712 

1CEB 

EB 

• 

• 

XCHG 

; PUT POINTER TO TABLE IN H,L 

7713 

1CEC 

CA 

E3 

1C 

JZ 

DSM010 ; DO NEXT PART IF NOT F.UP END 

7714 

1CEF 

21 

4F 

FE 

LXI 

H, DSPSTR ? SET DISPLAY POINTER TO 

7715 

1CF2 

22 

FE 

FF 

SHLD 

DISPST ? MESSAGE AREA 

7716 

1CF5 

3E 

18 

• 

M V I 

A f M AXROW 1 1 ; REMOVE CURSOR FROM DISPLA 

7717 

1CF7 

32 

20 

87 

ST A 

IOCRRW 

7718 

1CFA 

C9 

• 

• 

RET 

; RETURN 
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ITEM 

LUC 
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7720 

tCFB 

• 

• 

• 

• 

r 




7721 

1CFB 

* 

• 

• 

z ADD 

MESSAGE TO 

normal DISPLAY 

7722 

1CFB 

• 

• 

• 

» 

9 




7723 

1CFB 

• 

• 

• 

DSM500 

EOU 

$ 


7724 

1CFB 

CD 

8D 

OC 


CALL 

SFKYOF 

; FORCE NORMAL DISPLAY ON 

7725 

1CFE 

21 

F2 

FF 


LXI 

H f MSGPT1 -f 1 ; SET INITIAL TABLE POINTER 

7725 

1 DO 1 

• 

• 

• 

DSM510 

EOU 

$ 


7727 

1001 

56 

• 

• 


MOV 

D t M 

/GET POINTER TO MESSAGE 

7728 

1DQ2 

2B 

• 

• 


DCX 

H 


7 7 29 

1D03 

5E 

• 

• 


MOV 

E f M 


7730 

1 D04 

2B 

• 

• 


DCX 

ri 

Z SET TO NEXT POINTER 

7731 

1D0 5 

E5 

• 

• 


PUSH 

H 

/SAVE TABLE POINTER 

7732 

1D06 

EB 

• 

• 


XCHG 


/PUT MESSAGE POINTER IN H , L 

7733 

1007 

CD 

CD 

OF 


CALL 

XMS2DS 

/XFR MESSAGE TO THE DISPLAY 

7734 

1 00 A 

El 

• 

• 


POP 

H 

/RECALL TABLE POINTER 

7735 

l DOB 

CA 

01 

ID 


JZ 

DS«5 1 0 

/DO NEXT PART IF NOT EOP END 

7736 

1 DOE 

• 


• 

9 



FALL INTO "RSTDSP” TU 

7737 

1D0E 

• 

• 

• 

* 

9 



FORCE DISPLAY ON 

7738 

1 DOE 

• 

• 

• 

****************** 

***************** 

7739 

ID0E 

• 

• 

• 

; KS 1 DSP - 

RESTORE 

NORMAL DISPLAY * 

7740 

1D0E 

• 

• 

• 

;**************** ****************** 

7741 

1D0F 

• 

• 

• 

• 

9 




7742 

1 DOE 

• 

• 

• 

? ENTRY: 

DON'T CAPE 

7743 

1 DoE 

« 

• 

• 

• 

9 




7744 

1 DOE 

• 

• 

• 

Z EXI1 

• 

• 

PROCESSOR FLAGS UNCHANGED 

7745 

1 DOE 

• 

• 

• 

• 

9 


H,L DESTROYED 

7746 

1 DOE 

• 

• 

• 

• 

9 




7747 

1D0E 

• 

• 

• 

RSTDSP 

EQU 

$ 


7748 

1DUE 

2A 

CB 

FF 


LHLD 

TOPLIN 

/GET TOP LINE ADDRESS 

7749 

lDlt 

2B 

• 

• 


OCX 

H 

/SET TO FIRST CHAP ADDRESS 

7750 

1D12 

22 

FE 

FF 


SHLD 

DISPST 

/SET DISPLAY SI ART POINTER 

7751 

1015 

C3 

9E 

OF 


JMP 

DISLN1 

/SET THE DISPLAY CURSOR 
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7753 

1D18 

* 

• 

• 

i 

***************************** 

7754 

1D18 

• 

• 

• 


FORMUN - ENTER FORMAT MODE * 

7755 

1 D 1 8 

• 

• 

• 


7756 

1018 

• 

• 

• 

FORMON EyU $ 


7757 

1018 

CD 

4D 

to 


CALL CKEDIT 

; EDI T MODE ? 

7758 

1D1 8 

CO 

• 

• 


RNZ 

; YES - INHIBIT FORMAT MODE 

7759 

1DIC 

21 

4F 

00 


LXI H , MAXCOL 

; NU - SET MARGINS TO ENDS OF 

7760 

ID IF 

22 

BE 

FF 


SHI.D RHTMGN 

; DISPLAY 

7761 

1022 

3E 

08 

• 


M V I A , FORMAT 

; TURN ON FORMAT MODE FLAG 

7762 

1024 

CD 

OE 

48 


CALL ZSTM01 


7763 

1027 

• 

• 

• 

1 


SET CURSOR TO FIRST 

7 7 64 

1027 

• 

• 

• 



UNPROTECTED FIELD 

7765 

10 27 

• 

* 

• 

i 



7 766 

1D27 

• 

* 

• 


************************************ 

7767 

1 D27 

• 

• 

• 


CURPH - CURSOR POINTER HOME CUP) * 

7768 

1 D27 

• 

• 

• 

- 

. t ****** **** ************************ 

7769 

1027 

• 

• 

• 

CURPH Eyu $ 


7770 

1027 

3E 

FE 

• 


M V I A t 377Q-SDACOM ? CLEAR DATACOM INPUT 

777 1 

1D29 

CL) 

01 

16 


CALL CLRDFL 

; FLAG TO DISABLE TRANSMIT- 

777 2 

1D2C 

« 

• 

* 



ONLY FIELDS 

7773 

1D2C 

• 

• 

• 


V 


7774 

1D2C 

• 

• 

• 

CURPH 1 Eyu $ 


7775 

102C 

CD 

C5 

21 . 


CALL CURPRT 

;SET CURSOR TO LEFT MARGIN 

7776 

102F 

CD 

8C 

19 


CALL CHKSFK 

;SOFT KEY MODE? 

7777 

1 D32 

C2 

92 

ID 


JNZ HUP060 

; YES - SET CURSOR ONLY 

7778 

1 D35 

32 

A3 

FF 


STA XL I NO 

; NO - SET TOP LINE ft TO ZERO 

7779 

1038 

3D 


• 


DCR A 

? RESET SPO w LATCH 

7780 

1039 

32 

6C 

FF 


STA SPOwL 


7781 

1D3C 

CD 

EE 

OA 


CALL MLKSCH 

} DISPLAY AREA LOCKED? 

7782 

1D3F 

CA 

A3 

ID 


JZ HUPloO 

? NO - HOME TO FIRST LINE 

7783 

1042 

• 

• 

• 




7 7 84 

1042 

• 

• 

• 


DISPLAY LOCK ON - 

CHANGE ONLY UNLOCKED LINES 

7785 

1D42 

• 

• 

• 




7 7 86 

1042 

54 

• 

• 


MOV D , H 

; SAVE ADDRESS OF I.<SB PART OF 

7787 

1043 

5D 

• 

• 


MOV E r L 

; NEXT LINE POINTER IN FIRS 

7788 

1D44 

23 

• 

• 


X NX H 

; UNLOCKED LINE 

7789 

1 D45 

23 

• 



IN X H 

; GET ADDRESS OF LAST LOCKED 

7790 

1046 

4E 

• 

• 


MU V C#rt 

; ROW 

7791 

1047 

23 

• 

• 


I NX H 


7792 

1048 

46 

• 

• 


MOV b , M 


7 7 9 3 

1049 

2A 

CB 

FF 


LULL IOPLIN 

; GET P TP TO TOP DSPLY LINE 

7 794 

1 D4C 

23 

• 

• 


I N X H 

; GET ADDRESS OF FIRST LINE 

7795 

1040 

23 

• 

• 


I NX H 

; ABOVE TOP DISPLAY LINE 

7796 

1D4E 

7 E 

• 

• 


MOV A,M 


7 797 

1D4F 

B7 

• 

• 


ORA A 

; ANY LINES ABOVE DISPLAY? 

7 798 

1050 

CA 

7D 

ID 


JZ HUP050 

; NO - POSITION CURSOR ONLY 



13255-90003 Rev AUG-01-76 


ITEM 
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OBJECT 
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7800 

105) 

it 

m 

ii * 

ii 

ii 

• 

• 

ii 

'• H 
II 
II 
II 
It 
II 
II 
II 
II 
II 
II 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

li 

ii 

it 

if 

ii 

ii 

it 

ii 

H 

It 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

It 

II 

II 

II 

II 

7801 

7802 

1053 
1 05 3 

• 

• 

• 

• 

• 

• 

; LINK SPLIT PARTS TOGETHER 

• 

9 

7803 

1053 

36 

00 

• 

MV I 

M,U 

/•ZERO PREV LINE PTR OF TOP L 

7804 

1055 

23 

• 

• 

INX 

H 

7805 

1056 

66 

• 

• 

MOV 

ri,M 

;SET H,L TO FIRST LINF ABOVE 

7806 

1 D57 

6F 

• 

• 

MOV 

L, A 

/DISPLAY 

7807 

1058 

IB 

• 

• 

OCX 

0 

/ SET ITS NEXT LINE POINTER T 

7808 

1 D59 

73 

• 

• 

MOV 

M,E 

/’FIRST CHARACTER OF FIRST 

7809 

105 A 

23 

• 

• 

INX 

H 

/•UNLOCKED LINE 

7810 

1D5B 

72 

• 

• 

MOV 

M , D 


7811 

1D5C 

EB 

• 

• 

XCHG 


;SET PREVIOUS LINE POINTER 0 

7812 

1 DSD 

23 

• 

• 

INX 

H 

;FIRST UNLOCKED LTNF TO 

7813 

1D5E 

23 

• 

• 

INX 

H 

/•FIRST LINE ABOVE DISPLAY 

7814 

1 D5F 

23 

• 

• 

INX 

H 


7815 

1D69 

77 

* 

• 

. MOV 

M, A 


7816 

1 D6 1 

23 

• 

• 

INX 

H 


7817 

ID62 

72 

• 

• 

MOV 

M , D 


7818 

1D6 3 

2 A 

9F 

FF 

LHLD 

FLINE 

/■REPLACE CONTENTS OF FLINE 

7819 

1 Db6 

EB 

• 

• 

XCHG 


;*1TH VALUES FROM TOPLIN 

7820 

1067 

2A 

CB 

FF 

LHLD 

TOPLIN 


7821 

1 D6A 

22 

9F 

FF 

SrtLD 

FLINE 


7822 

1 D6D 

62 

• 

• 

MUV 

H,U 

;SET PREVIOUS LINE POINTER 0 

7823 

1 D6F, 

6B 

• 

• 

MOV 

L ,E 

/•CURRENT TOP LINE TO POINT 

7824 

1D6F 

23 

• 

• 

IftX 

H 

;'T0 LAST LOCKED ROw 

7825 

1070 

23 

• 

• 

INX 

H 


7826 

1071 

71 

• 

• 

MOV 

M/C 


7827 

1072 

23 

• 

• 

INX 

h 


7828 

1073 

70 

• 

• 

MOV 

M f B 


7829 

107 4 

60 

• 

• 

MOV 

H,B 

;SET H,L TO MSB PART OF NEXT 

78 30 

ID75 

69 

• 

• 

MOV 

L/C 

,-LINE POINTER IN LAST 

7831 

1D76 

23 

• 

• 

INX 

H 

/•LOCKED ROw 

7832 

1 D77 

42 

• 

• 

MOV 

B,D 

/•SET NEXT LINE POINTER TO 

7833 

1078 

4B 

• 

• 

MOV 

C f E 

/•POINT TO FIRST CHARACTER 

7834 

1D79 

OB 

• 

• 

DCX 

b 

/•OF LINE POINTED PY FLINE 

7835 

7836 

10 7 A 
1 D7D 

CD 

• 

95 

• 

OF 

• 

CALL 

9 

DISLNK 


7837 

7838 

1070 
1 D7D 

• 

• 

• 

• 

• 

• 

; DISPLAY SET FUR 
i 

DISPLAY LUCK HOME - SET CURSOR 

7839 

1D7D 

• 

• 

• 

HUP050 E&U 

$ 


7840 

1D7D 

CD 

56 

oc 

C A LL 

R0LUP3 

;SET "LSTLIN" AND "CUPADR” 

7841 

1080 

CO 

7B 

19 

CALL 

CHKFMT 

;FOR AMT MODE? 

7842 

1083 

EE 

08 

• 

XRI 

FORMAT 

; (REVERSE RESULT OE TEST) 

7843 

1085 

CA 

A6 

ID 

JZ 

HUP1 10 

;YLS - LOCATE FIRST FIELD 

7844 

ID8B 

• 

♦ 

• 

9 

9 


STARTING IN LOCKED REGION 

7845 

1D88 

• 

• 

• 

9 


CA = 0) 

784o 

1088 

3 A 

6B 

FF 

LDA 

MLKROW 

;N0 - SET CURSOR TO FIRST 

7847 

1 D8B 

32 

CO 

FF 

STA 

CURROW 

• , ‘Unlocked row 

7848 

108E 

32 

C7 

FF 

STA 

LSTRGW 


7849 

1091 

C9 

• 

• 

RET 


/•RETURN 
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II 

II 

IS 

II 

II 

II 

ii 

it 

ii 

ii 

it 

ii 

ii 

SI5S 

sss; 



H 

li 

ii 

it 

H 

II 

11 

II 

II 

li 

U 

II 

11 

li 

ii 

it 

ii 

N 

II 

11 

II 

II 

II 

II 

II 

II 

II 

U 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

ITEM 

LOG 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 235 

7851 

t D92 

* 

* 

• 

r 




7852 

1D92 

• 

* 

• 

; DEFINE SOFT KEYS HOME UP 

7 853 

1092 

• 

• 

• 

♦ 

0 




7854 

1092 

• 

• 

• 

HUP060 

EQU 

$ 


7855 

1D92 

AF 

• 

• 


XRA 

A 

; SET CURSOR ROW TO ZERO 

7856 

1093 

32 

CO 

FF 


STA 

CURRDW 


7 857 

1096 

32 

C7 

FF 


STA 

LSI ROW 


7858 

1D99 

2A 

A6 

FF 


LHLD 

SFTKYS 

? SET "CURADR H AND ” LSTLIN " 

7859 

1D9C 

23 

* 

• 


INX 

H 

;T0 FIRST SOFT KEY LINE 

7860 

1D9D 

CD 

57 

OC 


CALL 

ROLUPC 


7861 

10AO 

C3 

B9 

ID 


JMP 

FLDSR1 

; LOCATE FIRST FIELD 

7862 

1 DA3 

• 

• 

• 

0 




78o3 

1 DA 3 

• 

• 

• 

; DISPLAY NOT LOCKED 

- SET TOPLIN TO FLINE 

7864 

1DA3 

• 

• 

♦ 

0 




7865 

1DA3 

• 

• 

• 

HUP100 

EQU 

$ 


7866 

1 DA3 

3A 

6B 

FF 


LD A 

MLKRQW 

; SET CURSOR TO 1ST UNLK RW 

7867 

1DA6 

• 


. 

HUP 1 1 0 

EUU 

$ 


7868 

1 DA6 

32 

CO 

FF 


STA 

CURROW 

; SET NEW CURRENT ROW 

7869 

1DA9 

AF 

• 

• 


XRA 

A 


7870 

1DAA 

32 

C7 

FF 


STA 

LSTROW 

; SET LAST ROW DONE TO ZERO 

7871 

1 DAD 

57 

• 

• 


MOV 

D , A 

; SET D=0 TO FLAG TLIWO UPDAT 

7872 

1 DAE 

21 

9F 

FF 


LX1 

H , FLINE 


7873 

1DBI 

7E 

• 

• 


MU V 

A,M 

; SET TOP LINE POINTER TO 

7874 

IDE 2 

CD 

6E 

oc 


CALL 

R0LUP1 

; F I RST DISPLAY LINE 

7875 

1DB5 

CD 

76 

19 


CALL 

CHKFMS 

; FORMA f/SOFT KEY DEFINE MODE 

7876 

1DB8 

C8 

• 

* 


RZ 


; NO - RETURN 

7877 

1DB9 

• 

• 

• 

• 

0 



*ES - FALL INTO "FLDSFl" TO 

7878 

1DB9 

• 

• 

• 

• 

0 



FIND FIRST UNPROTECTED 

7879 

1 DB9 

• 

• 

• 

• 

0 



FIELD 
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ii 

H 

II 

It 

II 

II 

II 

ii 

ii 

Si 

ii 

ii 

ii 

ii 

n 

ii 

it 

==== 

:s::s: 

:: 

ii 

it 

ii 

it 

li 

ii 

ii 

it 

ii 

if 

it 

it 

li 

tl 

li 

li 

li 

II 

li 

li 

ii 

if 

ii 

li 

H 

II 

H 

II 

M 

II 

II 

II 

II 

» 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

M 

ITEM 

LOG 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 236 


ii 

ii 

ii 

ii 

ii 

ii 

= 5 = = 


ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

ii 

it 

ii 

li 

ii 

ii 

li 

li 

ii 

ii 

li 

ii 

ii 

it 

i* 

ii 

ii 

li 

li 

it 

ii 

li 

li 

it 

it 

ii 

it 

it 

u 

ii 

ii 

it 

if 

It 

li 

it 

M 

7881 

1DB9 

• 

• 

• 


******************************************** 

7882 

1 DB9 

• 

• 

• 


FLDSR - LOCATE THE NEXT UNPROTECTED FIELD * 

7883 

1 DB9 

• 

• 

• 


******************************************** 

7884 

1069 

• 

• 

• 



7885 

1DB9 

• 

• 

• 


ENTRY: DON'T CARE 

7886 

1069 

• 

• 

• 



7887 

1 DB9 

• 

• 

• 


EXIT : NZ - FIELD FOUND 

7888 

1 DB9 

• 

• 

• 


D,E = ADDRESS OF "ENDPR" 

7889 

1069 

• 

• 

• 


CURADR,CURCOL,CURROw,LSTLIN,LSTCOL 

7890 

l D69 

• 

• 

• 


LSTROw UPDATE TO CORRESPOND TO 

7891 

1 DB9 

• 

• 



FIELD FOUND 

7892 

1DB9 

• 

• 

• 


Z - FIELD NOT FOUND 

7893 

1DB9 

• 

• 

• 


ALL REGISTERS DESTROYED 

7894 

1069 

• 

• 

• 



7895 

1DB9 

• 

• 

• 

FL0SR1 EQU $ ; LOOK FOB NEXT UNPROTECT 

7896 

10B9 

21 

DA 

FF 


LXT H , NEW ROW ; INITIALIZE ROW COUNT 

7897 

1DBC 

36 

00 

• 


MVI M,0 ;T0 ZERO 

7898 

ID BE 

2E 

Cl 

• 


M VI L , CURCOL-BASE / GET CURRENT COLUMN 

7899 

1 DCO 

4E 

• 

• 


MOV C,M ? POSITION 

7900 

1 DC 1 

C 3 

E2 

10 


JMP FSR100 

7901 

IOC 4 

• 

• 

• 

FLDSR EQU $ 

7902 

1DC4 

AF 


• 


XR A A ;ZERU NUMBER OF ROWS ROLLED 

7903 

1DC5 

32 

DA 

FF 


STA nEwROW 

7904 

1DC8 

CO 

AC 

Ob 


CALL RCADRB ;P0ES CURSOR ROW EXIST? 

7905 

1 DCB 

FA 

06 

07 


JM ZRETRN ; NO - RETURN ZERO 

7906 

10CE 

4F 

• 

• 


MUV C # A ;YES - SAVE LAST COLUMN FOUN 

7907 

1DCF 

CO 

65 

10 


CALL CKPROT /CURSOR IN PROTECTED FIELD? 

7908 

1D02 

CA 

E2 

10 


JZ FSRlOO / YES - LuOK FOR NEXT UNPR0TC 

7909 

1005 

• 

• 

• 


******************************************* 

7910 

1 D05 

• 

• 

• 


CURSOR IS IN UNPROTECTED FIELD * 

7911 

1D05 

# 

• 

• 


SEARCH FUR START OF NEXT PROTECTED FIELD * 

7912 

1 DD5 

« 

• 

• 


****************************** ************* 

7913 

1005 

• 

• 

• 

FSR080 EQU $ 

7914 

1D05 

21 

CO 

CO 


LXI H f STPR*25fe+STPR 

7915 

1 0D8 

CD 

C4 

IE 


CALL FNDCU1 /ANY MORE FIELDS IN LINE? 

7916 

1DDB 

CA 

E8 

10 


JZ f SRI 20 /NO - GO TO NEXT LINE 

7917 

1 ODE 

• 

w 

• 


********************************************* 

7918 

1 DDE 

• 

• 

• 


ADVANCE CURSOR TO START OF PROTECTED FIELD * 

7919 

1DBE 


• 

• 


********************************************* 

7920 

1DDE 

3E 

50 

• 


MVI A , MAXCOL+ 1 /COMPUTE NEW COLUMN 

7921 

1 DEO 

91 

• 

• 


SUB C 

7922 

1 DE 1 

4F 

• 

• 


MOV C,A /SAVE COLUMN IN C 

7923 

1 DE2 

• 

• 

• 


************************************ 

7924 

1DE2 

• 

• 

• 


CURSUR IS IN PROTECTED FIELD * 

7925 

1 DE2 

• 

• 

• 


SEARCH FOR NEXT UNPROTECTED FIELD * 

7926 

1 DE2 

• 

• 

• 


IN THIS LINE * 

7927 

1DE2 

• 

• 

• 


************************************ 

7928 

1 0E2 

• 

• 

• 

FSR100 EQU S 

7929 

1DE2 

CD 

B9 

IE 


CALL FNDCHU /ANY MOPE FIELDS IN LINE? 

7930 

1DE5 

C2 

26 

IE 


JNZ FSR200 /YES - SET CURSOR AND DISPLA 
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::s 



it 

ti 

(t 

it 

il 

H 

ii 

ri 

it 

11 

ii 

tl 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ft 

II 

II 

II 

II 

II 

II 

II 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 237 

'7932 

IDEA 

• 

• 

• 

;************************* 

7933 

1DE8 

• 

• 

• 

; NO MORE FIELDS IN LINE * 

7934 

1 DE8 

• 

• 

• 

? MOVE TO NEXT LINE 

* 

7935 

1 D£8 

• 

• 

• 

************************** 

7936 

IDER 

• 

• 

• 

FSR120 EQU 

$ 


7937 

10E8 

FE 

C 4 

• 

CPI 

STPFLG 

; NON-DISPLAYING TERMINATOR? 

7938 

IDEA 

CA 

20 

IE 

JZ 

FSR140 

? YES - RETURN FAIL 

7939 

1 DED 

4C 

• 

• 

MOV 

C , H 

;NU - SAVE TERMINATOR CHAR 

7940 

IDEE 

CD 

68 

19 

CALL 

CHAINO 

# GET NEXT BLOCK LINK 

7941 

1DF1 

7E 

• 

• 

MOV 

A , M 

; GET NEXT LINE LINK'S MSB 

7942 

1DE2 

2B 

• 

• 

DC X 

H 


7 943 

IDF3 

6E 

• 

• 

MOV 

L f M 

; PUT LSB INTO L-REGISTER 

7944 

IDE 4 

FE 

CE 

• 

CPI 

EOP 

; END OF DISPLAf FOUND? 

7945 

1DF6 

CA 

20 

IE 

JZ 

F SRI 40 

; YES - EXIT FIELD NOT FOUND 

7946 

1DF9 

67 

• 

• 

MOV 

H , A 

; NO - SAVE ADDRFSS OF NEW 

7947 

1DFA 

22 

96 

F F 

SHLD 

LNKSAV 

; LINE 

7948 

1 DFD 

EB 

• 

• 

XCHG 



7949 

1 DFE 

21 

DA 

FF 

LX I 

H,NEWROW 

; INCREMENT ROW NUMBER 

7 950 

1EOI 

34 

• 

• 

INR 

M 


7951 

1E02 

AF 

• 

• 

XR A 

A 


7952 

1F03 

3 2 

C6 

FF 

ST A 

LSTDCD ; 

CLEAR LAST UJSPLAX CODE 

7953 

1E06 

32 

9D 

FF 

ST A 

TEMP 


7954 

1E09 

79 

• 

• 

MOV 

A t C } 

GET LAST TERMINATOR CHAR 

7955 

1EOA 

OE 

00 

9 

MV I 

c,o 

SET COLUMN TO ZERO 

7956 

1EOC 

FE 

CO 

9 

CPI 

STPR 

; LOOKING FOR START PROTECT? 

795 7 

1 EOE 

C2 

E2 

ID 

JNZ 

F SRI 00 

r NO - CONTINUE UNPROTECT FIN 

7958 

IE 11 

• 

• 

• 

• 

9 


¥ES - SEE IF CONTINUE UNPROT 

7 959 

1 E 1 1 

• 

• 

• 

;*********** ***************** ************ 

7960 

1 E 1 1. 

• 

• 

• 

; SEARCH FUR PROTECTED FIELD * 

7961 

1 E 1 1 

• 

• 

• 

; CHECK FOR 

CONTINUED 

UNPROTECTED FIELD * 

7962 

1 E 1 1 

• 

• 

• 

;**************************************** 

7963 

1E1 1 

CD 

84 

IE 

CALL 

FLDSH2 

; FIRST CHAR AN " ENDPR M 

7964 

1E14 

3A 

9D 

FF 

LDA 

I’EMP 

; (SET NEW LSTDCD VALUE) 

7965 

1 E 1 7 

32 

C6 

FF 

STA 

LSTDCD 


7966 

1E1 A 

CA 

D5 

ID 

JZ 

FSR080 

; YES - LOOK FOR START PROTEC 

7 96 7 

1E1D 

C 3 

E2 

ID 

JMP 

FSR100 

; NO - LOOK FOP NEXT UNPPOTEC 

7968 

1E20 

• 

• 

• 

********************************* 

7969 

IE20 

• 

• 

• 

? SE'l LSTCGL PAST END 

OF LINE * 

7970 

1F-20 

• 

• 

• 

; TO CAUSE 

LINE TO BE 

RESCANNED * 

7971 

1E20 

• 

• 

• 

********************************* 

7972 

1 E20 

• 

• 

• 

FLDSRX EQU 

$ 


797 3 

1 E20 

• 

• 

• 

FSR140 EQU 

$ 

;(Z TRUE) 

7974 

1 E20 

21 

C8 

FF 

LX I 

HfLSTCOL 


7975 

1E23 

36 

50 

• 

M V I 

M , MAXCOLP 1 

7976 

1E25 

C9 

• 

9 

RET 


; RETURN 


RETURN 
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ITEM hOC OBJECT CODE SOURCE STATEMENTS PAGE~238~~ 



— 


n 

H 

it 

H 

I 

I 

i 

I 

i 

H 

II 

II 

It 

H 

II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

it 

n 

it 

n 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

it 

if 

ii 

ii 

if 

ll 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

7978 

1E26 

• 

• 

• 

;***************** ********* 

7979 

1 E26 

• 

• 

• 

? UNPROTECTED FIELD FOUND * 

7980 

1 E26 

• 

• 

• 

; SET NEW CURSOR POSITION * 

7981 

1 E26 

• 

• 

• 

;*************** * ******* *** 

7982 

1 E26 

• 

• 

• 

FSR200 EQU $ 


7983 

1E26 

3£ 

50 

• 

MVI A,MAXCOL+l 

. ; COMPUTE NEW COLUMN 

7984 

1E28 

91 

• 

• 

SUB C 


7985 

1 £29 

CD 

C8 

21 

CALL CRRET1 

;SET CURRENT CURSOR LOCATION 

798b 

1 E2C 

32 

C8 

FF 

ST A LSTCOL 

?and LAST CURSOR VALUE 

7987 

1 E2F 

EB 

• 

• 

XCHG 

/STORE NEW CURRENT ADDRESS 

7988 

IE30 

22 

C 3 . 

FF 

SHLD CURADR 


7989 

1E33 

22 

D5 

FF 

SHLD LA DDR 

;SAV£ FIELD ADDRESS IN 

7990 

1 E36 

• 

• 

• 

• 

9 

CASE ROLL UP NEEDED 

7991 

1 E36 

EB 

• 

• 

XCHG 

; RESTORE D . E AND H.L 

7992 

1 £37 

• 

• 

• 

;************************* 

7993 

1E37 

• 

• 

• 

; COMPUTE NEW CURSOR 

ROW * 

7994 

1E37 

• 

• 

• 

; *************** ********** 

7995 

IE 37 

3 A 

DA 

FF 

LDA NEwROW 

; GET NEW ABSOLUTE ROW NUMBER 

799b 

1E3A 

B7 

• 

• 

ORA A 

HAS ROW CHANGED? 

799 7 

1E3B 

CA 

7u 

IE 

JZ FSR360 

;NO - RETURN 

7998 

1 E3E 

21 

CO 

FF 

LXI H , C UKROW 

;YES - CALCULATE NEW 

7999 

1 E4 1 

8 b 

• 

• 

ADD M 

? ROW NUMBER 

8000 

1 E 4 2 

• 

• 

• 

FSR240 FyU $ 


8001 

1E42 

OE 

18 

• 

MVI C t MAXROw+ 1 

; IS NFw ROw ON CURRENT PAGE? 

8002 

1 E44 

B9 

• 

• 

CMP C 


8003 

1E45 

DA 

64 

IE 

JC FSR340 

YES 
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ss:;s 





::s5s:ss::ss:::::3ss: 

H 

II 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 239 

8 005 

1 £48 

• 

• 

• 

;*************************************** 

8006 

1 E48 

• 

• 

• 

? NEW CURSOR ROW IS 

ON MEW PAGE * 

8007 

1E48 

• 

• 

• 

? ROLL DISPLAY UP TO 

GET ROW ON SCREEN * 

8008 

1 E48 

• 

« 

• 

;********** ***************************** 

8009 

1E48 

91 

• 

• 

SUB C 

? DECREMENT ROLL COUNT BY ONE 

8010 

1E49 

21 

6B 

FF 

LXI H , MLK.ROW 

? PAGE 

8011 

1E4C 

8b 

• 

• 

ADD M 

; ADJUST FOR LOCKED DISPLAY 

8012 

1 E4D 

57 

• 

• 

MOV D , A 

;SAVE RESULT FOR STORAGE 

8013 

1E4E 

79 

• 

• 

MOV A,C 

; COMPUTE NUMBER OF LINES TO 

8014 

1 E4E 

96 

• 

• 

SUB M 

;RULL FOR ONE PAGE 

8015 

1E50 

5F 

• 

• 

MOV E,A 

; SAVE THE VALUE FOR STORAGE 

8016 

1E51 

EB 

• 

• 

XCHG 

? PUT VALUES INTO H,L 

8017 

1 E52 

22 

82 

FF 

SHLD ROLLCT 

? STORE ROLL PARAMETERS 

8018 

1 E55 

• 

• 

• 

r 


8019 

1E55 

• 

• 

• 

; ROLL UP ONE PAGE 

OF LINES 

8020 

1 E55 

* 

• 

• 

• 

9 


8021 

1 E55 

• 

• 

• 

FSR300 EQU $ 


8022 

1 E55 

CD 

27 

oc 

CALL ROLLUP 

? ROLLUP ONE LINE 

8023 

1E58 

21 

82 

FF 

LXI H , ROLLCT 


8024 

1E5B 

35 

• 

• 

DCR M 

; PAGE ROLLED UP? 

8025 

1E5C 

C2 

55 

IE 

JNZ FSR300 

; NO - DO ANOTHER LINE 

8026 

1 E5F 

23 

• 

• 

I N X H 

; YES - GET NUMBER OF ROWS 

802 7 

1E60 

7E 

• 

• 

MOV A,M 

; TO UNPROTECTED FIELD AND 

8028 

1 E6 1 

C3 

42 

IE 

JMP FSR240 

; CHECK TO SEE IF ON SCREEN 

8029 

1E64 

9 

• 

• 

; ********** *** 


8030 

1E64 

• 

• 

• 

; UPDATE ROW * 


8031 

1E64 

• 

• 

• 

; ********** *** 


8032 

1 F64 

• 

• 

• 

F SR 340 EQU $ 


8033 

1F64 

32 

CO 

FF 

STA CURRUW 

; SET NEW ROW NUMBER 

8034 

1E67 

2 A 

CO 

FF 

L.HLD CURRUW 

; SET LAST ROW AND COLUMN DON 

8035 

1E6A 

22 

Cl 

FF 

SHLD LSTROW 

?CURRENT ROW AND COLUMN 

8036 

1E6D 

2 A 

96 

FF 

LHLD LNKSAV 

;SET " L S T L 1 N M TO CURRENT ROW 

8037 

1E70 

23 

• 

• 

INX H 

; ADDRESS 

8038 

1 E7 l 

22 

C9 

FF 

SHLD LSTUN 


8039 

1E74 

2A 

D5 

FF 

LHLD LADDR 

;SET "CUKADR" TO ADDRESS OF 

8040 

1E77 

22 

C3 

FF 

SHLD CUR ADR 

;F1FST CHAR IN MEW FIELD 

8041 

1E7A 

EB 

• 

• 

XCHG 

? PUT CURRENT ADDRESS INTO D , 

8042 

1E7B 

• 

# 

• 

FSR360 EQU $ 


8043 

1 E7B 

FE 

44 

• 

CPI D 

;SET Z-FALSE CD >= 320) 

8044 

1 E7D 

C3 

9E 

OF 

JMP DISLN1 

;GO SET DISPLAY CURSOR ROW 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS 


PAGE 240 


8046 

1E80 

• 

• 

• 

B047 

1 E80 

• 

• 

• 

8048 

1 E80 

• 

• 

• 

8049 

1 E80 

• 

• 

• 

8050 

1E80 

• 

• 

« 

8051 

1E80 

• 

• 

• 

8052 

1E80 

• 

• 

• 

8053 

IE80 

• 

• 

• 

8054 

1 E80 

• 

• 

• 

8055 

1 E80 

• 

• 

• 

8056 

1E80 

• 

• 

• 

8057 

1 E80 

• 

• 

• 

8058 

1E80 

« 

• 

• 

8059 

1 E80 

• 

• 

• 

8060 

l E80 

• 

• 

• 

8061 

1E80 

• 

• 

• 

8062 

1 E80 

32 

9D 

FF 

806 3 

1E83 

• 

• 

• 

8064 

1E83 

• 

• 

• 

8065 

1E83 

IB 

• 

• 

806o 

1 E8 4 

• 

• 

• 

8067 

1 E84 

13 

• 

• 

8068 

1E85 

CD 

87 

Ob 

8069 

1E88 

C 2 

84 

IE 

8070 

1 EBB 

87 

• 

• 

8071 

1E8C 

D2 

01 

OB 

8072 

1 E8F 

IF 

• 

• 

8073 

1 E90 

F2 

80 

IE 

8074 

1 E93 

FE 

C4 

• 

8075 

IE95 

F2 

83 

IE 

8076 

1E98 

21 

C5 

FF 

8077 

1E9B 

BE 

% 

• 

8078 

1E9C 

C9 

• 

• 


• *** + ♦*♦***************** 

; FLDSR2 - DETERMINE PROTECT SENSE OF NEXT 
; CHARACTER 

; ENTRY: D,E = NEXT CHARACTER ADDRESS 

; EXIT : Z - CONTINUATION OF FORMAT FIELD 

HZ - NOT A CONTINUATION 
; D , E = ADDRESS OF CHARACTER 

; H = BASE H 

; TEMP = NFa ENHANCEMENT CODE: IF AN Y 

; A , L DESTROYED 

FS2000 EgU $ 

STA TEMP ; STORE: NEW DISPLAY CONTROL 
FLDSRB EOU $ 

FS2005 egu s 

OCX D ; SET ADDRESS TO NEXT CHAR 

FLDSR2 EQU $ 

I NX D ; SET ADDRESS TU PREV CHAR 

CALL NXTCHR ; GET NEXT CHARACTER 

JwZ FLDSR2 ?SKIP OVER LINKS 

ADD A ? ASCII OR DISPLAY CONTROL Y 

JNC NZEX1T ; ASCII - RETURN NOT CONTINUE 

R A p ; (RESTORE DATA BYTE) 

JP FS2000 ;DISPLAY CONTROL - IGNORE IT 
CPI STPFLG ; TERMINATOR OP TYPE DEFINE? 

JP FS2005 ? YES - SKIP TO NEXT CHARACTE 

LAl H , LS TFMT ; COMPARE AGAINST LAST FORMAT 
CMP M JCONTRUL AND RETURN 

RET 
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II 

II 

II 

II 

II 

II 

ii 

M 

11 

II 

It 

II 

II 

:::: 

s=s: 

sssss 


sss5ss5s5rsssrs:sssssssssssss5ssssss:s 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 241 

8080 

1E9D 


• 

• 

• 

9 


8081 

1 E9D 

• 

• 

• 

;***** 

******************* 

8082 

1E9D 

• 

• 

• 

• 

9 


8083 

1 E9D 

* 

• 

• 

? FNDCH - SEE IF NEXT CHAR IS FORMAT CONTROL BYTE 

8084 

1 E9D 

• 

• 

• 

• 

9 


8085 

1 F9D 

• 

• 

• 

? ENTRY 

: TERMINAL IS IN FORMAT MODE 

8086 

1E90 

• 

• 

• 

• 

9 

D,E = START AuDRESS 

8087 

1E9D 

• 

• 

• 

* 

9 

H , L = CHARACTERS TO LOOK FOR 

8088 

1E9D 

• 

• 

<9 

• 

9 


8089 

1E9D 

• 

• 

• 

; EXIT 

: Z - CHARACTER NUT FOUND 

8090 

1 E9D 

• 

• 

• 

« 

9 

NZ - CHARACTER FOUND 

8091 

1E90 

• 

• 

• 

9 

9 

D,E a ADDRESS OF ENDING CHARACTER 

8092 

1E9D 

• 

• 

• 

9 

9 

A,B,C,L,TEMR DESTR01 ED 

8093 

1E90 

• 

• 

• 

♦ 

9 


8094 

1 E9D 

• 

• 

• 

; FNDCHO - 

SEE IF NEXT CHARACTER IS PROTECTED 

8095 

1 E90 

• 

• 

m 

n 

9 


8096 

1E9D 

• 

• 

• 

FNDCHO EQU 

$ 

8097 

1 E9D 

21 

CO 

CO 

LXI 

H , STPR*256+STPR ?SET COMPARE CHARS 

8098 

1EA0 

• 

• 

• 

FNDCH Eyil 

$ 

8099 

IEA0 

3E 

01 

• 

MVI 

A , IGNTRM ; SET TO IGNORE NON -DISPLAY IN 

8100 

1 EA2 

32 

6D 

FF 

STA 

TRMFCT ; TERMINATOR 

8101 

1EA5 

3A 

C2 

FF 

LDA 

PPOFLD ;SAVE PROTECTED FIELD 

8102 

1EA8 

F5 

• 

• 

PUSH 

PSW ; STATUS 

8103 

1EA9 

OE 

00 

• 

MVI 

C,0 ; SET FOP NEXT CHARACTER ONLY 

8104 

1EA8 

CO 

C 8 

IE 

CALL 

FCR400 ? LOCATE THE NEXT CHARACTER 

8105 

1EAE 

3E 

00 

• 

MVI 

A t DB'LTRM ; RESTORE FLAG TO DELETE NON- 

8106 

1EB0 

32 

6D 

FF 

STA 

TRMFCT ? DISPLAYING TERMINATOR 

8107 

1 EB3 

Cl 

• 

• 

PGP 

B ? RESET PROTECT STATUS TO BE 

8108 

1EB4 

78 

• 

• 

MOV 

A,B ;CONSISTENT WITH CHARACTER 

8109 

1 EB5 

32 

C2 

FF 

STA 

PROFLD ; POINTED TO BY "CURADP" 

8110 

1EB8 

C9 

• 

9 

RET 

; RETURN 
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LOC 

OBJECT 

CODE 
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ii 

if 

it 

ii 




II 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

it 

II 

II 

II 

II 

II 

II 

II 

II 

8112 

IEB9 

• 

• 

• 



8113 

1EB9 

• 

« 

• 


************************ 

8114 

1 E69 

• 

• 

• 



8115 

1EB9 

• 

• 

• 


FNDCHU - LOCATE NEXT UNPROTECTED FIELD 

8116 

1 EB9 

• 

• 

• 


CONTROL BYTE IN CURRENT LINE 

8117 

1EB9 

• 

• 

• 



8118 

1 EB9 

• 

• 

• 


ENTRY I TERMINAL IS IN FORMAT MODE 

8119 

1E89 

• 

• 

• 


B = DON'T CARE 

8120 

1 £69 

• 

• 

• 


C = CURRENT COLUMN NUMBER 

8121 

1 E89 

• 

• 

• 


D , E = START ADDRESS 

8122 

1F69 

• 

• 

• 



8123 

1FB9 

• 

• 

• 


EXTT : Z - CHARACTER NOT FUUND 

8124 

1 EB9 

• 

• 

• 


NZ - CHARACTER FOUND 

8125 

1EB9 

• 

• 

• 


C = NUMBER OF CHARS TO END OF LINE 

8126 

1 EB9 

• 

• 

• 


D , E = ADDRESS OF ENDING CHARACTER 

8127 

1EB9 

• 

• 

• 


PKOFLD SET AS DEFINED 

8128 

1 EB9 

• 

• 

• 


A,B,L DESTROYED 

8129 

1E69 

• 

• 

• 



8130 

1EB9 

• 

• 

• 

] 

NDCHU FyU $ 

8131 

1 EB9 

CD 

A6 

12 


CALL DCXB2D ; D ATA COMM OR I/O BUFF INPUT 

8132 

1EBC 

21 

Cl 

Cl 


LXI H f ENDPR*256+£NDPR ; (SET "ENDPR" ONLY) 

8133 

1EBF 

CA 

C 4 

IE 


JZ FNDCU1 ;NO - SKIP XMJT ONLY FIELDS 

8134 

1 EC2 

2E 

C2 

• 


MVI L t XMONLY ;YES - LOOK FOR "XMONLY" ALS 

8135 

IEC4 

• 

• 

• 


• 

r 

8136 

IEC4 

• 

• 

• 


; LOCATE THE FORMAT CONTROL CHARACTER 

8137 

1 EC 4 

• 

• 

• 


• 

r 

8138 

1EC4 

• 

• 

• 


KNUCUl Eyu s 

8139 

1EC4 

3E 

4F 

• 


MVI A , MAXCOL ; COMPUTE NO. OF CHARS 

8140 

1 EC 6 

91 

• 

• 


SUB C ? TO SEARCH 

8141 

1 EC 7 

4E 

• 

• 


MOV C f A 

8142 

1FC« 

• 

• 

• 


b CR400 EQU $ 

8143 

1 EC 8 

CD 

CE 

IE 


CALL FNDCHP ; LOOK FOR SPECIFIED CHARS 

8144 

1ECB 

C8 

• 

• 


RZ ; RETURN IF EOL ENCOUNTERED 

8145 

1 ECC 

AE 

• 

• 


XRA A ; OTHERWISE , SET FLAG TO 

8146 

1ECD 

B 1 

• 

• 


ORA C ; SHOw IF CHARACTER FOUND 

8147 

l ECF. 

C9 

• 

• 


RET 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 243 



ii 

ii 

ii 

ii 

ii 

ii 

ii 

ssss 

sss 

ssssss 

SSS SSS ssssss 

II 

It 

II 

II 

II 

u 

It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

11 

II 

II 

II 

II 

11 

II 

II 

It 

II 

II 

II 

II 

If 

8149 

1 EOF 

• 

• 

• 

’ft************************************* 

8150 

1ECF 

* 

• 

• 

; FNDCBR - 

LOCATE SPECIFIED CHARACTER * 

8151 

1 ECF 

• 

• 

• 

;*************♦*********♦*******♦****** 

8152 

iecf 

• 

• 

• 

* 

9 


8153 

1 ECF 

• 

• 

• 

; ENTRY; 

C = NUMBER OF COLUMNS TU SEARCH 

8154 

IECF 

• 

• 

• 

♦ 

9 

D,E = STARTING ADDRESS 

8155 

IECF 

• 

• 

• 

• 

9 

H,L = CHARACTERS TO LOOK FOR 

8156 

IECF 

• 

* 

• 

• 

9 

(VALID FOR FORMAT MODE ONLY) 

8157 

IECF 

• 

• 

• 

• 

9 


8158 

IECF 

• 

• 

• 

; EXIT ; 

Z - CHARACTER NOT FOUND 

8159 

IECF 

• 

• 

• 

• 

9 

NZ - CHARACTER FOUND 

8160 

IECF 

• 

• 

• 

• 

9 

C = NUMBER OF CHARACTERS LEFT 

8161 

IECF 

• 

• 

• 

9 

(= 0 , IF CHARACTER FOUND) 

8162 

IECF 

• 

• 

• 

* 

9 

D,E = ADDRESS OF TERMINATING CHARACTER 

8163 

IECF 

• 

• 

• 

• 

"EOLMV" SET TO ZERO 

8164 

IECF 

• 

• 

• 

• 

9 

"PRUFLD" SET IF IN FORMAT MODE 

8165 

IECF 

• 

# 

• 

• 

9 

"LSTFMT" UPDATED IF A FORMAT CONTROL 

8166 

IECF 

• 

• 

• 

• 

9 

CHARACTER IS ENCOUNTERED 

8167 

IECF 

• 

• 

• 

* 

9 


8168 

IECF 

• 

• 

• 

FNDCBR EQU 

$ 

8169 

IECF 

AK 

• 

• 

XK A 

A 

8170 

1 EDO 

32 

90 

FF 

STA 

EOLMV 

8171 

1E03 

13 

• 

• 

INX 

D ; SET TO PREV CHAR ADDRESS 

8172 

1 ED4 

OC 

• 

• 

I NR 

C /ADJUST CHARACTER COUNT 

8173 

1 EDS 

OC 

♦ 

• 

INR 

C 

8174 

IED6 

• 

• 

• 

FCR005 EQU 

$ 

8175 

1 ED6 

OD 

• 

• 

DCR 

C /COLUMN found? 

8176 

1ED7 

CA 

01 

OB 

JZ 

NZEXIT ; YES - RETURN CHARACTER FOUN 

8177 

1EDA 

• 

• 

• 

* 

9 


8178 

1 EDA 

• 

• 

• 

; SEARCH DISPLAY LIST 

8179 

1EDA 

• 

• 

• 

• 

9 


8180 

1FDA 

• 

• 

• 

ECHO 10 EQU 

$ 

8181 

1EDA 

CD 

87 

OB 

CALL 

NXTCHR ? GET THE NEXT CHARACTER 

8182 

1EDD 

C2 

56 

IF 

JNZ 

FCR260 /EOL LINK - EXIT NOT FOUND 

8183 

1 EEO 

87 

• 

• 

ADD 

A ; IS IT ASCII? 

8184 

1EE1 

D2 

D6 

IE 

JNC 

FCR005 ;YES - DECREMENT COLUMN COUN 

8185 

1EE4 

• 

• 

• 

;***********************♦** ********************** 

8186 

1EE4 

• 

• 

• 

? NON-ASCII 

CHARACTER - DETERMINE CHAR FUNCTION * 

8187 

1EE4 

• 

• 

• 

;*♦***♦ t**************** ************************* 

8188 

1EE4 

IF 

• 

m 

RAR 

? RESTORE CHARACTER 

8189 

1EE5 

FA 

EE 

IE 

JM 

FCR100 ; NOT DISPLAY CTL - CHECK MOR 

8190 

1EE8 

32 

C6 

FF 

STA 

LSTOCD ; UPDATE CURRENT DISPLAY CODE 

8191 

1 EEB 

C3 

DA 

IE 

JMP 

FCR010 5 CONTINUE SEARCHING 
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ii 

ii 

ii 
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H 
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it 

ii 

ii 

ii 

it 

ii 

ii 




= 5 = 

ii 

ii 

it 

ii 

it 

ii 

it 

it 

ii 

ii 

II 

II 

II 

II 

It 

II 

II 

II 

ii 

it 

ii 

it 

ii 

II 

ii 

H 

ii 

it 

it 

II 

II 

it 

II 

II 

ii 

II 

H 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

8193 

IEEE 

• 


• 

• 

9 




8194 

IEEE 

• 

• 

• 

* 

9 

FORMAT CONTROL CHARACTER - CHECK FOR ENDING 

8195 

IEEE 

• 

• 

• 

0 

9 




8196 

IEEE 

• 

• 

• 

FCR100 EQU 

$ 


8197 

IEEE 

FE 

CC 

• 


CPI 

EOL 

;END OF LINE? 

8198 

1 EFO 

C8 

• 

• 


RZ 


;YES - RETUPN 

8199 

1EF1 

FE 

CE 

• 


CPI 

EOP 

; END OF DISPLAY? 

8200 

1 EE 3 

C 8 

• 

• 


RZ 


; YES - RETURN 

8201 

1EF4 

FE 

C4 

« 


CPI 

STPFLG 

;nun-displaying terminator? 

8202 

1EF6 

CA 

45 

IF 


JZ 

FCR200 

;yes - determine its functio 

8 203 

l EF9 

FE 

C5 

• 


CPI 

ALPHA 

? T ¥ P E DEFINITION? 

8204 

1EFR 

F2 

26 

IF 


Jp 

FCRlbO 

;YES - SET CHECK FUNCTION 

8205 

1EFE 

FE 

C 3 

• 


CPI 

XMONLY+l 

; FORMAT CONTROL? 

8206 

1 FOO 

F2 

DA 

IE 


Jp 

FCR010 

; NO - CONTINUE SEARCHING 

8207 

1F03 

E5 

• 

• 


PUSH 

H 

; YES - RESET CHECK ROUTINE 

8208 

1FU4 

21 

06 

07 


LX I 

H f ZRETRN 

; ADDRESS 

8209 

1F07 

22 

8b 

FF 


ShLD 

CHKRTN 


8210 

1F0A 

El 

• 

• 


POP 

H 

; RESTORE CHECK CHARACTERS 

8211 

1 FOB 

32 

C6 

FF 


STA 

iiSTFMT 

; SET CURRENT FORMA! CONTROL 

8212 

1F0E 

47 

• 

• 


MOV 

U, A 

; SAVE CONTROL CHARACTER 

8213 

1 FQF 

CO 

7b 

19 


CALL 

CHKFMS 

S FORMA T /SOFT KEY DEFINE MODE 

8214 

1F12 

CA 

DA 

IE 


JZ 

FCR010 

; NO - CONTINUE SEARCHING 

8215 

1 FI 5 

78 

• 

9 


MOV 

A, 6 

; RECALL CHARACTER 

8216 

1 F 1 6 

DE 

Cl 

0 


SB I 

STPR+1 

? COMPUTE "PROFLD" VALUE 

8217 

IF 1 8 

32 

C 2 

Ft 


STA 

PROFLD 

;(= -1 FOR PROTECTED) 

8218 

1F1B 

78 

• 

0 


MOV 

A,B 

Recall character 

8219 

1 F1C 

BC 

• 

0 


CMP 

H 

; TERMINATOR FOUND? 

8220 

1 F 10 

CA 

24 

IF 


JZ 

FCR1 10 

; YES - EXIT 

8221 

1F20 

BD 

• 

9 


CMP 

L 


8222 

1F21 

C2 

DA 

IE 


JnZ 

FCR010 

•NU - CONTINUE SEARCHING 

8223 

1F24 

• 

• 

• 

FCR110 EQU 

S 


8224 

JIF24 

B7 

• 

• 


ORA 

A 

; SET Z FALSE 

8225 

1F25 

C9 

• 

• 


ret 


? RETURN 

8226 

1F26 

• 

• 


i 




8227 

1F26 

• 

• 

• 

i 

TYPE DEFINITION FOUND - SET CHECK RUU1INF 

8228 

1F26 

• 

* 

• 

} 




8229 

1F26 

• 

• 

• 

FCKlbO E&U 

$ 


8230 

1F26 

E5 

• 

0 


PUSH 

H 

; SAVE TERMINATOR CHARACTERS 

8231 

1 F27 

21 

23 

48 


LXI 

H , ZALPCK 

; SET H , L FUR ALPHA CHECK 

8232 

l F 2 A 

CA 

3E 

IF 


JZ 

FCR160 

; SET ALPHA CHECK IF ALPHA 

8233 

1F2D 

21 

26 

48 


LXI 

H , ZNUMCK 

;SET H ,L FOR NUMERIC CHECK 

8234 

1 F30 

D6 

C7 

• 


SUI 

NUMBER+1 

? NUMERIC FIELD? 

8235 

IF 32 

FA 

3E 

IF 


JM 

FCR160 

; YES - SET CHECK ROUTINE ADD 

8 236 

1F35 

21 

06 

07 


LXI 

H, ZRETRN 

; NO - SET H,L FOR ALPHANUM 

8237 

1F38 

CA 

3E 

IF 


JZ 

FCR160 

; SET ROUTINE ADDR IF s ZERO 

8238 

IF3B 

21 

B7 

OF 


LXI 

H r SFKCHK 

? ELSE , SET FOR SOFT KEYS 

8239 

1F3E 

• 

9 

• 

FCRlbO EQU 

$ 


8240 

1 F3E 

22 

86 

FF 


SHLD 

CHKRTN 

;SET CHECK ROUTINE ADDRESS 

8241 

1 F4 1 

El 

• 

• 


POP 

H 

; RECALL TERMINATOR CHARACTER 

8242 

IF42 

C 3 

DA 

IE 


JMP 

FCR010 

;CONTI NUE SEARCHING 
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8244 

1F45 

• 

• 

• 

;********************************************** 

8245 

1 F45 

• 

• 

• 

? NON-DlSPLAi ING TERMINATOR FOUND - DETERMINE * 

8 246 

1 F45 

• 

• 

• 

? AND PERFORM ITS FUNCTION * 

8247 

1F45 

• 

• 

• 

-************ ********************************** 

8248 

1F45 

• 

• 

• 

FCR200 F.QU 

$ 

8249 

1 F45 

3A 

6D 

FF 

LDA 

TRMFCT ; GET THE FUNCTION FLAG 

8250 

1F48 

B7 

• 

• 

ORA 

A ?WHAT FUNCTION i 

8251 

1F49 

FA 

55 

IF 

JM 

FCR250 ; -1 - TERMINATE TRANSFER 

8252 

1F4C 

C2 

DA 

IE 

JNZ 

FCR010 ?+l - IGNORE IT 

8253 

1F4F 

CD 

B8 

1A 

CALL 

CHRDL2 ;0 - DELETE IT 

8254 

1F52 

C 3 

DA 

IE 

JMP 

fCROlO ; CONTINUE CHARACTER SEARCH 

8255 

1F55 

• 

• 

• 

r 


8 25t> 

1F55 

• 

• 

• 

; TERMINATE TRANSFER 

825 7 

1 F55 

• 

• 

• 

9 


8258 

l F55 

• 

• 

• 

FCR250 EQU 

$ 

8259 

1 F55 

1A 

• 

• 

LDAX 

D ; PUT CHARACTER BACK IN A-REG 

8260 

1 F56 

• 

• 

• 

FCR260 EDU 

$ 

8261 

1 F56 

BF 

• 

• 

CMP 

A ?SET Z-FLAG TRUE 

8262 

1F57 

C9 

• 

• 

RET 

; RETURN CHARACTER NOT FOUND 
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«i 
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11 
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CODE 


SOURCE STATEMENTS 
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n 

ii 

it 

it 

ii 

it 

ii 

ii 

ii 

it 

ii 

ii 
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ssssssasssss: 


ll 
» 
■ ii 
1 It 
! II 
II 
If 
II 
II 
II 
II 
II 
II 
II 
II 
II 
II 
If 
II 
II 
II 
II 
II 
II 
II 
II 
II 
If 
II 

8264 

1 F58 

• 

• 

• 


;********** ******* ****************************** 

8265 

IF58 

• 

• 

• 


,* FNDLST - 

LOCATE LAST CHARACTER TYPE AHEAD OF * 

8266 

IF 58 

• 

• 

• 


; CURRENT CHARACTER 

* 

8267 

1F58 

• 

• 

* 


• a***************************** ****************** 

8268 

1F58 

• 

« 

• 


! 



8269 

1F58 

• 

• 

• 


ENTRY: 

A = NUMBER 

OF COLUMNS TO SEARCH 

82 70 

1F58 

• 

• 

• 



D,E = ADDRESS OF CHARACTER BEFORE 

8271 

1 F58 

• 

• 

• 



BEFORE FIRST CHARACTER TO LOOK AT 

8272 

1F5 8 

• 

• 

• 



H 1 1* = CHARACTERS TO BE FOUND 

8273 

1F58 

• 

• 

• 





8274 

1 F58 

• 

• 

• 


EXIT ; 

P - CHARACTER FOUND 

8275 

1 F5 8 

• 

• 

• 



B = NUMBER OF CHARACTERS FROM CURRENT 

8276 

1F58 

• 

• 

• 



CHARACTER 

8277 

1 F58 

• 

• 

• 



M - CHARACTER NOT FOUND 

8278 

1F58 

• 

• 

• 



B DESTROYED 

8279 

1 F58 

• 

• 

• 



A,C,D,E DESTROYED 

8280 

1F58 

• 

• 

• 





8281 

1F5 8 

• 

• 

• 

F 

NDLSO EQU 

$ 


8282 

1F58 

3C 

• 

• 


INR 

A 

; ADJUST SEARCH COUNT 

8283 

1 F59 

21 

CC 

CC 


LXI 

H,EOL*25b+EOL ?SET TO LOOK FOR M EOL M 

8284 

1F5C 

• 

• 

• 

* 

9 




8285 

1F5C 

• 

• 

• 

fndlst equ 

$ 


8286 

1 F5C 

4F 

• 

• 


MOV 

C , A 

;PUT SEARCH COUNT IN C-REG 

8287 

1F5D 

06 

FF 

• 


M V I 

B, 377Q 

? PRESET B FOR FAIL RETURN 

8288 

1 F 5 F 

30 

• 

• 


DCR 

A 

; ANY columns TO SEARCH? 

8289 

IF 60 

F’8 

• 

• 


RM 


;NO - RETURN NONE FOUND 

8290 

1F61 

• 

• 

• 

FLS010 EQU 

$ 


8291 

lFbl 

CD 

87 

OB 


CALL 

NXTCHR 

? GET THE NEXT CHARACTER 

8292 

1F64 

BC 

• 

• 


CMP 

H 

;DGES IT MATCH DESIRED CHARS 

8293 

1 F65 

CA 

6C 

IF 


JZ 

FLS020 

; YES - SAVE LOCATION OF CHAR 

8294 

1 Fb8 

BD 

• 

• 


CMP 

L 


8295 

1 F69 

C2 

6D 

IF 


JNZ 

FLS030 

;NO - GO TO NEXT CHAkACTEF 

8296 

1 F6C 

• 

• 

• 

FLS020 EQU 

$ 


8297 

1 F6C 

41 

• 

• 


MOV 

B , C 

;SAVE LOCATION OF CHAR IN B 

8298 

1F6D 

• 

• 

• 

FLS030 EQU 

$ 


8299 

1 F6D 

B7 

• 

• 


ORA 

A 

?IS CURRENT CHAR ASCII? 

8300 

1 F6E 

FA 

78 

IF 


JM 

FLS050 

;NO - CHECK FOR TERMINATION 

8301 

1 F7 l 

OD 

• 

• 


DCR 

C 

; SEARCH COMPLETE? 

8302 

1F72 

• 

• 

• 

FLS035 EQU 

$ 


8303 

IF 7 2 

C2 

61 

IF 


JNZ 

FLS010 

;N0 - CHECK NEXT CHARACTER 

8304 

1 F75 

• 

• 

• 

FL5040 EQU 

$ 


8305 

1 F75 

AF 

• 

• 


XRA 

A 

; CLEAR A-REGISTER 

8306 

1F76 

BO 

• 

• 


ORA 

B 

;SET FLAGS FOR RETURN 

8307 

1 F77 

C9 

• 

• 


RET 


? RETURN 

8308 

1F78 

• 

• 

• 

9 

9 

********************************************** 

8309 

1F78 

• 

• 

• 

• 

9 

NON-ASCII 

CHARACTER 

- CHECK FOR TERMINATION * 

8310 

1F78 

• 

• 

• 

• 

9 

********************************************** 

8311 

1F78 

• 

• 

• 

FLS050 EQU 

$ 


8312 

1F78 

F£ 

CC 

• 


CPI 

EOL 

?IS IT AN EOL? 

8313 

1 F7 A 

CA 

75 

IF 


JZ 

FLS040 

; YES - EXIT 

8314 

1F7D 

FE 

CE 

• 


CPI 

EOP 

?IS IT AN EOP? 

8315 

1F7F 

C3 

72 

IF 


JMP 

FLS035 

? GO CHECK RESULT 
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II 
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It 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

ii 

ii 

8317 

1 F82 


• 

• 

.*********************************** 

8318 

1 F82 

* 

• 

• 

; HTAB - SKIP TO NEXT TAB POSITION * 

8319 

1F82 

« 

• 

• 

.************************ *********** 

8320 

1F82 

« 

• 

• 

HTAB EUU 

$ 

8321 

1F82 

CD 

72 

19 

CALL 

CHKFMO ? FORMAT/SOFT KEY DEFINE MODE 

8322 

1 F85 

C2 

CE 

IF 

JNZ 

HTB200 ; YES - LOCATE NEXT FIELD 

8323 

1F88 

2E 

Cl 

• 

MV I 

lu,CURCGL-BASE ?N0 - LOCATE NEXT TAB 

8324 

1F8A 

46 

• 

• 

MOV 

B,M ;SET POSITION 

8325 

1F8B 

04 

• 

• 

I NR 

B ; START FROM NEXT COLUMN 

8326 

1 F8C 

3E 

4F 

• 

MV I 

A,MAXCOL ? COMPUTE NUMBER OF COLUMNS 

8327 

1F8E 

90 

• 

• 

SUB 

ti ;TO END OF LINE 

8328 

1 F8F 

FA 

9b 

20 

JM 

CRLF ; GO TO START OF NEXT LINE IF 

8329 

1F9 2 

m 

• 

• 

♦ 

ALREADY AT END OF LINE 

8330 

1 F92 

F6 

07 

• 

OKI 

7 ; MOVE TO COL CORRESP. TO 

8331 

1 F94 

• 

• 

• 

f 

START OF BYTE 

8332 

1 F94 

4F 

• 

• 

MOV 

C , A /SAVE IN C 

8333 

1F95 

78 

• 

• 

MOV 

A,B 

8334 

1 F96 

CD 

ED 

14 

CALL 

FWDTBt ? GET TABLE ENTRY FOR COLUMN 

8335 

1 F99 

3D 

• 

• 

DC R 

A ; MASK OFF BITS FOR 

8 336 

1 F9 A 

2F 

• 

• 

CMA 

?PREVIUUS COLUMNS 

8337 

1 F9B 

Ab 

* 

• 

ANA 

M 

8338 

1F9C 

• 

• 

• 

.*********************♦********** 

8339 

1F9C 

• 

• 

• 

? CHECK NEXT COLUMN FOR SET TAB * 

8340 

1 F9C 

• 

• 

• 

.***********+******************** 

8341 

1 F9C 

• 

• 

• 

HTB100 EQU 

$ 

8342 

1F9C 

06 

08 

• 

MV I 

B,8 f GET BIT COUNT 

8343 

1F9E 

CA 

Cl 

IF 

JZ 

HTB140 ;NO BITS SET IN BYTE 

8344 

1 F Al 

* 

• 

• 

HTB120 EQU 

$ 

8345 

1 F A 1 

OF 

* 

• 

RRC 

; TAB BIT SEXY 

8346 

1FA2 

D2 

BD 

IF 

JNC 

HTB130 ;NO - TRY NEXT COLUMN 

8347 

1FA5 

• 

• 

• 

*********** ******************* 

8348 

1FA5 

# 

• 

• 

; TAB IS SET - UPDATE CUKCOL * 

8349 

1FA5 

• 

• 

• 

****************************** 

8350 

1 FA5 

• 

• 

• 

HTB160 EQU 

$ 

8351 

1 FA5 

5F 

• 

• 

MOV 

E , A ; SAVE A-REGISTER 

8352 

1FA6 

3E 

56 

• 

MV I 

A , MAXCGL+7 ? COMPUTE COLUMN OF LOCATIO 

8353 

1FA8 

91 

• 

• 

SUB 

C ; OF TAB 

8354 

1FA9 

90 

• 

• 

SUB 

B 

8355 

1 FAA 

22 

96 

FF 

SHL.I 

LNKSAV ;SAVE CURRENT TABLE ADDRESS 

8356 

IFAD 

2 A 

BE 

FF 

LHLD RHTMGN ; GET RIGHT AND LEFT MARGINS 

8357 

1FB0 

BD 

• 

• 

CMP 

L ; TAB BEYOND RIGHT MARGIN? 

8358 

1FB1 

F2 

96 

20 

JP 

CRLF ? YES - DO CR, LF 

8359 

1FB4 

3C 

• 

• 

INR 

A ; NO - ADJUST TO PROPER VALUE 

8360 

1 FB5 

BC 

• 

• 

CMP 

H ? TAB BEYONU LEFT MARGIN? 

8361 

1FB6 

D2 

98 

11 

JNC 

CURP04 ;.YES - LOCATE TAB LOCATION 

8362 

1FB9 

7B 

• 

• 

MOV 

A,E ;NO - RESTORE A-REGISTER 

8363 

1FBA 

2A 

96 

FF 

LHLD LNKSAV ? RECALL TAB TABLE ADDRESS 

8 364 

1FBD 

• 

• 

• 

• 

# 

LOOK FOR ANOTHER TAB 
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ii 

it 

ii 

H 

II 
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U 

II 
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•1 

II 

II 
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li 
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ii 

ii 

ii 

8366 

1 FBD 

• 

• 

• 

;************************************ 

8367 

1 FBD 

• 

• 

• 

; TAB NOT FOUND - 

CHECK NEXT COLUMN * 

8368 

1FB0 

• 

• 

• 

;************************************ 

8369 

1 FBD 

• 

• 

• 

HTB130 EQU $ 

; NO - TRY NEXT COLUMN 

8370 

1FBD 

05 

• 

• 

DCR b 

r ALL BITS EXAMINED? 

8371 

1FBE 

C2 

A 1 

IF 

JtvZ HTB120 

;NO - LOOK TO NEXT BIT 

8372 

1FC1 

• 

• 

• 

;********************* ******* 

8373 

1 FC 1 

• 

• 

• 

; BYTE EXHAUSTED 

* 

8374 

1FC1 

• 

• 

• 

} MOVE TO NEXT TABl’BL ENTRY * 

8375 

1FC1 

♦ 

• 

• 

;************** ************** 

8376 

1 FC 1 

• 

• 

• 

HTB140 EQU $ 


8377 

1FC1 

79 

• 

• 

MOV A,C 

; GET COLUMN COUNT 

837b 

1 FC2 

06 

08 

• 

SOI 8 

? DECREMENT 

8379 

1FC4 

FA 

96 

20 

JM CRLF 

;DO CR , LF IF REACHED END 

8380 

1FC7 

4F 

. 

• 

MOV C,A 


8381 

1FC8 

23 

• 

• 

I N X H 

; GET NEXT BYTE FROM TABLE 

8382 

1 FC9 

7 E 

« 

• 

MOV A,M 


8383 

1 FC A 

87 

• 

• 

OKA A 

f SET FLAGS 

8384 

1 FCB 

C 3 

9C 

IF 

J«P HT8100 





ii 

H 

it 

ii 

it 

ii 

ii 

it 


:::: 

:5SSSS 

» 

ii 

it 

ii 

it 

ii 

ii 

II 

II 

II 

II 

II 

It 

H 

II 

it 

It 

II 

II 

tl 

ITE* 

1 LQC 

OBJECT 

CODE 

SOURCE STATEMENTS 

838{ 

> 1FCE 

• 

• 

• 

p*********** ******* 

8381 

f 1FCE 

• 

• 

• 

; FORMAT MODE TAB * 

838f 

) 1FCE 

• 

• 

# 

P*********** ******* 

838< 

i 1FCE 

• 

• 

• 

HT6200 EQU $ 

839( 

) 1FCE 

CD 

C4 

ID 

CALL FLDSR 

8 391 

L 1FD1 

CO 

• 

• 

RNZ 

8391 

l 1FD2 

C 3 

2C 

ID 

JMP CHRP HI 
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PAGE 249 


? SEARCH FOR NEXT FIELD 
? RETURN IF FOUND 

; HOME TO FIRST UNPROX. FIELD 


13255- 

90003 

Rev 

AUG-01- 

76 




«s*s 

sss 

s:s::s 

ii 

ii 

ii 

ti 

H 

II 

II 

II 

II 

II 

II 

II 

II 

li 

Ii 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

ITEM 

LGC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 250 


n 

ii 

ii 

it 

ii 

ii 

ii 




ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

11 

II 

II 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

If 

II 

11 

11 

If 

II 

II 

II 

II 

II 

II 

ft 

II 

II 

II 

II 

II 

If 

II 

II 

II 

II 

If 

II 

8394 

1FDS 

• 

• 

• 

• 

9 


8395 

1FD5 

• 

• 

• 

;***** 

****************** 

8396 

1FD5 

• 

• 

• 

• 

9 


8397 

1FD5 

• 

• 

• 

; ICHUN , ICHOFF - INSERT CHARACTER ON/OFF 

8398 

1FD5 

• 

• 

• 

? 


8399 

1 FD5 

• 

• 

• 

ICHON EOU 

$ 

8400 

1 FD5 

06 

00 

• 

MV I 

B,0 ; SET FUR NU BLINK 

8401 

1 FD7 

• 

• 

• 

ICH010 EOU 

$ 

8402 

1FD7 

3E 

02 

• 

MV I 

A , INSCHR ; TURN ON INSERT CHARACTER 

8403 

1FD9 

C 3 

0£ 

48 

JMP 

ZSl’MDl ? LED AND EXIT 

8404 

1FOC 

• 

• 

• 

• 

9 


8405 

1FDC 

• 

• 

• 

ICHOFF EOU 

$ 

8406 

1FDC 

3E 

FD 

• 

MV I 

A , 37 7 Q-I NSWPP 

8407 

1 FDE 

CD 

DC 

13 

CALL 

CLCMFL ;CLEAR WRAP AROUND FLAG 

8408 

1FEI 

3E 

02 

• 

MVI 

A, INSCHR ; TURN OFF INSERT CHARACTER 

8409 

1 FE3 

C3 

11 

48 

JMP 

ZCLMD1 

8410 

1 FE6 

9 

• 

• 

;************* ******** ****** ********** 

8411 

1FE6 

• 

• 

• 

; IWRPON - 

INSERT WITH WRAPAROUND ON * 

8412 

1FE6 

• 

• 

• 

;************************************* 

8413 

tFE6 

• 

• 

• 

lWRPUN Egu 

$ 

8414 

1FE6 

3E 

02 

* 

MVI 

A, INSWRP 

8415 

1FE8 

CD 

00 

14 

CALL 

STCMFL ;SET WRAP AROUND FLAG 

8416 

1 FEB 

Oo 

FF 

• 

MVI 

B,377Q ;SET TO BLINK LED 

8417 

1 FED 

C3 

D7 

IF 

JMP 

ICH010 ;SET INSERT CHARACTER LED 
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ITEM 

LUC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 251 


it 

it 

ti 

ii 

it 

ii 

ti 

ii 

ii 

ii 

ii 

xss 

ii 

ii 

ii 

n 

ii 

il 



ii 

ii 

It 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

il 

ii 

ii 

n 

ii 

ii 

ii 

ii 

8419 

1 FFO 

# 

• 

• 

.******************************************** 

8420 

IFF 0 


• 

• 

; bckspc - 

BACKSPACE 

ONE CHARACTER POSITION * 

8421 

1FF0 

* 

• 


.************^****************************** 

8422 

1FF0 

• 

* 

• 

BCKSPC equ 

$ 


8423 

1FF0 

2E 

Cl 

♦ 

MV I 

L , CURCOL 

-BASE 

8 424 

1 FF2 

35 

• 

• 

OCR 

M 

; DECREMENT CURRENT COLUMN 

8425 

1FF3 

FO 

• 

• 

RP 


; RETURN IF NOT AT COLUMN ZER 

8426 

IFF 4 

34 

• 

• 

INR 

M 

; ELSt , RESTORE TO ZERO AND 

8427 

1 FF5 

C9 

• 

• 

RET 


? RETURN 



13255-90003 


ITEM 

LOC 

8429 

IFF 6 

8430 

1 FF6 

8431 

1 FF6 

8432 

1 FF6 

8433 

2000 

8434 

2000 

8435 

2001 


Rev AUG-01-76 


OBJECT COL)F 


50 

20 


SOURCE STATEMENTS PAGE: 252 

;*♦************************ 

; ROM BREAK 4 * 

;************************** 

ORG ZBRK 3 + 4000Q 
ZBRK4 EQU $ 

OB VERSN ; ROM PRESEINT FLAGS 

DB ZBRK4/256 
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li 

II 

II 

II 

II 

ii 

H 

ii 

ii 

ii 

H 

11 

II 

:::: 

sss: 

S3S3S 

333333333333=3333X333 

ii 

it 

ii 

li 

ii 

it 

ii 

ii 

ii 

li 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

ITEM 

LUC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 253 


ii 

ii 

ti 

ii 

ii 

it 

ti 

it 


::s: 


333333333333333333333 

333333333333533333333333333333 

8437 

2002 

• 

• 

• 

;******************)M*************** 

8438 

2002 

• 

• 

• 

; CUR AD V - CURSOR ADVANCE ROUTINE * 

8439 

2002 

• 

• 

• 

; ADVANCES CURSOR TO 

NEXT POSITION * 

8440 

2002 

• 

• 

• 

? ON DISPLAY 

* 

8441 

2002 

• 

• 

• 

• *********) M************************ 

8442 

2002 

• 

• 

• 

CURAD2 EQU $ 

/ ADVANCE CURSOR TWICE 

8443 

2002 

CD 

05 

20 

CALL CURADV 

; DO FIRST CURSOR ADVANCE 

8444 

2005 

• 

• 

• 

• 

9 

THEN FALL IN TO DO NEXT 

8445 

2005 

• 

• 

• 

CURADV EQU $ 


8446 

2005 

CD 

57 

20 

CALL CRADV 

/ ADVANCE CURSOR 

8447 

2008 

CD 

7t> 

1 9 

CALL CHKFMS 

; FORMAT/SOFT KEY DEFINE MODE 

8448 

200B 

C8 

• 

• 

RZ 

/NO - RETURN 

8449 

200C 

• 

• 

• 

.*^**********************************»*** 

8450 

200C 

# 

• 

• 

; FORMAT MODE 

* 

8451 

200C 

• 

• 

• 

; CHECK FOR ADVANCE 

INTO PROTECTED FIELD * 

8452 

200C 

• 

• 

• 


8453 

200C 

3 A 

Cl 

Ft 

LD A CURCQL 

/GET NEW CURRENT COLUMN 

8454 

200F 

B7 

• 

• 

ORA A 

/DID CURSOR WRAP AROUND? 

8455 

2010 

C2 

28 

20 

JNZ CRA040 

/NO - CHECK FOR PROTECTED FL 

8456 

2013 

• 

• 

• 

. a********************************** 

8 457 

2013 

• 

• 

• 

? CURSOR WRAPPED AROUND * 

8458 

2013 

• 

• 

• 

; SEE IF NEW LINE IS 

CONTINUATION * 

8459 

2013 

• 

• 

• 

; UF UNPROTECTED FIELD * 

8460 

2013 

• 

• 

• 

; ***♦ *************** ****** ********* 

8461 

2013 

2 A 

C9 

FF 

LHLD LSTLIN 


8462 

2016 

EB 

• 

• 

XCHG 

/GET CURRENT LINE ADDR IN D 

8463 

2017 

3 A 

8 A 

FF 

LD A FMTCTL 

/ RESET "LSTFMT" TO LAST 

8464 

20 1 A 

32 

C5 

FF 

STA LSTFMT 

ZFUPMAT CONTROL IN LINE 

8465 

20 1 D 

CD 

83 

IE 

CALL FLDSRB 

/CONTINUATION FIELD? 

8466 

2020 

C2 

39 

20 

JNZ C RAO 60 

/NO - TAB TO NEXT FIELD 

846 7 

2023 

• 

• 

• 

********************* 

8468 

2023 

• 


• 

i RESET CURADV FLAG 

♦ 

8469 

2023 

• 

• 

• 

********************* 

8470 

2023 

• 

• 

• 

CRADV 1 EQU $ 


8471 

2023 

AF 

• 

• 

XRA A 


847 2 

2024 

32 

67 

FF 

STA CRAFLG 


8473 

2027 

C9 

m 

• 

RET 




13255-90003 
ITEM LOC 

8475 2028 

8476 2028 

8477 2028 

8478 2028 

8479 2028 

8480 2028 

8481 2028 

8482 202B 

8483 202C 

8484 202D 

8485 2030 

848b 2031 

8487 2034 

8488 2035 

8489 2038 

8490 2039 

8491 2039 

8492 203C 

8493 203F 

8494 2042 

8495 2045 

8496 2048 

8497 2049 

8498 2049 

8499 204C 

8500 204F 

8501 2050 

8502 2053 

8503 2054 
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OBJECT CODE SOURCE STATEMENTS PAGE 254 


II 

II 

II 

II 

it 

ii 

ii 

ii 

H 

It 

II 

11 

II 

ii 

ii 

ii 

ii 

H 

II 

II 

11 

II 

11 

II 

II 

ii 

H 

II 

II 

II 

II 

II 

II 

II 

II 

ii 

ii 

it 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

it 

ii 

M 

II 

II 

II 

11 

• 

• 

• 

;***************************♦* 

• 

• 

• 

; CURSOR DID NOT WRAP 

AROUND * 

• 

* 

• 

; SEE IF CURSOR ENTERED * 

• 

• 

• 

; PROTECTED FIELD 

♦ 

• 

• 

• 

;***************************** 

• 

• 

• 

CRA040 EQU 

$ 


2A 

C 3 

EF 

LHLD 

CUR ADR ; 

GET THE CURRENT CHAR ADDR 

EB 

• 

• 

XCHG 


;PUT IT INTO H,L 

16 

• 

• 

DCX 

D 

; SET POINTER TO NEXT CHAR 

2A 

86 

FF 

LHLD 

CHKRTN 

;SAVE THE CURRENT CHECK 

E5 

• 

• 

PUSH 

H 

; ROUTINE ADDRESS 

CO 

9D 

IE 

CALL 

FNDCHO 

;NEXT CHARACTER PROTECTED? 

El 

• 

• 

POP 

H 

? (RESTORE CHECK ROUTINE 

22 

8b 

FF 

SHLD 

CHKRTN 

; ROUTINE ADDRESS) 

C8 

m 

• 

RZ 


;N0 - RETURN 

• 

• 

• 

CPA060 EQU 

S 


CD 

23 

20 

CALL 

CRADV1 ; 

RESET CURADV FLAG 

CD 

A6 

12 

CALL 

DCXB2D 

; DATA COMM OR I/O BUFF CHAR? 

21 

C2 

Cl 

LX I 

H,ENDPK*25b+XMONLY ? (SET DEFAULT) 

C2 

49 

20 

JNZ 

CRA070 

? YES - DON'T SOUND BELL 

CD 

14 

48 

CALL 

ZBELL 

; NO - SOUND BELL 

6C 

« 

• 

MU V 

L , H 

; LOOK FOR " ENDPR” ONLY 

• 

• 

• 

CRAO/O EQU 

$ 


CD 

AO 

IE 

CALL 

FNDCH 

? NEXT CHARACTER UNPROTECTED 

CC 

C4 

Id 

CZ 

FLDSR 

r OR ANOTHER FIELD EXIST? 

CO 

• 

• 

RNZ 


;YES - RETURN 

CD 

A6 

12 

CALL 

DCXB2D 

;DATA FROM DATA COMM OR CTU? 

C 8 

• 

• 

RZ 


? NO * FROM KEYBOARD - RETURN 

C 3 

2C 

ID 

JMP 

CURPB1 

; YES - HOME THE CURSOR 
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SSSS 

3SSSS 

ssss ssss ssss 

sssssssss 

SSSSSS3SSSSS sssssssss sssssssss 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 255 

it 

ti 

ii 

it 

ii 

it 

it 

it 

it 

ii 

it 

it 


ssss 

S33S5 

ssrsssssssss 

sssssssss 

ii 

ii 

H 

it 

ii 

it 

ii 

it 

it 

ii 

ii 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

ti 

it 

it 

it 

it 

it 

ti 

* 8505 

2057 

• 

• 

• 

************************** 

8506 

2057 

• 

• 

• 

? CRADV - ADVANCE CURSUR * 

8507 

2057 

• 

• 

# 

************************** 

8508 

2057 

• 

• 

• 

CRADV EQU 

$ 


8509 

2057 

3 A 

BE 

FF 

LDA 

RHTMGN 

; GET RIGHT MARGIN SETTING 

8510 

205 A 

21 

Cl 

FF 

LXI 

H,CURCOL 


8511 

205D 

• 

• 

• 

CRA010 EQU 

$ 


8512 

205D 

BE 

• 

• 

CMP 

M 

JCURSOR AT RIGHT MARGIN? 

8513 

205E 

CA 

77 

20 

JZ 

CRA100 

; YES - CHECK FOP WRAP AROUND 

8514 

2061 

3E 

4F 

• 

M VI 

A , MAXCOL 

; (SET FOR LAST COL CHECK) 

8515 

2063 

FA 

5D 

20 

JM 

CRA010 

; AFTEP MARGIN - CHECK EOL 

8516 

2066 

34 

« 

• 

INR 

M 

? ADVANCE CURSOR 

8517 

2067 

BE 

• 

• 

CMP 

M 

; MOVED INTO RIGHT MARGIN OR 

8518 

2068 

C 4 

65 

10 

CNZ 

CKPROT 

?INTU PROTECTED FIELD? 

8519 

206B 

C8 

• 

• 

PZ 


i YES - DON'T SET CURADV FLAG 

8520 

206C 

3 A 

F 4 

FF 

LDA 

MDFLGl 

t GET TERMINAL MODE FLAGS 

8521 

206F 

E6 

02 

• 

ANI 

I NSC HR 

; IN CHARACTER INSERT MODE? 

8522 

2071 

CO 

• 

m 

RNZ 


;YES - DON'T SET FLAG 

8523 

2072 

2E 

67 

• 

M VI 

L, CRAFLG 

-BASE ? NO - SET CURADV FLAG 

8524 

2074 

36 

01 

• 

MV I 

M f 1 


8525 

2076 

C9 

• 

• 

RET 



8526 

2077 

• 

• 

• 

******* ************************ 

8527 

2077 

* 

• 

• 

; CURSOR IS 

IN LAST 

COLUMN OF LINE * 

8528 

2077 

• 

• 

• 

************ ************************ 

8529 

2077 

• 

• 

• 

CRA1O0 EQU 

$ 


8530 

2077 

3 A 

C5 

FF 

LDA 

JUSTEMT 

; SAVE LAST FORMAT CONTROL 

8531 

207A 

32 

8 A 

FF 

STA 

FMTCTL 

; IN CURRENT LINE 

8532 

207D 

CD 

76 

19 

CALL 

CHKFMS 

; FORMAT/SOFT KEY DEFINE OR 

1 8533 

2080 

CC 

47 

10 

CZ 

CKDSPF 

? DISPLAY FUNCTIONS ENABLED 

8534 

2083 

C2 

96 

20 

JNZ 

CRLF 

;YES - DON'T CLEAR WRAP FLAG 

8535 

2086 

3A 

FB 

FF 

LDA 

KRJMPR 

; NO - GET KEYBOARD JUMPERS 1 

8536 

2089 

Fb 

04 

m 

ANI 

LINWRP 

; WRAP AROUND ENABLED? 

8537 

208B 

CO 

• 

• 

RNZ 


,'NO - RETURN 

8538 

208C 

3A 

6E 

FF 

LDA 

DFLGS 

; YES - GET DATA TRANSFER FLG 

8539 

208F 

F6 

80 

• 

ANI 

XBF2DS 

; I/O BUFFER TO DISPLAY? 

8540 

2091 

3E 

BF 

• 

MV I 

A f 377Q-WRPFLG ?(SET CLEAR MASK) 

8541 

2093 

C4 

AA 

04 

CNZ 

CLRMF2 

;yes - clear, line wrap flag 

8542 

2096 

• 

• 

• 

j***** ****** ******************************* 

8543 

2096 

e 

• 

• 

; CURSOR SHOULD BE WRAPPED INTO NEXT LINE * 

8544 

2096 

• 

• 

• 

? GENERATE 

ClR#LF 

* 

8545 

2096 

• 

• 

• 

; ****************************************** 

8546 

2096 

• 

• 

• 

CRLF EQU 

$ 


8547 

2096 

CD 

B8 

21 

CALL 

CRRET 

? CARR I AGE RETURN 

8548 

2099 

C3 

6F 

OA 

JMP 

LNFEED 

?LINE FEED 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS PAGE 256 

8550 

209C 

• 

• 

• 

;******************************* 

8551 

209C 

• 

• 

• 

? CUKPR - CURSOR POINTER RIGHT * 

8552 

209C 

• 

• 

• 

******************************** 

8553 

209C 

• 

• 

• 

CURPk EOU $ 

8554 

209C 

3E 

01 

• 

MVI A,1 ;GET INCREMENT RIGHT 

8555 

209E 

C 3 

A3 

20 

JMP CURPL1 

8556 

20 A l 

• 

• 

• 

******************************* 

8557 

20 A l 

• 

• 

• 

? CURPL - CURSOR POINTER LEFT * 

8558 

20A1 

• 

• 

• 

******************************* 

8559 

20 A 1 

• 

• 

• 

CURPL EQU S 

8560 

20A1 

3E 

FF 

• 

MVI A,-l ? GET INCREMENT LEFT 

8561 

20A3 

• 

• 

• 

CURPL 1 EOU $ 

8562 

20A3 

2E 

Cl 

• 

MVI L,CURCOL ; GET CURSOR COLUMN 

8563 

20A5 

86 

• 

• 

ADO M ; ADD INCREMENT 

8564 

20A6 

77 

• 

• 

MOV M,A ; STORE NEW COLUMN ADDRESS 

8565 

20A7 

FA 

B3 

20 

JM CURPL2 ; WRAPAROUND TO LEFT 

8566 

20 AA 

DB 

50 

• 

SUI MAXCOL+i ; WRAPAROUND TO RIGHT? 

8 56 7 

20 AC 

CO 

• 

• 

RNZ ;N0 - RETURN 

8568 

20AD 

77 

• 

• 

MOV M,A ; YES - SET TO COLUMN ZERO 

8569 

20 AE 

• 

• 

• 

;****************************** 

8570 

20AF 

• 

• 

• 

; CURPD - CURSOR POINTER DOWN * 

8571 

20 AE 


• 

• 

.****************************** 

8572 

20 AE 

• 

• 

• 

CURPD EOU $ 

8573 

2 OAF- 

3E 

01 

• 

MV T A,1 

8574 

2000 

C 3 

87 

20 

JMP CURPU1 

8575 

20B3 

• 

• 

• 

.********************************** 

8576 

2003 

• 

• 

• 

? CURSOR MOVED OFF LEFT OF SCREEN * 

8577 

2003 

• 

• 

• 

; WRAPAROUND TO RIGHT AND UP * 

8578 

20B3 

♦ 

• 

• 

;********************************** 

8579 

20B3 

• 

• 

• 

CURPL2 FOU $ 

8580 

2003 

3b 

4F 

• 

MVI M,MAXCOL ;PUT CURSOR AT LAST COLUMN 

8581 

20B5 

# 

• 

• 

;**************************** 

8582 

20B5 

• 

• 

• 

; CURPU - CURSOR POINTER UP * 

8583 

2005 

• 

• 

• 

.**************************** 

8584 

20B5 

• 

# 

• 

CURPU EOU $ 

8585 

20B5 

3E 

17 

• 

MVI A t M AXROW 

8586 

2067 

• 

• 

• 

CURPU 1 EQU $ 

8587 

2007 

2E 

CO 

• 

MVI L,CURROw ; GET CURSOR ROW 

8588 

20B9 

86 

• 

• 

ADD M ; ADD DISPLACEMENT 

8589 

20BA 

77 

• 

• 

MOV M,A ; STORE NEW ROW ADDRESS 

8590 

20BB 

D6 

18 

• 

SUI MAXROw+1 ? ROW LIMIT EXCEEDED? 

8591 

206D 

F8 

• 

• 

PM ;N0 - RETURN 

8592 

20BE 

77 

• 

• 

MOV M , A ? YES - STORE ADJUSTED ROW 

8593 

20BF 

C9 

• 

• 

RET ; RETURN 
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ITEM 

LOC 

OBJECT 

CODE source: 

STATEMENTS PAGE 257 

8595 

20C0 

• 

• 

. ; * *** ****** **************** 

859 b 

2OC0 

• 

• 

. ; DFSFKY - 

DEFINE SOFT KEYS * 

8597 

20C0 

• 

• 

. ;******************* ********* 

8598 

20C0 

• 

• 

. I 

)FSFKY 

EQU 

$ 

8599 

20C0 

2E 

09 

• 


MV 1 

L , SCRNRW ; CLEAR SOFT KEY PARAMETERS 

8 bOO 

20C2 

IE 

03 

• 


M VI 

E,3 ;to ZERO 

8601 

20C4 

CO 

FF 

10 


CALL 

CLRAL1 

8602 

20C7 

21 

DO 

27 


LXI 

H,DFSTAB ;SET RANGE TABLE FOR SOFT KE 

BbO 3 

20CA 

C3 

7F 

04 


JMP 

ESCAPA ; DEFINITION ESCAPE SEQUENC 

8b04 

20CD 

• 

• 

• 




8b05 

20CD 

• 

• 

• 

A - 

DEFINE ATTRIBUTE CODE 

8606 

20C0 

• 

• 

• 




8607 

20CD 

• 

• 

• 

0 

= NORMAL 

8608 

20CD 

• 

• 

• 

1 

= LOCAL ONLY 

8609 

20CD 

• 

• 

• 

2 

= TRANSMIT ONLY 

8610 

20CD 

• 

• 

• 




8611 

20CD 

• 

• 

. 

JFSl 00 

EQU 

$ 

8612 

20CD 

OE 

02 

• 


MV I 

C,2 ; SET MAXIMUM VALUE AND 

8613 

20CF 

11 

DA 

FF 


LXI 

D , P ARM2 ;PAPAMETER TO BF. SET 

8614 

20D2 

C 3 

F2 

20 


JMP 

DFS220 ; SET PARAMETER A Nl) EXIT 

8615 

20D5 

• 

• 

• 




8616 

20D5 

• 

• 

« 

K - 

KEY 

NUMBER TO BE DEFINED 

8617 

20D5 

• 

• 

• 




8618 

2005 

• 

• 

. 

)FSt 10 

FQU 

S 

8619 

20D5 

OE 

07 

• 


MV I 

C,NMFCTK-1 ? SET MAXIMUM VALUE AND 

8620 

20D7 

11 

D9 

FF 


LXI 

D , PARM3 ; PARAMETER TO BE SET 

8621 

20DA 

C 3 

E2 

20 


JMP 

DFS200 ;SET PARAMETER AND EXIT 

8622 

200D 

• 

• 

• 




8623 

20DD 

• 

• 

• 

L - 

SET 

LENGTH OF INPUT 

8624 

20DD 

• 

• 

• 




8625 

20DD 

• 

• 

• 

;FS120 

EQU 

$ 

862b 

20DD 

OE 

4F 

• 


MVt 

C , MAXCOL ;SET MAXIMUM VALUE AND 

8627 

20DF 

1 1 

DB 

FF 


LXI 

D , PARM 1 

8628 

20E2 

• 

• 

• 

1 


FALL INTU EVALUATION ROUTINE 
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11 

II 
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II 
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II 

II 

II 

II 

II 

li 

If 

li 

ft 

It 

II 

II 

II 

ITEM 

i ,QC 

OBJECT 

CODE 

SOURCE 
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ii 

ii 

ii 

ii 

H 

II 

II 


ssss 


s::s:=:: 


ii 

ii 

ii 

ii 

ii 

H 

It 

it 

ii 

if 

ti 

ii 

if 

11 

II 

II 

11 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

ll 

II 

8630 

20E2 

• 

• 

• 

* 

r 




8631 

20E2 

• 

• 

• 

; EVALUATE 

AND SET 

PARAMETER 

8632 

20E2 

• 

• 

• 

• 

9 




8633 

20E2 

• 

• 

9 

; o 

= MAXIMUM ALLOWABLE VALUE 

8634 

20E2 

• 

9 

• 

? F 

= LSB 

OF PARAMETER TO BE SET (MSB = BASER ) 

8635 

20E2 

• 

• 

• 

• 

9 




8636 

20E2 

• 

• 

• 

DFS200 

EQU 

$ 

;entr? for min VALUE = 1 

8637 

20E2 

2 A 

0E 

FF 


LHLD 

IODATA 

; GET INPUT PARAMETER 

8638 

20E5 

2B 

• 

• 


OCX 

H 

; ADJUST PARAMETER TO ONE LES 

8639 

20E6 

7C 

• 

m 


MOV 

A,H 

;che:ck for zero parameter 

8640 

20E7 

BO 

• 



CMP 

L 

; DOES MSB=LSB? 

8641 

20ER 

C2 

FF 

20 


JNZ 

DFS210 

; NO - STORE ADJUST VALUE 

8642 

20EB 

3C 

• 

• 


INR 

A 

; IS ADJUST VALUE -1 

8643 

20EC 

CA 

F2 

20 


JZ 

DFS220 

; YES - DON'T STORE NEW VALUE 

8644 

20EF 

• 

• 

• 

DFS210 

FQU 

$ 

; NO - STORE ADJUSTED VALUE 

8t>45 

20EF 

22 

DE 

FF 


SHLD 

IODATA 


8646 

20F2 

• 

• 

• 

DFS220 

FQU 

$ 


8647 

20F2 

CD 

11 

10 


CALL 

CHKLIO 

? FV ALUATE AND SET PARAMETERS 

8648 

20F5 

3A 

88 

FF 


LD A 

CHAR 

? RECALL INPUT CHARACTER 

8649 

20F8 

E6 

20 

• 


AN I 

40Q 

; IS IT UPPER CASE? 

8650 

2 OF A 

C2 

87 

04 


JNZ 

ESC APB 

; NO - CONTINUE ESCAPE SEQ 

8651 

20FD 

• 

9 

• 

• 

9 



VES - SET NEW DEFINITION 
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ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 
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8653 

20FD 

• 

• 


************************************************** 

8654 

20FD 

• 

« 

• 

? UPPER CASE 

CHARACTER 

INPUT - EVALUATE SEQUENCE * 

8655 

20FD 

# 

• 

• 

************************************************** 

8656 

20FD 

CD 

8C 

19 

CALL 

CHKSFK 

/SOFT KEY DEFINE MODE? 

8657 

2100 

CC 

69 

21 

CZ 

SWAP 

;N0 - SET TO SOFT KEY DISPLA 

8658 

2103 

3 A 

09 

FF 

LDA 

PARM3 

; COMPUTE DESIRED KEY DATA RO 

8659 

2106 

8 7 

# 

• 

ADD 

A 


8660 

2107 

3C 

• 

• 

INR 

A 

?= 2* (KEY NUMBER) + 1 

8661 

2108 

32 

CO 

FF 

ST A 

CURROW 


8662 

2 1 OB 

21 

A6 

FF 

LX I 

H f SFTKYS 

; LOCATE THE START OF THE 

8663 

21QE 

CD 

F 6 

OA 

CALL 

MLKSC1 

; DATA ROW 

8664 

2111 

3E 

50 

• 

M VI 

A f MAXCOL + 1 


8665 

2113 

CD 

58 

IF 

CALL 

FNDLSO 

; LOCATE THE END OF THE DATA 

8666 

2116 

3E 

51 

• 

MV I 

A r M AXCOL + 2 

; ROW + 1 

8667 

2118 

90 

• 

• 

SUB 

B 


8668 

2119 

32 

D9 

FF 

STA 

PARM3 

;SAVE END COLUMN NUMBER 

8669 

2 1 1C 

3 A 

DB 

FF 

LDA 

P ARM 1 

? TRY TU EXTEND LINE TO 

8670 

2 11 F 

32 

Cl 

FF 

STA 

CURCQL 

; END OF NEW DAI A LINE 

8671 

2122 

CD 

9F 

22 

CALL 

DSPASC 

;TRY TO ALLOCATE LINE NEEDED 

8672 

2125 

B7 

• 

• 

ORA 

A 

; COLUMN POSITION ALLOCATED? 

8673 

2126 

CA 

5 A 

21 

JZ 

DFS250 

; NU - DON'T SET NEW VALUE 

8674 

2129 

2 A 

C 3 

FF 

LHLD 

CURADR 

; YES - GET ADDRESS OF 

8675 

212C 

CD 

8b 

OB 

CALL 

NXTCHO 

; END OF NEW DATA LINE 

8676 

212F 

3A 

Cl 

FF 

LDA 

CURCOL 

; GET NUMBER OF DATA CHARS 

8677 

2132 

FE 

4F 

• 

CPI 

MAXCOL 

? FULL LINE USED? 

8678 

2134 

C 4 

54 

1C 

CNZ 

CLERLA 

;NU - CLEAR EXCESS CHARACTER 

8679 

2137 

CD 

C5 

21 

CALL 

CURPRT 

;SET CURRENT COLUMN TO ZERO 

8680 

21 3A 

21 

CO 

FF 

LXI 

H, CURROW 

; SET FOR ATTRIBUTE ROW 

8681 

2 1 3D 

35 

• 

9 

OCR 

M 


86S2 

213E 

3A 

DA 

FF 

LDA 

PARM2 

; GET ATTRIBUTE PARAMETER 

868.1 

2141 

3D 

• 

• 

DCP 

A 

; WHICH ATTRIBUTE TO SET? 

8684 

2142 

3E 

4E 

• 

MV I 

A ,N 

?(N = NORMAL) 

8685 

2144 

FA 

4E 

21 

JM 

DFS230 

; 0 - SET AS NORMAL KEY 

8686 

2147 

3E 

4C 

• 

M V I 

A,L 

; CL = LOCAL ONLY) 

8687 

2149 

CA 

4E 

21 

JZ 

DFS230 

; 1 - SET FOR LOCAL ONLY 

8688 

214C 

3E 

54 


MV I 

A,T 

; 2 - SET FOR TRANSMIT ONLY 

8689 

214E 

• 

• 

• 

DFS230 EQU 

$ 


8690 

214E 

CD 

14 

23 

CALL 

DSPTST 

J STORE ATTRIBUTE LETTER 

8691 

2151 

CD 

63 

21 

CALL 

SWAPO 

; RESTORE ACTIVE DISPLAY 

8692 

2154 

21 

FO 

27 

LXI 

H f DFSTB2 

;SET RANGE TABLE FOR SOFT 

8693 

2157 

C3 

7F 

04 

JMP 

ESCAPA 

; KEY DATA ACCUMULATION 
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8695 

2 1 5 A 

ii 

• ii 
ii 
ii 

ii 

• ii 
ii 
ii 

. ;*s^**^jM*** *************** ********************* 

8696 

2 1 5 A 

• 

• 

• i 

NOT ENOUGH 

BLOCKS AVAILABLE FOR SOFT KEY DATA * 

8697 

2 1 5 A 

• 

• 

• 

RESTORE 

ULD STATE 

AND IGNORE DEFINITION * 

8698 

2 1 5A 

• 

• 

• 4 

** ******** ************************************** 

8699 

2 1 5 A 

• 

• 

. DFS250 EQU 

$ 


8700 

2 1 5 A 

3 A 

D9 

FF 

LDA 

PARM3 

? RECALL END OF DATA LINE 

8701 

215D 

32 

Cl 

FF 

STA 

CURCOL 


8702 

2160 

CD 

3C 

1C 

CALI. 

CLEARL 

; CLEAR ANY ADDED CHARACTERS 

8703 

2163 

• 

• 

• 

>************************** ******************** 

8704 

2163 

• 

• 

• 

SWAP - SWAP DISPLAY 

PARAMETERS BETWEEN SOFT * 

8705 

2163 

• 

• 

• 

KEY AND 

NORMAL DISPLAY * 

8706 

2163 

• 

• 

• 

********************************************** 

8707 

2163 

• 

• 

• 




8708 

2163 

• 

• 

• 

ENTRY : DON'T CARE 


8709 

2163 

• 

• 

• 

1 



8710 

2163 

• 

• 

• 

EXIT : DISPLAY PARAMTERS EXCHANGED 

8711 

2163 

• 

• 

• 

ALL REGISTERS DESTROYED 

8712 

2163 

• 

• 

• 




8713 

2163 

• 

• 

. SWAPO EQU 

$ 


8714 

2163 

3 A 

F8 

FF 

LDA 

CMFLGS 

; GET COMMON FLAGS 

8715 

2166 

E6 

08 


AN I 

DEI SKY 

; DEFINE SOFT KEY MODE? 

8716 

2168 

CO 

• 

# 

RNZ 


; NO - DON'T DO SWAP 

8717 

2169 

# 

» 

• 

• 9 



8718 

2169 

• 

• 

. SWAP EQU 

$ 


8719 

2169 

21 

AE 

FF 

LXI 

H t DSPT YP 

;SET DISPLAY TYPE FLAG 

8720 

216C 

7E 

• 

9 

MOV 

A, M 

; TO VALUE FOR DISPLAY TO 

8721 

216D 

2F 

• 

• 

CM A 


? MADE ACTIVE 

8722 

216E 

77 

• 

9 

MU V 

M, A 


8723 

216F 

• 

• 

. swap i equ 

$ 


8724 

216F 

OE 

OF 

• 

M VI 

C ,NUMSWP 

;SET SWAP COUNT 

8725 

2171 

11 

AF 

FF 

LXI 

D,SWP5TR 

; SET ADDRESS OF LOCATIONS 

8726 

2 1 7 4 

21 

BE 

FF 

LXI 

H , RHTMGN 

; TO BE EXCHANGED 

8727 

2177 

• 

• 

• 




8728 

2177 

9 

• 

• 

EXCHANGE 

DISPLAY PARAMETERS 

8 729 

2177 

• 

• 

• 




8730 

2177 

• 

• 

. SWP010 EQU 

$ 


8731 

2177 

46 

• 

• 

MOV 

B,M 

; GET CURRENT SETTING 

8732 

2178 

1A 

• 

• 

LD AX 

D 

; GET STORED SETTING 

8733 

2179 

EB 

• 

• 

XCHG 


? EXCHANGE ADDRESSES 

8734 

2 1 7 A 

70 

• 

• 

MOV 

M f B 

; STORE NEW SAVE VALUE 

8735 

2 1 7B 

12 

• 

• 

STAX 

D 

; STORE NEW CURRENT VALUE 

8736 

217C 

EB 

• 

• 

XCHG 


; PESTORE ADDRESSES 

8737 

2 1 7D 

13 

• 

• 

I N X 

D 

; INCREMENT TO NEXT VALUE 

8738 

217E 

23 

• 

• 

IN X 

H 


8739 

2 1 7F 

OD 

• 

• 

DCR 

C 

; ALL VALUES EXCHANGED? 

8740 

2180 

C2 

77 

21 

JNZ 

SWP010 

; NO - MOVE NEXT VALUE 

8741 

2183 

C9 

• 

• 

RET 


;YES - RETURN 
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II 

II 

II 

II 

II 

II 

11 

i 

i 

i 

i 

i 

i 


sssz 


it 

it 

it 

H 

11 

II 

II 

II 

II 

II 

II 

II 

if 

H 

II 

II 

It 

II 

II 

II 

II 

II 

•1 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

If 

II 

II 

II 

ITEM 

LUC 

OBJECT 

CODE 
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^8743 

2184 

• 

• 

• 

************* ******** 


8744 

2184 

• 

• 

• 

? SET SOFT 

KEY DATA * 


8745 

2184 

• 

• 

• 

********************* 


8746 

2184 

• 

• 

• 

DFS300 EQU 

$ 


8747 

2184 

CD 

8C 

19 


CALL 

CHKSFK 

? SOFT KE* ALREADY ENABLED? 

8748 

2187 

CC 

69 

21 


CZ 

SWAP 

} NO - SET SOFT KEY DISPLAY 0 

8749 

218A 

21 

F 4 

FF 


LXI 

H , MDFLG1 

? GET SOFT MODE FLAGS 

8750 

2180 

7E 

. 

• 


MOV 

A,M 


8751 

2 1 BE 

F5 

« 

• 


PUSH 

PSW 

;SAVE SOFT MODE FLAGS 

8752 

2 1 BE 

36 

00 

• 


MV I 

M,0 

; FORCE INSERT CHARACTER OFF 

8753 

2191 

CD 

B6 

14 


CALL 

FDESC1 

; ADD INPUT TO DEFINITION 

8754 

2194 

FI 

• 

• 


POP 

PSW 

; RECALL SOFT MODE FLAGS 

8755 

2195 

32 

E 4 

FF 


STA 

MDFLG1 

; RESTORE ORIGINAL VALUES 

8756 

2198 

CD 

63 

21 


CALL 

SWAPO 

? RESTORE ACTIVE DISPLAY 

8757 

219B 

CD 

30 

05 


CALL 

GET DC 1 

;SET DISPLAY CURSOR 

8758 

219E 

21 

Db 

FF 


LXI 

H, NEwCUL 


8759 

21A1 

35 

• 

• 


OCR 

M 

? ALL CHARACTERS DONE? 

8760 

21A2 

F2 

8F 

04 


JP 

ESC AP 1 

; NO - CONTINUE ESC SEQUENCE 

8761 

21A5 

21 

54 

26 


LXI 

H t DFSTB3 

; YES - SET TO WAIT FOP ANY 

8762 

21A8 

C 3 

7F 

04 


JMP 

ESCAPA 

; CHAR EXCEPT CR, LF , OR DC 

8763 

21AB 

• 

• 

• 


******************************************** 

8764 

21 AB 

• 

• 

• 

; WAIT FOR 

CHARACTER TO RESTORE NORMAL MODE * 

8765 

21 AB 

• 

• 

• 

********************** 

*********************** 

8 766 

2 1 AB 

• 

• 

• 

DFS350 EQU 

$ 

; LINE FEED CODE 

8767 

2 1 AB 

CD 

A6 

12 


CALL 

DCXB2D 

; DATA FROM KEYBOARD? 

8768 

21 AE 

CA 

6F 

OA 


JZ 

LNFEED 

;YES - DU LINE 'FEED 

8769 

21B1 

C9 

• 

• 


PET 


; NO - RETURN TO RE-ENABLE AL 

,8770 

21B2 

• 

• 

• 


1 


CODES BY CALL TO M ESCEND M 

8771 

21B2 

• 

• 

• 




IN "CHINT" CLEAN-UP 

8772 

21B2 

• 

• 

• 


' 



8773 

21B2 

• 

• 

• 

DFS360 EQU 

$ 

; RETURN CnDE 

8774 

21B2 

CD 

A6 

12 


CALL 

DCXB2D 

; DATA FROM KEYBOARD 

8775 

21B5 

C2 

8F 

04 


JNZ 

ESC API 

; NO - CONTINUE WAITING 

877o 

2 1B8 

• 

• 

• 




YES - DO RETURN OPERATION 

8777 

2 1 B8 

• 

• 

• 


************************************* 

8778 

21B8 

• 

• 

• 


CRRET - SET CURSOR TO LEFT MARGIN * 

8779 

21B8 

• 

• 

• 


-************************************ 

8780 

21B8 

• 

• 

• 





8781 

2 1B8 

• 

• 

• 


ENTRY: 

DON'T CARE 


8782 

21B8 

• 

• 

• 





8783 

21B8 

• 

• 

• 


EXIT J 

A ,CURCOL « 

LEFT MARGIN SETTING 

8784 

21B8 

• 

• 

• 



IF SPOW NOT 

DISABLED t SPOw SET 

8785 

21B8 

• 

• 

• 





8786 

2 1B8 

• 

• 

• 

CRRET EQU 

$ 


8787 

21B8 

3A 

FB 

FF 


LDA 

K8JMPR 

; GET STRAP SETTINGS 

8788 

2 IBB 

E6 

02 

• 


ANI 

SP6DIS 

;SPOW DISABLED? 

8789 

2 1 BD 

CA 

C5 

21 


JZ 

CURPRT 

; YES - RETURN CURSOR ONLY 

8790 

2 ICO 

21 

6C 

FF 


LXI 

H , SPQWL 

? NO - SET SPOW LATCH 

8791 

21C3 

36 

20 

• 


MV I 

M , SPQWON 


8792 

2 1C5 

. 

• 

• 

CURPRT EQU 

$ 


8793 

21C5 

3 A 

BF 

FF 


LDA 

LFTMGN 

? SET CURSOR TO LEFT MARGIN 

8794 

21C8 

• 

• 

• 

CRRET 1 EQU 

$ 
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21C8 32 Cl FF STA CURCOL J UPDATE CURRENT COLUMN NUMbE 

2 1CB 32 00 87 STA IOCRCL ? AND SET DISPLAY CURSOR 

2 ICE C9 • . RET ; RETURN 



ITEM 


*§799 

8800 

8801 

8802 

8803 

8804 

8805 

8806 

8807 

8808 

8809 

8810 
8811 
8812 
8813 


8814 

8815 

8816 

8817 

8818 

8819 

8820 
8821 
8822 

8823 

8824 

8825 




8826 

8827 

8828 
8829 


8830 

8831 


LOC 

21CF 
21CF 
2 1CF 
21CF 
2 1 C F 
2102 
2103 
2106 
2109 
2109 
2109 
2109 
2 1 D9 
2 IOC 
2 1 OE 
2 10E 
2 1 EO 
2 1 EO 
2 1 EO 
2 1 EO 
21 EO 
21E0 
2 1 EO 
21 EO 
2 1 EO 
21E0 
2 1 EO 
2 1 EO 
2 1 E2 
21E2 
2 1E5 
21E6 
2 1 E9 


OBJECT CODE 

:::s:sr::s::s 


CD 

8C 

19 

CO 

• 

• 

21 

54 

27 

C 3 

81 

04 

• 

• 

• 

• 

• 

• 

• 

3 A 

89 

• 

FF 

F6 

OF 

• 

• 

• 

• 

06 

30 

• 


F6 

80 

• 

• 

• 

• 

32 

89 

FF 

78 

• 

• 

32 

77 

FF 

• 

• 

• 


SOURCE STATEMENTS 
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.*********^* ********** 
; display enhancement * 
.********************** 


DISPEN EQU $ 

CALL CHKSFK ; DEFINE SOFT KEY MODE? 

RNZ ; YES - NO DISPLAY ENHANCEMEN 

LX I H i DEN TAB ? SET FOR DISPLAY ENHANCEMENT 
JMP ESCAPO 

. *******:M** ******************** *********** 

? DISPLC - ENTER DISPLAY ENHANCEMENT CHAR * 

• I****************************************** 

DISPLC EQU $ 

LD A DCHAR ; GET DISPLAY CHARACTER 

ANI 17Q ;EXTRACT ENHANCEMENT BITS 


DISPCO EQU $ 

MV I B „ 60Q ? SET MASK TO SAVE ALT CHAR 

.******************************* ********* ******* 
; DISPC1 - ENTER ENHANCEMENT OR FLAG CHARACTER * 

-t***********:!:********************************** 


ENTRY: A = CHARACTER TO BE STORED 

B := MASK TO SAVE UNCHANGED PART (USED 
ONLY FOR ENHANCEMENT CHARACTERS) 


EXIT S SEE "DISPLA" 


DISPC1 EQU S 

ORI 2 OOQ 
DISPC2 EQU $ 

STA DCHAR 
MOV A , B 
STA CDSPEN 


; ADD BIT FOP REFRESH LOGIC 

; STORE NEW ENHANCEMENT CODE 
; STORE MASK t OR ENHANCEMENT 
; BITS NOT TO BE ALTERED 
FALL INTO DISPLAY ROUTINE 
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it 

ii 

if 

it 

ii 

ii 

ii 

ii 

:::: 

Z5SS 

sssssssssssssssss 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

it 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

it 

II 

II 

II 

II 

II 

8833 

21E9 

• 

• 

• 

****** ** **************** ************ 

8834 

21E9 

• 

• 

9 

DISPLA - 

ADD CHARACTER TO DISPLAY * 

8835 

21E9 

• 

• 

9 

.************************************ 

8836 

21E9 

• 

• 

9 



8837 

21E9 

• 

• 

9 

ENTRY: 

CURCOL f CURPOW = SCREEN POSITION WHERE 

88 38 

21E9 

• 

• 

9 


CHARACTER IS TO BE INSERTED 

8839 

21 £9 

• 

• 

9 


DCHAR = CHARACTER TO BE DISPLAYED 

8840 

2 1 £9 

• 

• 

9 


CDSPEN = MASK TO MASK OUT COMMON BITS 

8841 

21E9 

• 

• 

9 


IF DCHAR IS A DISPLAY CONTROL BYTE 

8842 

21E9 

• 

• 

9 



8843 

21 £9 

• 

• 

• 

exit : 

A = 0, NO PLACE FOR CHARACTER 

8844 

21E9 

• 

• 

• 


A « 0, CHARACTER PROCESSED 

8845 

2 1 £9 

• 

• 

• 


B = CHARACTER REPLACED IF ADDITION 

8846 

2 1 £9 

• 

• 

• 


DONE BY INSERT 

8847 

2 1 £9 

• 

• 

• 


D,£ = ADDRESS OF CHAR IN DISPLA i 

8848 

21E9 

• 

• 

• 



8849 

21 £9 

• 

• 

. DISPLA F.glJ 

$ 

8850 

2 1 £9 

3 A 

89 

FF 

LDA 

DCHAR ? GET CHAR TU BE STORED 

8851 

21 EC 

B7 

• 

• 

OhA 

A ; IS THIS ASCII CHAR? 

8852 

21ED 

F2 

9F 

22 

JP 

DIS060 /YES - CONTINUE 

8853 

21F0 

• 

• 

• 

************************************ 

8854 

21F0 

• 

• 

• 

CONTROL CODE TO BE ENTERED INTO * 

8855 

21F0 

• 

• 

• 

DATA STREAM - FIND CHAR PRECEDING * 

8856 

2 IFO 

• 

• 

• 

THIS COLUMN * 

8857 

21F0 

• 

• 

• 

************************************ 

8858 

2 1 FO 

3 A 

Cl 

FF 

LDA 

CURCOL ; GET CURRENT COLUMN NUMBER 

8859 

21F3 

3D 

• 

• 

OCR 

A ;SET FOR PREVIOUS COLUMN 

8860 

21F4 

CD 

OB 

07 

CALL 

RCADRO ;DOES LINE EXIST? 

8861 

2 1F7 

FA 

16 

OB 

JM 

MLOCK1 ;NO - SOUND BELL AND EXIT 

8862 

21FA 

• 

• 

• 

• 9 

WITH A -REGISTER = 0 

8863 

21FA 

C2 

EC 

22 

JNZ 

DIS100 ;COL BEYOND EOL - EXTEND LIN 

8864 

2 1 F D 

• 

• 

, -a************************ 

8865 

2 1FD 

• 

• 

. / PREVIOUS 

column found * 

8866 

21FD 

• 

• 

. / * *********************** 

8867 

2 1 FD 

4F 

• 

• 

MOV 

C,A ;SAVE COLUMN IN C 

8868 

21FE 

oc 

• 

• 

INR 

C / SET C TO NEXT COLUMN NUMBER 

8869 

2 IFF 

CD 

65 

10 

CALL 

CKPROT /PREVIOUS CHAR PROTECTED? 

8870 

2202 

C2 

13 

22 

JNZ 

DIS030 /NO - CONTINUE 

8871 

2205 

• 

• 

. DIS020 EQU 

$ 

8872 

2205 

IB 

• 

• 

OCX 

D /YES - SET PTR TO NEXT CHAR 

8873 

2206 

21 

C 2 

Cl 

LXI 

H f £NDPR*256+XMONLY 

8874 

2209 

CD 

AO 

IE 

CALL 

FNDCH /IS NEXT CHARACTER PROTECTED 

8875 

220C 

CA 

D4 

22 

JZ 

DTS092 /YES - LOOK FOR NEXT FIELD 

8876 

220F 

21 

Cl 

FF 

LXI 

H, CURCOL /YES - RECALL CObUMN VALUE 

8877 

2212 

4E 

• 

• 

MOV 

C,M 
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ii 

it 
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ii 

it 

ti 
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ii 

It 

H 

II 

II 

It 

II 

II 

It 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

==== 

= s= 


============ 


ii 

it 

ii 

ti 

ii 

ii 

it 

ti 

it 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

M 

ti 

ii 

ii 

ii 

ii 

8879 

2213 

. 

• 

• 

********************************** 

8880 

2213 

• 

• 

• 

Z SEARCH FOR PLACE 

FOR CHARACTER * 

8881 

2213 

• 

• 

• 

; ****** ******* ******************** 

8882 

2213 

• 

• 

• 

DIS030 EQU 

$ 


8883 

2213 

CD 

87 

OB 

CALL 

NXTCHR 

? GET NEXT CHAR 

8884 

2216 

47 

• 

• 

MOV 

B, A 

/SAVE EXISTING CHAR IN B-REG 

8885 

2217 

21 

89 

FF 

LX I 

H , DCHAR 


888b 

22 1 A 

FE 

C4 

• 

CPI 

STPFLG 

; NON-DISPLAYING TERMINATOR? 

8887 

22 1C 

CA 

3F 

22 

JZ 

0IS035 

?YE S - DELETE IT 

8888 

221F 

FE 

CC 

• 

CPI 

EOL 

; EXISTING CHARACTER AN EOL? 

8889 

2221 

7E 

• 

• 

MOV 

A,M 

; ( GET CHAR TO BE DISPLAYED 

8890 

2222 

CA 

87 

22 

JZ 

DIS050 

;YES - ADD CHARACTER TO LINE 

8891 

2225 

FE 

C4 

• 

CPI 

STPFLG 

; NON -D I SPLAYING TERMINATOR? 

8892 

2227 

CA 

D5 

1 A 

JZ 

CRI104 

;YES - INSERT TERMINATOR 

8893 

222A 

78 

• 

• 

MOV 

A ,b 

Z NO - RECALL EXISTING CHAR 

8894 

2228 

87 

• 

• 

ADD 

A 

; EXISTING CHARACTER ASCII? 

8895 

222C 

7E 

• 


MOV 

A , M 

; (GET CHAR TO BE DISPLAYED 

8896 

222D 

D2 

87 

22 

JNC 

D I SO 50 

; YES - INSERT NEW CHARACTER 

8897 

2230 

FA 

47 

22 

JM 

DIS040 

;FLAG CHAR - ADD FLAG TO DIS 

8898 

2233 

8 7 

• 

• 

ADD 

A 

Z NEW CHAR DISPLAY CONTROL? 

88 99 

2234 

FA 

13 

22 

JM 

DTSO30 

?NO - GO TO NEXT CHARACTER 

8900 

2237 

• 

• 

• 

/****************** 

************ ***** 

8901 

2237 

• 

• 

• 

Z MERGE NEW 

DISPLAY 

ENHANCEMENT * 

8902 

2237 

• 

• 

• 

; WITH CODE 

ALREADY 

IN THIS COLUMN * 

8903 

2237 

• 

• 

• 

;********** ************************* 

8904 

2237 

3 A 

77 

FE 

LOA 

COSPEN 

z get enhancement mask 

8905 

22 3 A 

AO 

• 

• 

ANA 

B 

; EXTRACT BITS TO HE SAVED 

8906 

223B 

B6 

• 

• 

ORA 

rt 

/COMBINE WITH NEW ENHANCEMEN 

8907 

223C 

C3 

75 

22 

JMP 

DIS044 

/STORE THE NEW DISPLAY CODE 

8908 

223F 

• 

• 

• 

*********************************************** 

8909 

223F 

• 

• 

• 

; im Oft -DISPLAYING TERMINATOR FOUND - DELETF IT * 

8910 

223F 

• 

• 

• 

,-****♦***************************************** 

8911 

22 3F 

• 

• 

• 

DIS035 EQU 

$ 


8912 

223F 

BE 

• 

• 

CMP 

M 

/IS NEW CHAR TERMINATOR ALSO 

8913 

2240 

C8 

• 

• 

RZ 


/YES - RETURN 

8914 

2241 

CD 

B8 

1A 

CALL 

CHRDL2 

/NO - DELETE THE CHARACTER 

8915 

2244 

C3 

13 

22 

JMP 

DIS030 

/CONTINUE SCAN 
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ti 
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8917 

2247 

• 

• 

• 

******************* 


8918 

2247 

m 

• 

• 

; FLAG CHAR 

FOUND * 


8919 

2247 

m 

• 

• 

;************♦***** 


8920 

2247 

9 

• 

9 

DTS040 EQU $ 



8921 

2247 

B8 

• 

9 

CMP B 


; IS THIS SAME FLAG CHAR? 

8922 

2248 

C 8 

• 

9 

RZ 


; YES - RETURN (A # 0) 

8923 

2249 

87 

« 

9 

ADO 

A 

; NEW CHARACTER DISPLAY CNTL? 

8924 

224 A 

IF 

• 

9 

RAR 


; (RESTORE CHARACTER) 

8 925 

224B 

F2 

78 

22 

JP 

DIS045 

,*YES - CHECK PROTECTED FIELD 

8926 

224F 

FE 

C5 

9 

CPI 

ALPHA 

; IS NEw CHAR TYPE DEFINITION 

8927 

2250 

78 

• 

• 

MOV 

A,B 

; (RECALL OLD FLAG CHAR) 

8926 

2251 

FA 

5C 

22 

JM 

DIS042 

; NO - ADD FIELD DEFINITION 

8929 

2254 

FE 

C5 

• 

CPI 

ALPHA 

; IS OLD CHAR T*PE DEFINITION 

8930 

2256 

F2 

6B 

22 

JP 

DIS043 

? YES - REPLACE THE CHARACTER 

8931 

2259 

C3 

13 

22 

JMP 

DIS030 

; NO - GO TU NEXT CHARACTER 

8932 

225C 

• 

• 

• 

************************************************ 

8933 

225C 

« 

• 

• 

; FIELD DEFINITION 

CHARACTER TO BE ADDED - PUT * 

8934 

225C 

• 

• 

• 

; AHEAD OF 

TYPE DEFINITION OR AFTER "STPR" * 

8935 

225C 

• 

• 

• 

************** ******************** ************** 

8936 

225C 

• 

• 

• 

D IS 0 4 2 EQU 

$ 


8937 

225C 

FE 

C5 

• 

CPI 

ALPHA 

; IS OLD CHAR TYPE DEFINITION 

8938 

225E 

F2 

P5 

1A 

JP 

CRI104 

; YES - INSERT FIELD OFF 

8939 

2261 

3E 

CO 

• 

M VI 

A , STPR 

; NO - STORE NEW FIELD DEF 

8940 

2263 

B8 

• 

• 

CMP 

B 

; OLD CHAR = START PROTECT? 

8941 

2264 

CA 

13 

22 

JZ 

DIS030 

; YES - LOOK TO NEXT CHAR 

8942 

22t>7 

BE 

• 

• 

CMP 

M 

?IS NEw CHAR A STPR? 

8943 

2268 

CA 

05 

1A 

JZ 

CRI 104 

; YES - INSERT BEFORE UNPROTC 

8944 

226B 

* 

• 

• 

; ****** ************************ ******* 

8945 

226B 

• 

• 

• 

; REPLACE EXISTING 

DISPLAY CHARACTER * 

8946 

226B 

• 

9 

9 

************************************** 

8947 

226B 

• 

9 

9 

DIS043 EQU 

$ 


8948 

2266 

1A 

9 

9 

LDAX 

0 

j PUT EXISTING CHARACTER INTO 

8949 

226C 

47 

9 

• 

MOV 

B, A 

; B-REG FOR SOFT KEY CHECK 

8950 

226D 

3 A 

89 

FF 

LDA 

UCHAR 

; GET CHAR TO BE DISPLAYED 

8951 

2270 

21 

6C 

FF 

LXI 

h , SPOWL 

;CHECK AGAINST SPOW LATCH 

8952 

2273 

BE 

9 

• 

CMP 

M 

; INPUT = SPACE AND SPOW SET? 

8953 

2274 

C8 

9 

• 

RZ 


J YES - RETURN (A * 0) 

8954 

2275 

• 

9 

• 

DIS044 EQU 

$ 


8955 

2275 

12 

9 

9 

STAX 

D 

? STORE THE NEW CHARACTER 

8956 

2276 

3C 

9 

9 

INR 

A 

; FORCE A » 0 

8957 

2277 

C9 

• 

9 

RET 


; RETURN 



ITEM 

^8959 

8960 

8961 

8962 

8963 

8964 

8965 

8966 

8967 

8968 

8969 

8970 

8971 

8972 

8973 

8974 

8975 

8976 
897 1 

8978 

8979 

8980 

8981 

8982 

8983 

8984 

8985 
*986 

>6987 

8988 


13255-90003 


LOC 

2278 

2278 

2278 

2278 

2278 

2278 

2279 
227B 
227E 
2281 
2284 
2287 
2287 
2287 
2287 
2287 

2287 

2288 
228B 
228E 

2290 

2291 

2293 

2294 

2295 

2295 

2296 

2297 
229 A 
229C 


OBJECT 

CODE 

SOURCE STATEMENTS 

=== 

sss = 

ti 

ii 

ii 

ii 

ti 

ii 


sssss:; 

• 

• 

• 


• 

• 

• 

; FLAG CHAR 

FOUND 

• 

• 

• 

; DISPLAY CONTROL 

• 

• 

• 

;***************** 

• 

• 

• 

DIS045 EQU 

$ 

78 

• 

• 

MOV 

A, 6 

FE 

CO 

• 

CPI 

STPR 

C2 

13 

22 

JNZ 

DIS030 

CD 

76 

19 

CALL 

CHKFMS 

CA 

13 

22 

JZ 

DIS030 

C 3 

05 

22 

JMP 

DIS020 
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AND 
TO BE 


ADDED 


• 

• 

• 

jim*****^***# ****** 

• 

• 

• 

; ascii op 

EGL FOUND 

• 

• 

• 

; MERGE NEW DISPLAY 

• 

• 

• 

;********** ********* 

• 

• 

• 

DIS050 EQU 

$ 

87 

• 

• 

ADD 

A 

FA 

95 

22 

JM 

DIS054 

3A 

77 

FF 

LDA 

CDSPEN 

?E 

C6 

9 

M V 1 

L „ LSTDCD 

A6 

• 

• 

ANA 

M 

2E 

89 

• 

M V I 

L ,, DCHAR- 

Bb 

• 

• 

ORA 

M 

7 7 

• 

• 

MOV 

M, A 

• 

• 

• 

DIS054 EOIJ 

$ 

78 

• 

• 

M U V 

A,B 

B7 

• 

• 

ORA 

A 

F2 

D5 

1A 

JR 

CR] 104 

OE 

00 

• 

M V I 

c,o 

C 3 

01 

23 

JMP 

DIS110 


; RECALL EXISTING CHARACTER 
; BEGINNING A PROTECTED FIELD 
;NO - MOVE TO NEXT CHAR 

;format mode? 

;N0 - ADD CHAR TO DISPLAY 
7YES - LOOK FOR NEXT FIELD 


CONTROL IF NECESSARY 


;NEW CHAR DISPLAY CONTROL? 
;NO - ADD CHAP TO DISPLAY 
;YES - GET MASK 
-BASE ? GET LAST ENHANCEMENT 
; EXTRACT BITS TO BE SAVED 


JCOMBINE 
; STORE 


WITH NEW ENHANCEMEN 


WAS CHAR ASCII? 


7YES - DU 
;NO - ADD 


INSERT 

SINGLE 


CHAR 



13255-90003 
ITEM LDC 

8990 229F 

8991 229F 

8992 229F 

8993 2 2 9 F 

8994 229F 

8995 229F 

8996 22A2 

8997 22A5 

8998 22A5 

8999 22A8 

9000 22A9 

9001 2 2 AC 

9002 2 2 AC 

9003 22 AC 

9004 22 AC 

9005 22 AC 

9006 2 2 AE 

9007 22b 1 

9008 22b4 

9009 2 2 B 4 

9010 2 2 B 4 

9011 22b4 

9012 2264 

9013 22B4 

9014 2 2 o 7 

9015 2268 

9016 22BB 


Rev AUG-01 -76 

OBJECT CODE SOURCE STATEMENTS !L«!L- 

; ********* ********************** ****** **** 

] 1 * ; ENTER ASCII CHARACTER INTO DATA STREAM * 


• 

• 

• 

;***************************************** 



• 

DSP A SC FQU $ 


• 

m 

• 

DIS060 EyU $ 


CD 

0 8 

07 

CALL RCADDR 

; GET MEMORY ADDRESS 

CA 

BE 

22 

JZ DIS08G 

; CHAR FOUND BY RCADDR 

• 

• 

• 

DISPLO EOU $ 


FA 

B4 

22 

JM DIS070 

; RET URN IF LINE NOT BUILT 

OD 



DCR C 


C2 

EC 

22 

JNZ D1S100 

; MURE THAN ONE CHAR NEEDED 

• 

# 

• 

;******************************** 

• 

• 

• 

; SINGLE CHARACTER 

REQUIRED * 

• 

• 

• 

; CHECK FOR LAST COLUMN OF LINE * 




;**************** ******** ******** 

FE 

4F 

• 

CPI MAXCOL 

; COMP ARE WITH MAX COLUMN 

C2 

01 

23 

JNZ D1S110 

; NOT MAXIMUM COLUMN 

C 3 

CE 

22 

JMP DIS090 


• 

• 

• 

. ******************************** 

• 

• 

• 

; LINE NOT BUILT 

* 

• 

• 

• 

; PERFORM HOMEUP IF 

FORMAT MODE * 

• 

• 

• 

.******************************** 

• 

• 

• 

DISO/O EQU S 


CD 

7 6 

19 

CALL CHKFMS 

; FORMAT MODE? 

C8 


• 

RZ 

; NO - RETURN CA = 0) 

CD 

14 

48 

CALL ZBELL 

; YES - SOUND BELL 

C3 

E5 

22 

JMP DIS093 

; HOME UP AND TRY AGAIN 
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It 

II 

;; 

it 

ii 

it 

if 

it 

ii 

it 

if 

ti 


sss: 

ssss: 

sscssssssssssssssss: 


ITEM 

LUC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 269 

it 

it 

IS 

it 

it 

ti 



::s; 


;sssss:s:sssc::s33:s 

ii 

ti 

ii 

ii 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

11 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

il 

II 

9018 

22BE 

• 

• 

• 

; *******^*** ************* 

9019 

22BE 

• 

• 

• 

? CHARACTER REPLACEMENT * 

9020 

22BE 

• 

• 

• 

.************************ 

9021 

226E 

• 

« 

• 

0IS080 EQU $ 


9022 

226E 

4F 

• 

• 

MOV C,A 

f SAVE COLUMN IN C 

9023 

226F 

3 A 

F 4 

FF 

LDA MDFLG1 

; GET TERMINAL MODE FLAGS 

9024 

22C2 

£6 

02 

• 

ANI INSCHR 

; IN CHARACTER INSERT MODE? 

9025 

22C4 

CA 

CE 

22 

JZ DIS090 

f NO - ADD CHARACTER TO DISPL 

902t> 

22C7 

3 A 

90 

FF 

LOA EOLMV 

; YES - GET EOL SHIFTED FLAG 

9027 

22CA 

B7 

• 

• 

ORA A 

; HAS LINE BEEN EXTENDED? 

9028 

22CB 

CA 

CF 

1A 

JZ CR1100 

f NO - PERFORM INSERT CHAR 

9029 

22CE 

• 

• 

• 

DIS090 EQU $ 


9030 

22CE 

CO 

65 

10 

CALL CKPROT 

?CUFSOR IN PROTECTED FIELD? 

9031 

2201 

C2 

60 

22 

JNZ DIS043 

; NU - STORE THE CHARACTER 

9032 

2204 


m 

• 

OIS092 EQU $ 


9033 

2204 

CD 

A6 

12 

CALL OCXB2D 

; DATA COMM OR I/O BUFF CHAR? 

9034 

2207 

CC 

14 

48 

CZ ZiBELL 

;NO - SOUND THE BELL 

9035 

22DA 

3 A 

89 

FF 

LDA uCHAft 

; GET CHAR TO BE DISPLAYED 

9036 

22DD 

B7 

• 

• 

ORA A 

?IS IT A CONTROL CHARACTER? 

9037 

22DE 

F8 

• 

• 

RM 

;YES - DON'T TAB (RETURN A#0 

9038 

22DF 

CO 

C4 

10 

CALL FLDSR 

;NO - TAB TO NEXT FIELD 

9039 

22E 2 

C2 

E9 

21 

JNZ DISPLA 

? JUMP IF FIELD FOUND 

9040 

22E5 

• 

• 

• 

0IS093 EQU $ 


9041 

22E5 

CD 

2C 

10 

CALL CURPH1 

; AN Y FIELDS IN DISPLAY? 

9042 

22E8 

C2 

E9 

21 

JNZ OISPLA 

; YES - ADD CHARACTER TO FI EL 

9043 

22EB 

C9 

• 

• 

RET 

; NO - RETURN (A # 0) 



13255-90003 Rev AUG-01-76 


>1 

II 

II 

•1 

!! 

II 

II 

it 

it 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

ii 
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11 

H 

II 
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II 
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II 
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If 

II 

U 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

II 

9045 

2260 

• 

• 

• 


;******♦****************************************** 

904o 

22EC 

• 

• 

• 


LINE MUST 

BE EXTENDED TO ACCOMODATE CHARACTER * 

9047 

22EC 

• 

• 

• 


t - EXTEND TU ONE COLUMN BEFORE DESIRED COLUMN * 

9040 

22EC 


• 

• 


*********4 *************************************** 

9049 

22EC 

• 

• 

• 





9050 

22EC 

• 

• 

• 


ENTRY: 

C = NUMBER 

OF CHARACTERS REQUIRED 

9051 

22EC 

* 

• 

• 





9052 

2 2 EC 

• 

• 

• 

DIS1O0 Fyu 

$ 


9053 

22EC 

OD 

• 

• 


DCR 

C 

? MORE THAN ONE CHAR TO ADD? 

9o54 

22EO 

C 2 

01 

23 


J N Z 

DlStlO 

; NO - ADD MULTIPLE CHARACTER 

9055 

22F0 

CO 

65 

10 


CALL 

CKPRQT 

;CURSOR IN PROTECTED FIELD? 

9056 

22F3 

CA 

04 

2 2 


JZ 

DIS092 

;yes - tab to next field 

9057 

22F6 

21 

9B 

FF 


LXI 

H, NCHAR 

; Nu - SET "NCHAR" TO STORE 

9058 

22F9 

36 

01 

• 


M V I 

M, 1 

; BLANK OVER EOL (I.E., 

9059 

22EB 

• 

• 

• 




MAKE DISPLAY ROUTINE 

9060 

2 2FB 

• 

• 

• 




THINK MORE THAN ONE 

9061 

2 2 F B 

• 

• 

• 




CHARACTER BEING ADDED) 

9062 

22FB 

CD 

B7 

08 


CALL 

DISPL2 

; EXTEND LINE BY ONE CHARACTE 

9063 

22FF 

C 3 

OA 

23 


JtoP 

DIS1 14 

/CHECK MEMORY LOCKED 

9064 

2 301 

• 

• 

• 

i 




9065 

23ol 

• 

• 

• 

DIS110 EQU 

$ 


9066 

2301 

CD 

65 

10 


CALL 

ckprot 

/CURSOR IN PROTECTED FIELD? 

9067 

23o4 

CA 

04 

22 


JZ 

DIS092 

/YES - TAB TO NEXT FIELD 

9068 

2307 

CD 

AB 

08 


CALL 

DISPL1 

/NO - EXTEND LINE 

9069 

2 30 A 

• 

• 

• 

DISt 14 EoU 

$ 


9070 

230A 

B7 

• 

• 


ORA 

A 

/ MEMORY LOCKED? 

9071 

2 30B 

C8 

• 

• 


RZ 


/YES - RETURN FAIL (A s 0) 

9072 

230C 

3 A 

9B 

FF 


LD A 

NCHAR 

/GET ft OF CHARACTERS ADDED 

9073 

230F 

3u 

• 

• 


DCR 

A 

/SINGLE CHARACTER ADDED? 

9074 

2310 

F2 

E9 

21 


JR 

DISPLA 

/NO • TRY TO STORE AGAIN 

9075 

2313 

C9 

• 

• 


RET 


/YES - STORE DUNE BY DISPLAY 

9076 

2314 

• 

• 

• 

• 

# 



(A ft 0) 
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9078 

2314 

• 

• 

• 





9079 

2314 

• 

• 

• 


* * * * ♦ 

* * * * 

************** 

9080 

2314 

• 

• 

• 





9081 

2314 

• 

• 

• 


DSPTST - 

DISPLAY 

TEST PATTERN 

9082 

2314 

• 

• 

• 





9083 

2314 

• 

• 

• 


ENTRY 

: A = 

CHARACTER TO BE DISPLAYED 

9084 

2314 

• 

• 

• 





9085 

2314 

• 

• 

• 


EXIT 

: A , B , 

C,D,E,L DESTRUYED 

9U86 

2314 

• 

• 

• 





9087 

2314 

• 


• 

DSPTST EQU $ 



9088 

2314 

32 

89 

FF 


SI A 

OCHAR 

?PUT CHAR IN DISPLAY BUFFER 

9089 

2317 

CD 

OF 

17 


CALL 

SETDFO 

; SET DATA COMM INPUT FLAG TO 

9090 

231 A 

• 

• 

• 




INHIBIT BELL ON FIELD SKIP 

9091 

2 3 1 A 

• 

• 

• 


' 



9092 

23 1 A 

• 

• 

* 

i 

DSPCHR - 

DISPLAY 

CHARACTER IN DCHAR 

909 3 

231A 

• 

• 

• 


’ 



9094 

2 3 1 A 

• 

• 

• 

DSPCHR EQU 

$ 


9095 

23 1 A 

21 

05 

20 


LX1 

H,CURADV ? SET NORMAL EXIT ROUTINE 

9096 

2 3 1 D 

• 

• 

• 

DSPCHO EQU 

$ 


9097 

23 ID 

E5 

• 

• 


push 

H 

;SAVE NORMAL EXIT ROUTINE 

9098 

23 1 E 

CD 

9F 

22 


CALL 

DSPASC 

? ADD ASCII CHAR TO DISPLAY 

9099 

2321 

B7 

• 

• 


ORA 

A 

; CHARACTER DISPLAYED? 

9100 

2322 

CA 

50 

23 


J l 

DC H 1 00 

; NU - DON'T MOVE CURSOR 

9101 

2325 

• 

• 

• 

• 

9 


FALL INTO DISPLAY ROUTINE 
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ii 

ii 

it 

ti 

ii 

it 

ii 



==== 



ZZZZSZZZZZZZZZZZZZZZZZZZSZSZZZ 

9103 

2325 

CD 

76 

19 

CALL 

CHKFMS 

; FORMAT/SOFT KEY DEFINE MODE 

9104 

2328 

C8 

• 

• 

RZ 


;NQ - DO NORMAL EXIT 

9105 

2329 

CD 

A6 

12 

CALL 

DCXB2D 

?DATA COMM OR I/O BUFF CHAR? 

9106 

232C 

CO 

• 

. 

RNZ 


; NO - DO NORMAL EXIT 

9107 

232D 

3 A 

89 

FF 

LD A 

DCHAR 

; GET CHARACTER DISPLAYED 

9108 

2330 

2A 

86 

FF 

LttLD 

CHKRTN 

7 NO - GET CHECK ROUTINE ADDR 

9109 

2333 

Cl 

• 

• 

RST 

;rstjmp 

IS IT A VALID CHARACTER? 

9110 

2334 

C8 

• 

• 

RZ 


! YES - DO NORMAL EXIT 

9111 

2335 

FI 

m 

• 

POP 

PSW 

; NO - POP OFF NORMAL EXIT AD 

9112 

2336 

• 

m 

• 

• 

f 



9113 

2336 

• 

m 

• 

; FIELD CHECK ERROR 

- LOCK UP UNTIL BACKSPACE HIT 

9114 

2336 

• 

• 

• 




9115 

2336 

a f 

• 

• 

XRA 

A 

;CLEAR OUT INPUT CHARACTER 

9116 

2337 

32 

9C 

FF 

Si A 

CHARIN 

;TO KILL FUNCTION KEYS 

9117 

233 A 

• 

• 

• 

DCH010 EQU 

$ 


9118 

233 A 

CD 

14 

48 

CALL 

ZBELL 

? SOUND BELL 

9119 

2 33D 

. 

• 

• 

DCH020 EQU 

$ 


9120 

233D 

CD 

8b 

15 

CALL 

10CTMN 

; MONITOR THE TAPE DRIVES 

9121 

2340 

CD 

05 

48 

CALL 

ZGETKY 

;AwY KEY HIT? 

9122 

2343 

C 2 

3D 

23 

JNZ 

DC H 0 2 0 

; NO - CONTINUE WAITING 

9123 

2346 

FE 

00 

• 

CPI 

CR 

; IS IT 1 HE RETURN KEY? 

9124 

2348 

C2 

3A 

23 

JNZ 

DCH010 

?NO - SOUND BELL, TRY AGAIN 

9125 

234B 

3E 

09 

• 

M V I 

A , STPRPT 

;YES - STOP RETURN KEY 

9126 

234D 

C3 

08 

48 

JMP 

ZKBCI'L 

; FROM REPEATING AND EXIT 

9127 

2350 

• 

• 

• 

;*******¥***♦*******♦*********#*♦♦********* 

9128 

2350 

• 

• 

• 

; CHARACTER 

NOT DISPLAYED - SOUND BELL IF * 

9129 

2350 

• 

• 

• 

; CHARACTER FROM KEYbOARD * 

9130 

2350 

• 

• 

• 

;*************f*********4**************:**** 

9131 

2350 

• 

• 

• 

DCH100 egu 

$ 


9132 

2350 

El 

• 

» 

POP 

H 

7 PUP OFF NORMAL EXIT ROUTINE 

9133 

2351 

• 

• 

• 

DSPCH1 E QU 

$ 


9134 

2351 

CD 

Ao 

12 

CALL 

DCXB2D 

? INPUT FROM KEYBOARD 

9135 

2354 

CA 

14 

48 

JZ 

ZBELL 

;YES - SOUND BELL AND EXIT 

9136 

2357 

C9 

• 

• 

RET 


; NO - RETURN ONLY 
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9130 

2358 

• 

• 

9 

f ******************************************** 

9139 

2358 

• 

• 

9 

EXPAND - 

EXPAND DISPLAY CONTROL TO ESCAPE * 

9140 

2358 

• 

9 

9 

SEQUENCE 

* 

9141 

2358 

9 

• 

9 

;*♦ *********************** ******************* 

9142 

2358 

9 

• 

• 




9143 

2358 

• 

• 

9 

ENTRY: 

A,C = DISPLAY CONTROL BYTE 

9144 

2358 

9 

• 

9 




9145 

2358 

9 

• 

9 

EXIT : 

H = BASEH 


9146 

2356 

9 

• 

9 


A,B,L DESTROYED 

9147 

2358 

• 

9 

9 




9140 

2358 

9 

• 

. EXPAND EQU 

S 


9149 

2358 

CD 

05 

26 

CALL 

IN1TD1 

? INITIALIZE CHAR BUFFER PTRS 

9150 

235B 

87 

• 

9 

ADD 

A 

;IS CHAR DISPLAY CONTROL? 

9151 

2 35C 

IF 

• 

9 

RAR 


; (RESTORE CHARACTER) 

9152 

2 35D 

FA 

AC 

23 

JM 

EXP100 

;NO - EXPAND FORMAT CONTROL 

9153 

2360 

21 

76 

FF 

LXI 

H , ENriOUT 

; YES - COMPARE TO PREVIOUS 

9154 

2363 

AE 

9 

9 

XR A 

rt 

; AN Y CHANGES? 

9155 

2364 

C8 

9 

9 

R2 

! 

NU - RETURN IMMEDIATELY 

915b 

2365 

E6 

OF 

9 

AN I 

1 10 

CHANGE IN ENHANCEMENT? 

9157 

2367 

CA 

7t 

23 

J2 

EXP010 

; NO - CHECK NEw CHARACTER SE 

9158 

236A 

06 

26 

• 

MV I 

6,AMPSND 

; YES - OUTPUT ENHANCEMENT 

9159 

2 3oC 

CD 

BA 

13 

C ALL 

ecoure 

; ESCAPE SEQUENCE: 

9160 

236F 

3E 

64 

9 

MV I 

a,smalld 

; <£SC>-<&>-<LOWER CASE D> 

9161 

237 1 

CD 

CO 

13 

CALL 

A2UUTB 


9162 

2374 

79 

9 

9 

MOV 

A,C 

; COMPUTE ENHANCEMENT 

9163 

2375 

E6 

OF 

9 

ANI 

1 7 Q 

? PARAMETER (3-0) 

9164 

2377 

F6 

40 

9 

Uhl 

1 OOQ 

? ADJUST TO ASCII LETTER 

9165 

2379 

CD 

CO 

13 

CALL 

A20UTB 

; PUT IT INTO OUTPUT BUFFER 

9166 

237C 

2E 

76 

9 

M V I 

L , ENHOUT- 

BASE ? CHECK CHARACTER SET 
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9168 

237E 

• 

• 

• 

• 

9 



9169 

237E 

• 

• 

• 

; CHECK FOR CHARACTER SET CHANGE 

9170 

2 37E 

• 

• 

• 

# 

9 



9171 

23/E 

• 

• 

• 

EXP010 EQU 

$ 


9172 

237E 

79 

# 

• 

MOV 

A,C 

? RECALL CURRENT SETTING 

9173 

237F 

AE 

• 

• 

XRA 

M 

/COMPARE TO PREVIOUS VALUE 

9174 

2380 

E6 

30 

• 

ANI 

600 

/ANY change in CHAR SET? 

9175 

2382 

71 

« 

• 

MOV 

M,C 

/(SAVE NEW SETTING) 

9176 

2383 

C 8 

• 

• 

RZ 


/NO - RETURN 

9177 

2384 

79 

• 

• 

MOV 

A,C 

/YES - RECALL NEW SETTING 

9178 

2385 

Efa 

30 

• 

AN T 

600 

/RETURN TO BASE SET? 

9179 

2387 

CA 

A7 

23 

JZ 

EXP030 

/YES - SEND SHIFT IN (SI) 

9180 

23dA 

2E 

75 

• 

MV I 

L, CALTST-BASE /IS IT THE SAME 

9181 

238C 

RE 


• 

CMP 

M 

/ALTERNATE CHAP SET 

9182 

238D 

CA 

A 2 

23 

JZ 

EXP020 

/YES - SEND SHIFT OUT ONLY 

9183 

2390 

77 

• 

• 

MuV 

M , A 

/NO - SAVE NEW ALTERNATE 

9184 

2391 

• 

• 

• 

• 

9 



9185 

2391 

• 

• 

• 

z generate 

ESCAPE 

SEQUENCE FOR ALTERNATE 

9186 

2391 

• 

• 

m 

; CHARACTER SET 

SPEC I t TER 

9187 

2391 

« 

• 

• 

« 

9 



9188 

2391 

06 

29 

• 

MV I 

6 , ARPARN ? OUTPUT <ESC> 

9189 

2393 

CO 

BA 

13 

CALL 

ECOUTB 

/ <RIGHT PARENTHESIS> 

9190 

2396 

79 

. 

• 

MOV 

A , C 


9191 

2397 

E6 

30 

• 

ANI 

600 

/COMPUTE ALTERNATE CHARACTER 

9192 

2399 

OF 

• 

• 

RRC 


/SET PARAMETER 

9193 

2 39 A 

OF 

• 

• 

RRC 



9194 

239B 

OF 

• 

• 

RRC 



9195 

2 39C 

OF 

• 

• 

RRC 



9196 

239D 

C6 

40 

• 

ADI 

1000 


9197 

2 39F 

CO 

CO 

13 

CALL 

A2UUTB 

/SEND IT 

9198 

23A2 

• 

• 

• 

9 



9199 

2 3 A2 

• 

• 

« 

EXP020 EQU 

$ 


9200 

23A2 

3E 

OE 

• 

M V I 

A, SO 

/SEND SHIFT OUT (SO) 

9201 

23A4 

C 3 

CO 

13 

JMP 

A20UTB 

/AND RETURN 

9202 

23A7 

• 

• 

• 

9 



9203 

23A7 

• 

• 

• 

EXP030 EOU 

$ 


9204 

23A7 

3E 

OF 

• 

MV I 

A, SI 

/SEND SHIFT IN 

9205 

2 3 A9 

C3 

CO 

13 

JMP 

A20UTB 

/AND RETURN 
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9207 

2 3 AC 

• 

• 

• 

9 



9208 

23AC 

• 

• 

• 

; EXPAND ON FORMAT 

CONTROL 

9209 

2 3 AC 

• 

• 

• 

• 

9 



9210 

2 3 AC 

• 

• 

• 

EXP100 EQU 

$ 


9211 

2 3AC 

FE 

C2 

• 

CPI 

XMONLY 

? TRANSMIT ONLY CONTROL? 

9212 

23AE 

06 

7B 

• 

MV I 

b , LFTBRC 

; (SET FOR LEFT BRACE) 

9213 

2360 

CA 

BA 

13 

J Z 

ECOUTB 

f YES - OUTPUT AND EXIT 

9214 

2363 

F2 

C2 

23 

JP 

EXP110 

; TYPE DEF - OUTPUT NUMBER 

9215 

2366 

FE 

Cl 

• 

CPI 

ENDPR 

; END PROTECT? 

921o 

2 368 

06 

56 

• 

MV1 

6 rLFXBKT 

; ( SET FOR LEFT BRACKET - [ 

9217 

2 36A 

CA 

BA 

13 

JZ 

ECOUTB 

;YES - OUTPUT AND EXIT 

9218 

2 3BD 

04 

• 

• 

INR 

B 

; NO - ALTER CHAR TO RIGHT 

9219 

23BE 

04 

• 

• 

I NR 

B 

; BRACKET AND OUTPUT IT 

9220 

2 3BE 

C 3 

BA 

13 

JMP 

ECOUTB 


9221 

23C 2 

• 

• 

• 

• 

9 



9222 

2 3C2 

• 

• 

• 

? TYPE DEFINITION - 

OUTPUT NUMERIC TERMINATOR 

9223 

23C2 

• 

• 

• 

} 



9224 

23C2 

• 

• 

• 

EXP 110 EQU 

$ 


9225 

2 3C2 

FE 

C8 

• 

CPI 

SFKYAT 

;IS CODE VALID? 

9226 

23C4 

06 

7F 

• 

MV I 

B r ADEL 

; (SET DEL CHAR FOP INVALID 

922 7 

23C6 

F 2 

BF 

13 

JP 

B20UTB 

;N0 - RETURN DEL CHARACTER 

9228 

23C9 

FE 

C3 

• 

CPI 

FILL 

; FILL CODE? 

9229 

23CB 

CA 

BF 

13 

JZ 

820UTB 

; YES - RETURN DEL CHARACTER 

9230 

2 3CE 

06 

8F 

• 

SUI 

ALPHA-6- 

ZERO ; COMPUTE ASCIT DIGIT 

9231 

2300 

47 

• 

• 

MOV 

B , A 

; PUT CHARACTER INTO B-REG 

9232 

23D1 

C 3 

RA 

13 

JMP 

ECOUTB 

? OUTPUT THE ESCAPE SEQUENCE 
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ii 
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it 
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ii 
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9234 

2 3D4 

• 

• 

• 

/ 



9235 

2304 

• 

• 

• 

; GET DISPLAY DATA 


9236 

2304 

* 

• 

• 

• 

9 



9237 

2304 

• 

« 

• 

GDS010 EQU 

$ 


9238 

23D4 

CD 

8C 

19 

CALL 

CHKSFK 

; SOFT KFY MODE? 

9239 

2307 

CA 

70 

24 

JZ 

GDS050 

/NO - DO NORMAL PROCEDURE 

9240 

2 30 A 

3 A 

CU 

FF 

LDA 

CURROW 

; YES - GET CURSOR RO* 

9241 

23DD 

. FE 

10 

• 

CPI 

SFI’END 

; BEYOND SOFT KEY DATA? 

9242 

2 3DF 

F2 

BB 

24 

JP 

GDSlbO 

;YES - RETURN END OF DISPLAY 

9243 

23E2 

OF 

. 

• 

RRC 


; IN ATTRIBUTE ROw? 

9244 

23E3 

DA 

3C 

24 

JC 

GDS030 

; NO - OUTPUT DISPLAY DATA 

9245 

23E6 

Oo 

2b 

• 

MV I 

B , AMPSND 

/ YES - START ESCAPE SEQUENCE 

9246 

23E8 

CD 

05 

2b 

CALL 

IN1TD1 

?INTT OUTPUT BUFFER POINTERS 

9247 

2 3EB 

CO 

BA 

13 

CALL 

ECOUTB 

; SEND <FSC>-<&> 

9248 

2 3 EE 

3 E 

6b 

• 

MV I 

A , SMALLF 

?<LOWER CASE F> 

9249 

23E0 

CO 

CO 

13 

call 

A2UUTB 


9250 

2 3F3 

3A 

CO 

FE 

LDA 

CURROW 


9251 

23F6 

OF 

• 

• 

RkC 


; <KEY NUMBEP> 

9252 

23F7 

3C 

« 

• 

INR 

A 


9253 

2 3F8 

Fb 

30 

• 

OR I 

ZERO 


9254 

2 3 F A 

CD 

CO 

13 

CALL 

A20UTB 


9255 

2 3FD 

3E 

6B 

• 

MV I 

A , SMALLK 

; <LOWER CASE K> 

925o 

23FF 

CD 

CO 

13 

CALL 

A20UTB 


9257 

2402 

2A 

C9 

FF 

LHLD 

LSILIN 

; GET ADDRESS OF CURRENT 

9258 

2405 

70 

• 

• 

MOV 

A , L 

/line 

9259 

2406 

D6 

08 

• 

SOI 

ATBLOC 

? COMPUTE LOCATION OF 

9260 

24o8 

6F 

• 

• 

MOV 

L , A 

? ATTRIBUTE CUDE 

9261 

2409 

7E 

• 

• 

MOV 

A , M 

? GET ATTRIBUTE COPE 

9262 

240A 

Ob 

30 

• 

MVI 

B , ZERO 

/COMPUTE ATTRIBUTE CODE: 

9263 

240C 

FE 

4E 

• 

CPI 

N 


9264 

24uE 

CA 

18 

24 

JZ 

GDS020 

/ 0 = NORMAL 

9265 

2411 

04 

• 

• 

INR 

B 

/ 1 = LuCAL ONLY 

926b 

2412 

FE 

4C 

• 

CPI 

L 

/ 2 = TRANSMIT ONLY 

926 / 

2414 

CA 

18 

24 

JZ 

GDS020 


9268 

2417 ' 

04 

• 

• 

INR 

b 


9269 

2418 

• 

» 

• 

GDS020 EQU 

$ 


9270 

2418 

CD 

BE 

13 

CALL 

B20UTB 

/OUTPUT ATTRIBUTE CODE 

9271 

24 1 B 

3E 

61 

• 

MVI 

A f SMALL A 


9272 

24 ID 

CD 

CO 

13 

CALL 

A20UTB 

/OUTPUT <LOWER CASE A> 

9273 

2420 

3E 

10 

• 

MVI 

A , FRSOUT 

/SET FLAG TO INDICATE FIRST 

9274 

2422 

CO 

39 

17 

CALL 

SETMF 2 

/SOFT KEY DATA OUT 

9275 

2425 

CD 

C4 

ID 

CALL 

FLDSR 

/LOCATE THE DATA FIELD 

9276 

2428 

E8 

• 

« 

XCHG 



9277 

2429 

2 / 

73 

FF 

SHLD 

GF.TAOR 

/SAVE FIRST CHAP ADDRESS 

9278 

242C 

• 

• 

• 

• 

9 


RESTART "GETDSP" TO OUTPUT 

9279 

242C 

• 

• 

• 

♦ 

9 


FIRST SOFT KEY CHAR 
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9281 

2420 

• 

• 

• 




9282 

242C 

• 

• 

• 

* * * * * 

* 

*********** ******* 

9283 

2420 

• 

• 

• 




9284 

2420 

• 

• 

• 

GETDSP - 

GET A CHARACTER FROM DISPLAY 

9285 

2420 

• 

• 

* 




9286 

2420 

• 

• 

* 

ENTRY: 

CURADR = ADDP OF DISPLAY BYTE 

9287 

2420 

• 

• 

• 



CURCOL = COLUMN OF NEXT BYTE 

9288 

2420 

• 

• 

• 




9289 

2420 

• 

• 

• 

EXIT 

« 

« 

NC - CHARACTER FOUND 

9290 

2420 

• 

• 

• 



A = CHARACTER 

9291 

2420 

• 

• 

• 



GETADR, CURCOL UPDATED 

9292 

2420 

• 

• 

• 



0 - NO character 

9293 

2420 

• 

• 

• 



M - END OF DISPLAY 

9294 

2420 

• 

• 




Z - END OF FIELD 

9295 

2420 

• 

• 

• i 



P,NZ - END OF LINE 

929t> 

2420 

• 

• 

• 



B-L DESTROYED 

9297 

2420 

* 

• 

• 




9298 

24 20 

• 

• 

• C 

SETDSP EQU 

$ 


9299 

2420 

21 

30 

EF 

LX I 

H 

# B2DPTR ; GET EXPANSION BUFFER 

9300 

242F 

7E 

• 

• 

MOV 

A 

,M ? POINTER 

9301 

2430 

2B 

« 

• 

DC X 

Hi 

;SET ADDRESS TO END POINTER 

9302 

2431 

BE 

* 

• 

CMP 

h 

; BUFFER EMPTY ? 

9303 

2432 

CA 

D4 

23 

JZ 

GDSOiO ? YES - GET BYTE FROM DISPLAY 

9304 

2435 

2C 

• 

• 

INR 

L 

;Nu - INCREMENT POINTER AND 

9305 

2436 

30 

• 

• 

INR 

A 

; STORE IT 

9306 

2437 

77 

• 

• 

MOV 

Mi 

f A 

9307 

2438 

6F 

• 

• 

MOV 

L 

f A ;SET BUFFER ADDRESS 

9308 

2439 

7E 

• 

• 

MOV 

A 

,M ; GET THE DATA BYTE 

9309 

243 A 

B7 

• 

• 

ORA 

A 

;SET C s FALSE 

9310 

243B 

09 

• 

• 

RET 


; RETURN CHARACTER FOUND 



3255- 

90003 

Rev 

AUG-01 

-7 6 v 




ITEM 

LOC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 278 

9312 

243C 

• 

• 

• 

• 

9 




9313 

243C 

• 

« 

• 

/ GET 

SOFT 

KEY DATA 


9314 

243C 

• 

• 

• 

• 

9 




9315 

243C 

• 

• 

• 

GDS030 

E^U 

S 


9316 

24 3C 

21 

6F 

FF 


LXI 

H , MFLGS2 

/ GET MODE FLAGS 

9317 

2 4 3 F 

7 E 

• 

• 


MOV 

A , M 

; mask out firsi output flag 

9318 

2440 

E6 

EF 

• 


ANT 

37 7 0-FRSOUi 

9319 

2442 

BE 

• 

• 


CMP 

M 

;fxrst DATA? 

9320 

2443 

CA 

70 

2 4 


JZ 

GDS050 

/ NO - GET NEXT DATA 

9321 

2446 

77 

• 

• 


MUV 

M , A 

;YtS - UPDATE FLAG 

9322 

2447 

CD 

05 

26 


CALL 

1NITD1 

; INITIALIZE CHAR BUFFER PTRS 

9323 

2 44 A 

2 A 

73 

FF 


LHLD 

GETADP 

; LOCATE END OF LINE 

9324 

24 4D 

E'B 

* 

• 


XCHG 


; PUT START ADDRESS IN D , E 

9325 

2 44E 

3E 

4F 

• 


MVI 

A , MAXCOL 

? SEARCH TO END OF LINF 

9326 

2460 

CD 

58 

IF 


CALL 

FNDLSO 

; ANY "EOL" IN DATA LINE? 

9327 

2453 

3E 

50 

• 


MV I 

A , MAxCOL+1 

; (SET FOR NO EOL LENGTH=80 

9328 

2455 

FA 

59 

24 


JM 

GDS040 

; NO - OUTPUT VALUE MAXCOL+1 

9329 

2458 

90 

• 

• 


SUB 

B 

;YES - COMPUTE hOL LOCATION 

9330 

2459 

• 

• 

• 

GDS040 

EQU 

$ 


9331 

2459 

F5 

* 

* 


PUSH 

PSw 

;SAVE DATA LENGTH 

9332 

245 A 

21 

CO 

13 


LXI 

H t A20UTB 

; SET OUTPUT ROUTINE ADDRESS 

9333 

2450 

CD 

23 

08 


CALL 

BN2DE1 

/CONVERT AND STORE In BUFFER 

9334 

2460 

3E 

4C 

• 


MVI 

A , L 

/OUTPUT UPPER CASE L 

9335 

2462 

CD 

CO 

13 


CALL 

A20UTB 


9336 

24b5 

FI 

• 

• 


POP 

PSw 

/RECALL DATA LENGTH 

9337 

2466 

3D 

• 

• 


OCR 

A 

/DOES DATA EXIST? 

9338 

2467 

3E 

20 

• 


MVI 

A , ABLNK 

/(SET TO ADD BLANK) 

9339 

2469 

FC 

CO 

13 


CM 

A20UTB 

/NO - ADD A BLANK TO OUTPUT 

9340 

246C 

C 3 

2C 

24 


JMP 

GE1DSP 

/OUTPUT LENGTH PARAMETER 
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ti 

*9342 

2 4bF 


• 

« 

• 

9 




9343 

246F 

• 

• 

• 

} GET 

NEXT 

BYTE FROM 

DISPLAY 

9344 

246F 

• 

• 

• 

• 

9 




9345 

246F 

« 

• 

• 

GDS045 

EQU 

$ 

; ENTRY TO SKIP TERMINATOR 

9346 

246F 

77 

• 

• 


MOV 

M, A 

; UPDATE " DFLGS M TO CLEAR 

9347 

2470 

• 

at 

• 

* 

9 



SKIP TERMINATOR FLAG 

9346 

2470 

• 

• 

• 

GDS050 

equ 

$ 


9349 

2470 

2 A 

73 

FF 


LHLD 

GETADR ? 

GET CURRENT ADDRESS 

9350 

2473 

AF 

• 

• 


XRA 

A 


9351 

2474 

b5 

• 

• 


ora 

L 

; END OF DISPLAY? 

9352 

2475 

CA 

B8 

24 


JZ 

GDS150 

; YES - TERMINATE 

9353 

2478 

• 

• 

• 

GDS060 

EQU 

$ 


9354 

24/8 

7E 

• 

• 


MOV 

A,M 


9355 

2479 

2B 

• 

• 


OCX 

H 

? DECREMENT TO NEXT BYTE 

935b 

247 A 

22 

73 

FF 


SHLD 

GETADR 

; UPDATE "GETADR" 

9357 

247D 

B7 


• 


OKA 

A 

? IS BYTE ASCII? 

9358 

24 7E 

F2 

92 

24 


JP 

GDS100 

;YES - RETURN CHARACTER 

9359 

2481 

FE 

DO 

• 


CPI 

LNKliIM 

; IS X’l A LINK? 

9360 

2483 

OA 

BF 

24 


JC 

GDS200 

; NO - PROCESS DISPLAY CONTRO 

9361 

2486 

6E 

• 

• 


MU V 

L f M 

; YES - SET MEW ADDRESS 

9362 

2467 

67 

• 

• 


MOV 

H , A 


9363 

2468 

7D 

• 

• 


MOV 

A r L 

; PUT liSB INTO A-REGISTEP 

9364 

2489 

2F 

« 



CMA 



9365 

248 A 

E6 

OF 

• 


AM 

BLKSM 

; IS IT AN END OF LINE LINK? 

9366 

24 6C 

CA 

78 

24 


JZ 

GDSObO 

; NU - CONTINUE THRU CHAIN 

9367 

246F 

C 3 

44 

25 


JMP 

GDS320 

; YES - CHECK TERM IN AXON 
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9369 

2492 

• 

« 

• 

• 

9 



9370 

2492 

• 

• 

• 

; ASCII BYTE FOUND 

- RETURN CHARACTER FOUND 

9371 

2492 

• 

m 

• 

• 

9 



937 2 

2492 

• 

• 

• 

GDS100 EQU 

$ 


9373 

2492 

47 

• 

• 

MOV 

B, A 

;SAVE THE CHARACTER 

9374 

2493 

11 

Cl 

FF 

LX I 

0 , CURCOL 


9375 

2496 

1 A 

• 

• 

LD AX 

D 

? INCREMENT CURSOR COLUMN 

9376 

2497 

3C 

• 

• 

IwR 

A 

; POSITION 

9377 

2498 

12 

• 

• 

STAX 

D 


9378 

2499 

3 2 

00 

87 

STA 

10CRCL 

? UPDATE DISPLAY CURSUR 

9379 

249C 

3 A 

04 

50 

LDA 

BLKTRM 

/GET BLOCK TERMINATOR CHAR 

9380 

249F 

Rb 

• 

• 

CMP 

b 

; IS CHAR = BLOCK TERMINATOR? 

9381 

24A0 

3e 

F7 

• 

MVI 

A , 37 7 Q-SKPTRM /(SET CLEAR FLAG) 

9382 

24A2 

CA 

AA 

24 

JZ 

GDS110 

7 YES - RETURN TERMINATION 

9383 

24A5 

CD 

01 

16 

CALL 

CLRDFL 

7 NO - CLEAR SKIP FLAG 

9384 

24A8 

78 

• 

• 

MOV 

A , 8 

; RECALL DISPLAY CHARACTER 

9385 

24A9 

C9 

• 

• 

RET 


; RETURN (NC FROM "CLRDFL") 

938b 

24AA 

• 

• 

• 

7*********** 

44 * * 444 * 4 ** 4 ** 444 ** 4 * 44 * 4 * 44 ** 4 ** 

9387 

24AA 

• 

# 

• 

; BLOCK TERMINATOR - 

check for end of line, * 

9388 

24 AA 

• 

m 

• 

; RE 1 URN END OF DISPLAY * 

9389 

24AA 

• 

• 

• 


4444444444444444444444 *** 

9390 

24AA 

• 

• 

• 

GDS110 EQU 

$ 


9391 

24 AA 

21 

6E 

FF 

LXI 

h,dflgs 

; CLEAR SKIP TERMINATOR FLAG 

9392 

24 AO 

A6 

* 

• 

ANA 

M 


9393 

24AE 

RE 

• 

• 

CMP 

M 

? WAS SKIP FLAG SET? 

9394 

24 AF 

C 2 

6F 

24 

JNZ 

GDS045 

7 YES - IGNORE TERMINATOR 

9395 

24B2 

1 A 

• 

# 

LUA A 

D 

7 NO - TERMINATE TRANSMISSION 

9396 

24B3 

F E 

50 

• 

CPI 

MAaCOL+1 

7 WAS RS IN LAST COLUMN ? 

9397 

2465 

CC 

96 

20 

CZ 

C RLE 

7 YES - DO CP,LF 

9398 

24B8 

V 

• 

• 

• 

9 



9399 

24B8 

• 

• 

• 

? return end of display 

9400 

24B8 

• 

• 

• 

f 



9401 

24B8 

• 

• 

• 

GDS150 EQU 

$ 


9402 

24B8 

CO 

20 

IE 

C ALL 

FLDSRX 

7 SET "LSI COL” TO MAXCOL+1 TO 

9403 

24BB 

• 

• 

• 

? 


FORCE LINE RE-SCAN 

9404 

2 4BB 

• 

• 

• 

GDS160 EQU 

$ 


9405 

24BB 

AF 

• 

• 

XRA 

A 

7 SET A TO -1 

9406 

24BC 

3D 

• 

• 

OCR 

A 


9407 

24BD 

37 

• 

• 

STC 


7 SET C-FLAG TRUE 

9408 

24BE 

C9 

• 

• 

RET 


/RETURN 
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s::: 

:rs: 

s=s=x 

ii 

u 

ii 

14 

11 

It 

II 

II 

II 

II 

II 

It 

II 


sss:ss;s5=ssssss=ssrsss=ssss 

9410 

24BF 

• 

9 

• 

• 

9 



9411 

24BF 

• 

• 

• 

; NON-ASCII 

BYTE PROCESSING 

9412 

24BF 

• 

• 

• 

w 

9 



9413 

24BF 

• 

• 

• 

GDS200 EQU 

$ 


9414 

24BF 

FE 

CE 

• 

CPI 

EOP 

; END OF DISPLAY? 

9415 

240 

C A 

B8 

24 

J Z 

GDS150 

; YES - RETURN END OF DISPLAY 

9416 

24C4 

FE 

C 4 

• 

CPI 

STPFLG 

; NON-DISPLAYING TERMINATOR? 

9417 

24C6 

CA 

OC 

25 

JZ 

GDS230 

;YES - RETURN END OF DISPLAY 

9418 

24C9 

FE 

CC 

• 

CPI 

EOL 

; END OF LINE? 

9419 

24CB 

CA 

22 

25 

JZ 

GDS300 

; YES - RETURN END OF LINE 

9420 

24CF 

FE 

C 3 

• 

CPI 

FILL 

;FILL BYTE? 

9421 

2400 

CA 

78 

24 

JZ 

GDSObO 

; YES - GET NEXT BYTE 

9422 

24D3 

4F 

• 

• 

MOV 

C ,A 

; NO - SAVE THE BITE 

9423 

2404 

CO 

76 

19 

CALL 

CHKFMS 

;format/soft key define MODE 

9424 

24D7 

C2 

E7 

24 

JNZ 

GDS210 

; YES - LOOK FOR START PROTEC 

9425 

240A 

3 A 

64 

FF 

LOA 

I0FLG2 

; NO - GET I/O FLAGS 2 

9426 

24DD 

E6 

20 


AN 1 

XDS2BF 

; DISPLAY TO I/O BUFFER? 

942 7 

24DF 

79 

• 

• 

MOV 

A ,C 

; (RECALL DATA BYTE) 

9428 

24E0 

CO 

• 


RNZ 


;YES - RETURN UNEXPANDED BYT 

9429 

24E1 

CO 

58 

23 

CALL 

EXPAND 

; NO - EXPAND DISPLAY CONTROL 

9430 

24E4 

C3 

2C 

24 

JMP 

GETDSP 

; RETURN 1ST EXPANDED CHAR 

9431 

24E7 

• 

* 

• 

• 

9 



9432 

24E7 

• 

• 

• 

; FORMAT MODE - IGNORE ALL DISPLAY CONTROL EXCEPT 

9433 

24E7 

• 

• 

• 

; FOR START PROTECT 

9434 

24E7 

• 

• 

. 

• 

9 



9435 

24E7 

« 

• 

• 

GDS210 EQU 

$ 


9436 

24E7 

79 

• 

• 

MOV 

A,C 

? RECALL THE DATA BYTE 

9437 

24E8 

FE 

CO 

• 

CPI 

STPR 

; IS IT START PROTECT? 

9438 

24EA 

C2 

78 

24 

JNZ 

GDSObO . 

; NO - IGNORE THE BYTE 

9439 

24ED 

EB 

• 

• 

XCHG 


; YES - PUT GETADR INTO D,E 

9440 

24EE 

2A 

CO 

FF 

LHLD 

CURROW 

; SAVE ENDING ROW AND 

9441 

24F1 

3A 

A3 

FF 

LOA 

I'LINU 

;C0LUMN+1 FOR FIELD 

9442 

24F4 

85 

• 

• 

ADD 

L 


9443 

24F5 

6F 

• 

• 

MOV 

Li , A 

; SAVE ABSOLUTE ROW NUMBER 

9444 

24F6 

22 

20 

FF 

SHLD 

ENOROW 


9445 

24F9 

• 


• 

GDS220 EQU 

$ 


9446 

24F9 

CO 

53 

to 

CALL 

GTM001 

; PAGE MODE/DISPLAY -> BUFFER 

9447 

24FC 

CA 

09 

25 

JZ 

GDS225 

; NO - RETURN END OF FIELD 

9448 

24FF 

CD 

B9 

10 

CALL 

FLDSR1 

; ANY MORE FIELDS? 

9449 

2502 

CA 

B8 

24 

JZ 

GDS150 

; NO - EXIT END OF DISPLAY 

9450 

2505 

EB 

• 

• 

XCHG 


; YES - STORE NEW GETADR 

9451 

2506 

22 

73 

FF 

SHLD 

GET ADR 


9452 

2509 

• 

• 

• 

GDS225 EQU 

$ 


9453 

2509 

AF 

• 

• 

XR A 

A 

? RETURN END OF FIELD 

9454 

250 A 

37 

• 

• 

STC 


?(C = TRUE, A = 0) 

9455 

250B 

C9 

• 

• 

RET 
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9457 

250C 

# 

• 

• 

•*****>M*************************************** 

9458 

250C 

• 

• 

• 

; NON-DISPLACING TERMINATOR FOUND - CHECK FOR * 

9459 

250C 

• 

• 


i AUTO CLEAR OPTION 

* 

9460 

250C 

• 

• 

• 

;************ ********* 

************* *****^***** 

9461 

250C 

• 

• 

• 

GDS230 EOU 

$ 


9462 

250C 

3A 

FA 

FF 

LDA 

KBJMP2 

; GET JUMPERS SET 2 

9463 

250F 

F6 

02 

• 

ANI 

CLRTRM 

; CLEAR TERMINATOR? 

9464 

2511 

3 A 

Cl 

FF 

LDA 

CURCOL 

; (SET CURRENT COLUMN) 

9465 

2514 

4F 

• 

• 

MOV 

C,A 


9466 

2515 

2 A 

73 

FF 

LHLD 

GETADR 

? ( SET LOCATION OF 

9467 

2518 

23 

• 

• 

I NX 

H 

; TERMINATOR) 

9468 

2519 

EB 

• 

• 

XCHG 


? CPUT ADDRESS INTO D,E) 

9469 

25 1 A 

C4 

88 

1A 

CNZ 

CHRDL2 

;YES - CLEAR THE FtfTE 

9470 

25 ID 

EB 

* 

• 

XCHG 



9471 

25 1 E 

2B 

• 

• 

DCX 

H 

;SET LAST CHARACTER ADDRESS 

9472 

25 IF 

C3 

B8 

24 

JMP 

GDS150 

; RETURN END OF DISPLAY 
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9474 

2522 


• 

• 

♦ 

9 



9475 

2522 

• 

• 

• 

; END 

OF LINE - PAD 

OUT LINE IF FORMAT MODE 

9476 

2522 

• 

• 

• 

r 




9477 

2522 

• 

• 

» 

GDS300 

EQU 

$ 


9478 

2522 

CD 

76 

19 


CALL 

CHKFMS 

? FORMAT/SOFT KEY DEFINE MODE 

9479 

2525 

CA 

41 

25 


JZ 

GDS310 

;NO - ADVANCE TO NEXT LINE 

9480' 

2528 

FA 

41 

25 


JM 

GDS310 

; SOFT K EY - SKIP TO NEXT LIN 

9481 

252B 

11 

Cl 

FF 


LXI 

D,CURCOL 

? FORMAT - BLANK FILL 

9482 

252E 

1 A 

• 

• 


LDAX 

0 

? GET CURRENT CURSOR COLUMN 

9483 

252F 

FE 

50 

• 


CPI 

MAXCOL+1 

; LI NE COMPLETED? 

948 4 

2531 

CA 

41 

25 


JZ 

GDS310 

; YES - ADVANCE TO NEXT LINE 

9485 

2534 

3C 

• 

• 


INP 

A 

;NO - INCREMENT COLUMN 

9486 

2535 

12 

• 

• 


STAX 

D 

; NUMBER 

948 / 

2536 

32 

00 

8 7 


STA 

IOCRCL 

; UPDATE DISPLAY CURSOR 

9488 

2539 

23 

« 

• 


INX 

H 

; RESTORE M GET A DP" TO LOC AT 10 

9489 

25 3A 

22 

73 

FF 


ShLD 

GETADR 

; OF "EUL" 

949 0 

25 3D 

3E 

20 

• 


MV I 

A, ABLNK 

? RETURN BLANK 

9491 

253F 

B7 

• 

• 


ORA 

A 

,‘CLEAF C-FLAG 

9492 

2540 

C9 

• 

• 


PET 


? RETURN 

9493 

2541 

• 

• 

• 

• 

9 




9494 

2541 

• 

• 

• 

GDS310 

EQU 

$ 


9495 

2541 

CD 

69 

19 


CALL 

CHAIN 1 

; GET ADDR OF NEXT LINF LINK 



13255 


ITEM 

9497 

9498 

9499 

9500 

9501 
95u2 

9503 

9504 

9505 

9506 

9507 

9508 

9509 

9510 

9511 

9512 

9513 

9514 

9515 

9516 

9517 

9518 

9519 

9520 

9521 

9522 

9523 

9524 

9525 

9526 

9527 

9528 

9529 

9530 

9531 

9532 

9533 

9534 

9535 


2574 

2574 

2574 

2574 

2575 
2578 
257B 
257C 
25 7F 
2581 
2584 

2587 

2588 


90003 

Rev 

AUG-01- 

7b 

ii 

ii 

ii 

it 

ii 

ii 

u 

ii 

ii 

ii 

ii 

LOC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

ii 

ii 

ii 

ii 

tt 

ii 

ii 



ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

n 

ii 

ii 

ii 

it 

ii 

ii 

n 

ii 

ii 

ii 

It 

II 

II 

II 

II 

2544 

2544 

• 

• 

• 

• 

• 

• 

9 

; EOL 

LINK 

FOUND - 

2544 

2544 

• 

• 

• 

• 

• 

• 

# 

9 

GDS320 

EOU 

$ 

2544 

7 E 

• 

• 


MOV 

A , M 

2545 

26 

• 

• 


DCX 

rt 

2546 

6E 

• 

• 


MOV 

L » M 

2 54 7 

67 

• 

• 


MOV 

H, A 

25 48 

22 

73 

FF 


SHLD 

GETADR 

254B 

AF 

• 

• 


XRA 

A 

254C 

32 

76 

FF 


ST A 

ENHOUT 

254F 

CD 

C8 

21 


CALL 

CRRET1 

2552 

CD 

76 

19 


CaLL 

CHKFMS 

2555 

CA 

8F 

25 


JZ 

GDS360 

2558 

FA 

89 

25 


JM 

GDS350 

255B 

2A 

CO 

FF 


LHLU 

CURROW 

255E 

3 A 

A3 

FF 


LD A 

TLINO 

2561 

85 

• 

• 


ADD 

L 

2562 

6F 

• 

• 


MOV 

L r A 

2563 

22 

20 

FF 


SHLD 

ENDROW 

2566 

CD 

6F 

OA 


CALL 

LNFEED 

2569 

CD 

9E 

OF 


CALL 

DISLNl 

256C 

2A 

73 

FF 


LH LD 

GETADR 

25bF 

7D 

• 

* 


MOV 

A,L 

2570 

B7 

• 

• 


ORA 

A 

2571 

CA 

BB 

24 


JZ 

GDS1 60 


PAGF 284 


; GET POINTER TO NEXT I-INE 


; PUT IT INTO "GETADR" 

; PUT CURSOR IN COLUMN ZERO 
; CLEAR LAST ENHANCE OUT FLAG 

; FUPMAT/SOFT KEY DEFINE MODE 
; NEITHER - SEND END OF LINE 
; SOFT KEY - FIND NEXT FIELD 
; FORMAT - SAVE ENDING ROW AN 
;COLUMN+l EOR FIELD 

; SAVE ABSOLUTE ROW NUMBER 

; YES - DO LINE FEED 
; SET DISPLAY CURSOR ROw 
; RECALL POINTER TO NEXT LINE 
; GEl LSB VALUE 
; END OF DISPLAY (LSB = 0)? 

; YES - RETURN END OF DISPLAY 


• 

• 

• 

• 

• 

• 

r 

• 

r 

FORMAT EOL - CHECK 

FOR CONTINUATION FIELD 

* 

EB 

• 

• 

f 

XCHG 


; PUT CURRENT ADDR IN D , E 

CD 

84 

IE 


CALL 

FLDSR2 

; NEXT LINE CONTINUES FIELD? 

C2 

F9 

24 


JNZ 

GDS220 

; NO - RETURN END OF FIELD 

EB 


• 


XCHG 


; YES - CONTINUE PROCESSING 

3A 

64 

FF 


LDA 

IOFLG2 

; GET I/O FLAGS 2 

Eb 

20 

• 


ANI 

XDS2BF 

} DISPLAY TO I/O BUFFER? 

CA 

78 

24 


JZ 

GDS060 

; YES - CONTINUE FIELD 

22 

73 

FF 


SHLD 

GETADR 

; NO - STORE NEW "GETADR" 

37 


• 


S'lC 


; RETURN END OF LINE 

C9 

• 

* 


RET 


; RETURN NZ, C 



ITEM 

953? 

9538 

9539 

9540 

9541 

9542 

9543 

9544 

9545 
954b 

9547 

9548 
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ii 

ti 

ii 

ii 

H 

ii 

ii 

ii 

ii 

ii 

it 

it 

s3sssss:s:x:si 

SSSSSESSS 

li 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

li 

ii 

it 

ii 

ii 

ti 

ii 

H 

ii 

it 

H 

II 

II 

II 

II 

II 

2589 

• 

• 

• 

; ******************************* ******** ******** 

2589 

• 

• 

• 

? END OF LINE FOR NON 

-FORMAT MODE - RETURN END * 

2589 

• 

• 

• 

; OF LINE 

CODE CC, 

P, NZ) * 

2589 

• 

• 

• 

;*********************************************** 

2589 

• 

• 

* 

GDS350 EQU 

$ 

; SOFT KEY END OF LINE 

2589 

CD 

6F 

OA 

CALL 

LNFEED 

? LOCATE THE ATTRIBUTE OF THE 

258C 

CD 

C 4 

ID 

CALL 

FLDSR 

;NEXI DEFINITION 

25bF 

• 

• 

• 

GDS360 EgU 

$ 

? NUN-FORMAT/SOFT KEY EOL 

258F 

AF 

• 

• 

XRA 

A 

; SET NZ,P 

2590 

3C 

• 

• 

INR 

A 


2591 

37 

• 

• 

STC 


; SET C-TRUE 

2592 

C9 

• 

• 

RET 


? RETURN END OF LINE 
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ii 

ii 

ti 

it 

s:£r;ss 

H 

it 

ii 

ii 

it 

ii 

11 

11 

it 

II 

M 

II 

II 

II 

II 

II 

II 

Ii 

II 

II 

II 

II 

II 

II 

II 

Ii 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ITEM 

LOG 

ob'ject 

CODE i 

SOURCE STATEMENTS PAGE 286 

9550 

2593 

• 

• 

• 

*********j^********** ***************** 

9551 

2593 

• 

• 

• 

INITOG - 

INITIALIZE FOR DISPLAY GET * 

9552 

2593 

• 

• 

• 

********** ** ************ *************** 

9553 

2593 

• 

• 

• 


- 

9554 

2593 

• 

• 

• 

EXIT : 

Z - CHARACTER FOUND 

9555 

2593 

• 

• 

• 


GETADR = ADDRESS OF FIRST CHARACTER 

955b 

2593 

• 

• 

• 


NZ - NO CHAkACTER FOUND 

9557 

2593 

• 

• 

• 


GETADR UNCHANGED 

9558 

2593 

• 

• 

• 


ALL REGISTERS DESTROYED 

9559 

2593 

• 

• 

• 



9560 

2593 

• 

• 

* 

DISPLAY 

GET RUUTINF IS SET TO START 

9561 

2593 

• 

• 

• 

AT CURRENT CURSOR LOCATION 

9562 

2593 

• 

• 

• 



9563 

2593 

• 

• 

. 

LNITDO EOU 

$ ; ENTRY FOR DISPLAY TO I/O 

9564 

2593 

CD 

7B 

19 

CALL 

CHKFMT ; FORMAT MODE ENABLED? 

9565 

2596 

C2 

9C 

25 

JNZ 

TNITDG ;YES - DON'T MOVE CURSOR 

9566 

2599 

32 

Cl 

FF 

STA 

CURCOL ; NO - BEGIN AT LINE START 

9567 

259C 

• 

• 

. 

LNITDG EOU 

$ 

9568 

259C 

CO 

OF 

17 

CALL 

SETDFO ; SET DATA COMM INPUT FLAG TO 

9569 

259F 

• 

• 

• 

• 9 

ENABLE TRANSMIT ONLY DATA 

9570 

259F 

E6 

FB 

% 

ANI 

3770-NOSEND ?CLEAR NO DATA FLAG 

9571 

25A1 

BE 

• 

• 

CMP 

M ; WAS IX SET BEFORE? 

9572 

25A2 

77 

• 

• 

MOV 

M , A ? ( SET NEW VALUE) 

9573 

25 A3 

CO 

• 

• 

PNZ 

; YES - RETURN NO DATA 

9574 

25A4 

2E 

64 

* 

MV l 

L,10FLG2-BASE JCLEAK DISPLAY BOUNDARY 

9575 

25A6 

7E 

• 

• 

MOV 

A,M ; FLAGS 

9576 

25A7 

E6 

3F 

• 

AM 

3770-END0SP-DSPBTM 

95 77 

25A9 

77 

• 

• 

MOV 

M, A 
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::s: 


::::::: 


CSSSZS33SS 

it 

H 

(i 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

a 

it 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

it 

ii 

ITEM 

LGC 

OBJECT 

CODE 

SOURCE 

STATEMENTS 

PAGE 287 

9579 

25AA 

• 

• 

• 

* 

9 



9580 

25 AA 

• 

• 

• 

? LOCATE FIRST CHARACTER 

9581 

25A A 

• 

• 

• 

* 

9 




9582 

25 A A 

CD 

8C 

19 


CALL 

CHKSFK 

;SOFT KEY MODE? 

9583 

25 AD 

CA 

BE 

25 


JZ 

IDG055 

} NO - LOCATE THE FIRST CHAR 

9584 

25B0 

21 

CO 

FF 


LXI 

H,CURROW 

? YES - CHECK CURSOR POSITION 

9585 

2563 

3E 

10 

• 


MV I 

A , SFTEND 


9586 

2565 

BE 

• 

• 


CMP 

M 

; CURSOR BELOW DATA AREA? 

9587 

25B6 

F8 

• 

• 


RM 


;YES - RETURN NO CHARACTER 

9588 

2567 

3E 

FE 

• 


MV I 

A, 3760 

? NO - SET CURSOR ROW TO 

9589 

2569 

A6 

• 

• 


ANA 

rt 

? ATTRIBUTE ROW 

9590 

256 A 

77 

• 

• 


MOV 

M, A 


9591 

256R 

AF 

• 

• 


XRA 

A 

;SET CURSOR COLUMN TO 

9592 

25BC 

23 

• 

• 


I N X 

H 

; BEGINNING OF ROW 

9593 

25UD 

77 

• 

• 


MOV 

M,A 


9594 

256E 

• 

• 

• 

9 

9 



LOCATE ATTRIBUTE 

9595 

25B£ 

• 

• 

• 

9 

9 




9596 

2 5 BE 

• 

• 

• 

IDG055 

EQU 

$ 


959 7 

2 5 BE 

3£ 

01 

• 


M V I 

A 1 1 GNTHM 

;SET TO IGNORE NON -DISPLAY IN 

9598 

25C0 

32 

6D 

FF 


ST A 

TRMFCT 

? TERMINATORS 

9599 

25C3 

CD 

CO 

06 


CALL 

RCADR4 

f DISPLAY PRESENT? 

9600 

25C6 

F8 

• 

• 


RM 


r NO - RETURN NO CHARACTER 

9601 

25C7 

CA 

03 

25 


JZ 

IDG060 

; CHARACTER - CHECK PROTECTED 

9602 

25CA 

CD 

76 

19 


CALL 

chkfmt 

; EOL - FORMAT MODE? 

9603 

25CD 

CA 

EE 

25 


JZ 

IDG100 

;N0 - EXIT WITH EOL 

9o 04 

2500 

C3 

D7 

25 


JMP 

IDG070 

;YES - CHECK PROTECTED 

9b05 

2503 

• 

• 

• 

• 

9 




9606 

25D3 

• 

• 

• 

IDG060 

Egu 

$ 


9607 

2503 

21 

C2 

FF 


LXI 

H , PROFLD 

; SET PROTECT STATUS 

9608 

2506 

70 

• 

• 


MOV 

M,B 


9609 

2507 

* 

• 

• 

IDG070 

EQU 

$ 


9610 

2507 

CD 

65 

10 


CALL 

CKPROT 

^CURSOR IN PROTECTED FIELD? 

9611 

25DA 

C2 

E8 

25 


JNZ 

IDG090 

? NO - RETURN CHARACTER FOUND 

9612 

250D 

3E 

FF 

• 


M V I 

A , STPXFR 

;SET TERMINATOR FUNCTION TO 

9613 

250F 

32 

6D 

FF 


STA 

TRMFCT 

; TERMINATE TRANSFER 

9614 

25E2 

CD 

B9 

10 


CALL 

FLUSH 1 

; ANY MORE FIELDS? 

9615 

25E5 

CA 

01 

06 


JZ 

NZEXIT 

; NO - RETURN NO CHARACTER 

9616 

25E8 

• 

• 

• 

IDG090 

Egu 

$ 


9617 

25E8 

21 

FF 

00 


LXI 

H r 3770 

; INITIALIZE PREVIOUS FIELD'S 

9618 

25EB 

22 

20 

FF 


SHLD 

ENDROW 

; ROW AND COLUMN TO ZERO 
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n 

it 

ii 

ii 

ii 

ii 

ZmZ SSS 



ii 

it 

ii 

ii 

ii 

li 

ii 

li 

ii 

it 

ii 

li 

ii 

li 

it 

ii 

it 

li 

ii 

li 

ii 

li 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

it 

ii 

ii 

it 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 288 


n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 


:::: 


ii 

ii 

ii 

ii 

ii 

ii 

ti 

ii 

u 

ii 

li 

H 

II 

li 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

H 

ii 

ii 

li 

it 

ii 

it 

ii 

li 

ii 

ii 

ii 

ii 

ii 

n 

il 

ii 

il 

il 

ii 

il 

il 

ii 

il 

ii 

ii 

ii 

il 

u 

9b20 

2 5 EE 

* 

• 

• 

• 

9 



9621 

25EE 

• 

• 

• 

i CHARACTER 

FOUND - 

RETURN CHARACTER FOUND 

9622 

25EE 

• 

• 

9 

• 

9 



9623 

25EE 

• 

• 

9 

IDG100 EQU 

$ 


9624 

25EE 

1A 

• 

9 

LD AX 

D 

; GET FIRST CHARACTER 

9625 

25EF 

FE 

C4 

9 

CPI 

STPFLG 

? NON-DISPLAYING TERMINATOR? 

9626 

25F1 

CC 

87 

OB 

CZ 

NXTCriR 

;YES - GET THE NEXT CHARACTE 

9627 

25F4 

EB 

• 

• 

XCHG 


;SAVL ADDRESS OF BYTE 

9b28 

25F5 

22 

73 

FF 

SHLO 

GETADR 


9629 

25F8 

3 A 

2 A 

48 

LD A 

ALTOUT 

; SET CURRENT ALTERNATE CHAR 

9b30 

25FB 

32 

75 

FF 

SI A 

CALTST 

; SET TO DEFAULT VALUE 

9631 

25FE 

3 A 

Co 

FF 

LDA 

LSI DC D 

; SET LAST ENHANCEMENT GUT 

9632 

2601 

32 

76 

FF 

S T A 

ENHOUT 

; WORD 

9633 

2604 

BF 

• 

• 

CMP 

A 

; SET Z-FLAG TRUE 

9634 

2605 


• 

• 

INITD1 EQU 

$ 

; INITIALIZE CHARACTER BUFFER 

9635 

2605 

21 

3C 

3C 

LXI 

hf CB2DbFL 

-1 ) +256 +B2DBFL-1? POINTERS 

9636 

2608 

22 

3B 

FF 

SHLD 

B2DEND 


9637 

260B 

C9 

• 

• 

RET 


; RETURN 
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tl 

ssss 

sees 

SS S3S 


XEK3ESESSS 

ti 

ii 

ii 

ti 

ti 

ii 

ii 

ii 

ti 

it 

ii 

ii 

ii 

it 

ii 

H 

11 

II 

II 

II 

II 

II 

H 

It 

II 

II 

II 

II 

It 

ITEM 

LOC 

OBJECT 

CODE 

SOURCE STATEMENTS 

PAGE 289 


ti 

»i 

ti 

ii 

ii 

ii 

it 

it 

SS5S 

SS83 

sssss 

23SSSS3SSSSS; 


if 

ii 

H 

II 

II 

II 

II 

tl 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

U 

Ii 

II 

It 

II 

II 

II 

II 

H 

II 

It 

*>639 

260C 

• 

• 

• 

;**♦♦*** *********************:M******************* 

9640 

260C 

• 

• 

• 

; STAT2 - SEND SECONDARY TERMINAL STATUS REQUEST * 

9641 

260C 

• 

• 

• 

; ****** ****** ^ *♦♦*******+************************* 

9642 

260C 

• 

• 

• 

STAT2 EQU 

$ 


9643 

260C 

01 

00 

04 

LXI 

B f SSTAT2 

;SET SECONDARY STATUS PENDIN 

9644 

260F 

C3 

CA 

16 

JMP 

SBLXFO 

? FLAG 

9645 

2612 

• 

• 

• 

.********************************************** 

9646 

2612 

9 

• 

• 

; STA2GO - 

TRANSMIT SECONDARY TERMINAL STATUS * 

9647 

2612 

• 

• 

• 

*********************************************** 

9648 

2612 

• 

• 

• 

STA2G0 EQU 

$ 


9649 

2612 

01 

FF 

FB 

LXI 

6„-l-SSTAT2 

9650 

2615 

CD 

70 

10 

CALL 

CI.BLXF 

J CLEAR STATUS 2 PENDING FLAG 

9651 

2618 

06 

7C 

• 

MV I 

B „ VRTBAP 

; SEND <ESC>-<VERTICAL BAR> 

9652 

26 1 A 

CD 

BB 

17 

CALL 

esc ou r 


9653 

261D 

21 

Cl 

17 

LXI 

H f XPUTDC 

; SET OUTPUT ROUTINE ADDRESS 

9654 

2620 

CD 

26 

26 

CALL 

STA2G1 

} OUTPUT SECONDARY STATUS BIT 

9655 

2623 

C 3 

ID 

12 

JMP 

SDTERM 

; SEND TERMINATOR AND RETURN 
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ITEM 

LOC 

OBJECT 

CODE SOURCE STATEMENTS PAGE 290 


it 

it 

ii 

n 

ii 

ii 

ii 



ii 

it 

it 

ii 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

tl 

II 

II 

II 

II 

II 

II 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

tl 

II 

9657 

2626 

• 

• 

* 

**************** ************************ 

9658 

2626 

• 

• 

• 

STA2G1 - OUTPUT SECONDARY STATUS BITS * 

9659 

2626 

• 

• 

• 

**************************************** 

9660 

2626 

• 

• 

• 


9661 

2626 

• 

• 

• 

ENTRY: H,L = ADDRESS OF OUTPUT ROUTINE 

9662 

2626 

• 

• 

• 


9663 

2626 


« 

• 

EXIT I ALL REGISTER DESTROYED 

9b64 

2626 

• 

• 

• 

CNTFAU DESTROYED 

9665 

2626 

• 

• 

• 


9666 

2626 

• 

• 

. STA2G1 EQU $ 

9667 

2626 

22 

CE 

FF 

SHLD CNTFAP /SET OUTPUT ROUTINE ADDRESS 

9b68 

2629 

• 

• 

. STA2G2 EQU $ 

96b9 

2629 

• 

• 

• 


9670 

2629 

• 

* 

• 

SEND NON-DISPLAY RAM SIZE (K) 

9671 

2629 

• 

• 

• 


9672 

2629 

3fc 

DO 

• 

MV I A, CBFSPCE+D/256 

9673 

262B 

21 

8E 

FF 

LXI ri,BUFBGN+l /COMPUTE NON-DISPLAY RAM 

9674 

26 2E 

9b 

• 

• 

SUB M /SIZE 

9675 

262F 

CD 

9D 

Ob 

CALL PAR0T2 /SEND NON-DISPLAY RAM SIZE 

9b7o 

26 3 2 

• 

• 

• 


9677 

2632 

• 

• 

• 

OUTPUT TERMINAL TYPE 

9678 

2632 

# 

• 

• 


9679 

2632 

3 A 

FD 

FF 

LDA TRMTYP /GET THE TERMINAL TYPE NUMBE 

9680 

2635 

CD 

9F 

06 

CALL PAROUT /SEND ONLY LOWER FOUR BITS 

9681 

2638 

• 

• 

• 


9682 

2638 

• 

• 

• 

OUTPUT REMAINING KYtoD INTFACE STRAPS 

9683 

2638 

• 

• 

• 


9684 

2638 

2A 

F9 

FF 

LHLD KBJMP3 /GET JUMPERS J-Z 

9685 

263B 

7C 

• 

• 

MOV A , H /SEND STRAPS J-K-L-M 

9686 

263C 

CD 

9F 

06 

CALL PAROUT 

9687 

263F 

7C 

• 

• 

MOV A,H /SEND STRAPS N-P-Q-R 

9688 

2640 

CD 

9b 

OB 

CALL PAR0T4 

9689 

2643 

7D 

• 

• 

MOV A r L /SEND STRAPS S-T-U-V 

9690 

2644 

CD 

9F 

06 

CALL PAROUT 

9691 

2647 

70 

• 

• 

MOV A , L /SEND STRAPS W-X-Y-Z 

9692 

2648 

CD 

9B 

OB 

CALL PAR0T4 

9693 

2646 

• 

• 

• 


9694 

2648 

• 

• 

• 

OUTPUT MFIMORY LOCK STATUS 

9695 

2648 

• 

• 

• 


9696 

264B 

3A 

6 A 

FF 

LDA MLKFLG /GET MEMORY LOCK FLAG 

9697 

264E 

21 

F 4 

FF 

LXI tt r MDE LG1 /COMBINE. WITH MODE FLAG 

9698 

2651 

Ab 

• 

• 

ANA M /EXTRACT MEMORY LOCK STATE 

9699 

2652 

Fb 

04 

• 

ANI MEMLUK 

9700 

2654 

C 3 

9F 

OB 

JMP PAROUT /OUTPUT MEMORY LOCK STATE 

9701 

2657 

• 

• 

• 

; AND RETURN 
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* Zi S S IS 2 

ii 

ii 

ii 

it 

ii 

ii 

ii 



s::sssssss:s:s 

H 

il 

II 

II 

It 

II 

II 

II 

•1 

II 

II 

II 

II 

II 

II 

II 

II 

If 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

H 

II 

It 

II 

II 

II 

U 

II 

It 

*>9703 

2657 

• 

• • 

.************************************************ 

9704 

2657 

• 

• • 

/ SOFT KEY 

DATA DONE TABLE - IGNORE DC3,CR,& LF * 

9705 

2657 

• 

• • 

************************************************* 

9706 

2654 

• 

• # 

DFSTB3 EQU 

$-3 

9707 

2657 

OA 

OA . 

DB 

12Q,12Q ? LINE FEED 

9/08 

2659 

AB 

A 1 . 

Dw 

DFS350+B 1 5 /CHECK FOR IGNORE 

9709 

265B 

OD 

OD . 

DB 

15Q,15Q ; RETURN 

9710 

265D 

B2 

Al . 

Dw 

DFS360+B15 /CHECK FOP IGNORE 

9711 

265F 

13 

13 . 

DB 

23Q,23Q ;DC3 

9712 

2661 

8F 

84 . 

DW 

E5CAP1+B15 / IGNORE IT 

9713 

2663 

• 

• • 

; ************************************ 

9714 

2663 

• 

• • 

; SOFT KEY 

MODE ENARLFD RANGE TABLE * 

9715 

2663 

• 

• • 

.************************************ 

9716 

2660 

• 

• + 

DFSTBO EQU 

$-3 

9717 

26b 3 

20 

7F , 

DB 

40Q,177Q ? DiSPLAYABLF CHARACTER 

9718 

2665 

BA 

8C . 

Dw 

SFKYDS+B 1 5 ?D1SPLAY IN PROPER DISPLAY 

9719 

2667 

• 

• • 

.********************************** 

9720 

2667 

• 

• • 

; NORMAL CHARACTER SET ATTRIBUTES * 

9721 

2667 

• 

• • 

;*************************+******** 

9722 

2664 

• 

* • 

RTABLE EQU 

$-3 

9723 

2667 

20 

7F . 

DB 

40Q,177Q ? ALPHANUMERICS 

9724 

2669 

1A 

A3 . 

DW 

DSPCHR+B15 ; DI SPLA YABLE CHARACTERS 

9725 

266B 

07 

OF . 

DB 

7Q, 17Q ;BELL,BS,HT,LF,VT,FF,CR,SO,S 

9726 

2660 

77 

26 

Dw 

RTB010 / USE FUNCTION TABLE 

9727 

266F 

IB 

IB . 

DB 

330,33 Q ; ESCAPE 

9728 

2671 

61 

84 . 

Dw 

ESC APE+B 1 5 ;USE <ESC> RANGE TABLE 

9729 

2673 

• 

• • 

• 

9 


9730 

2673 

00 

7F . 

DB 

0Q,177Q / ALL OTHER CODES 

9731 

2675 

12 

84 . 

Dw 

CHKCTL + B15 /CHECK FOR- BLOCK XFP CHARS 

9732 

2677 

• 

• • 

• 

9 


9733 

2677 

• 

• • 

; <BELL> THROUGH <SHIFT IN> 

9734 

2677 

• 

• • 

• 

9 


9735 

2677 

• 

• * 

RTB010 FyU 

$ 

9736 

2677 

14 

48 . 

Dw 

Z.8ELL /BELL - SOUND KEYBOARD BELL 

9737 

2679 

• 

• • 

RTB020 EQU 

S ; <BS> THROUGH <SHIFT IN> 

9738 

2679 

FO 

IF . 

DW 

BCKSPC /BS - BACKSPACE CURSOR 

9739 

267B 

82 

IF . 

DW 

HTAB /HORIZONTAL TAB 

97 40 

267D 

6F 

OA . 

DW 

LNFEED /LINE FEED 

9741 

2 6 7 F 

71 

19 . 

DW 

NOFNCT /Vi - NO FUNCTION 

9742 

2681 

71 

19 . 

Dw 

NOFNCT /FF - NO FUNCTION 

9743 

2683 

B8 

21 . 

Dw 

CRRET /CARRIAGE RETURN 

9744 

2685 

D8 

OC . 

DW 

SHFTOT /SHIFT OUT 

97 45 

2687 

EB 

OC . 

DW 

SHFTIN /SHIFT IN 
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it 
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ii 

li 
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H 

li 
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ti 
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it 

it 

it 

ii 

ii 

ii 

it 
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it 

ti 

ii 

ii 

it 

ii 

ii 

ii 

it 

ii 

9747 

2689 

• 

• • 

.************************************ ******** 

9748 

2689 

• 

• • 

; ESCAPE CHARACTER ATTRIBUTES FOR SOFT KEYS * 

9749 

2689 

• 

• • 

;******************************************** 

9750 

2686 

• 

• • 

SESCTB EQIJ 

$-3 

9751 

268 9 

29 

3E • 

DB 

5lg,760 /<)> TO (>) 

9752 

268B 

95 

84 . 

Dw 

ESCEND + B15 / ABORT ESCAPE SEQUENCE 

9753 

268D 

4C 

4F . 

08 

1140,1170 ?<L> TO <U> 

9754 

26 8E 

95 

84 • 

0* 

ESCEND+B15 ; ABORT ESCAPE SEQUENCE 

9755 

2691 

53 

58 . 

DB 

1230,1300 ?<S> TO <W> 

975b 

2693 

95 

84 . 

Dw 

ESCEND+B 1 5 /ABORT ESCAPE SEQUENCE 

9757 

2695 

# 

• • 

/ 

*** LOWER CASE CHARACTERS *** 

9758 

2695 

6C 

6D . 

DB 

1540,1550 ?<L> TO <M> 

9759 

2697 

95 

84 . 

DW 

ESCEND+B15 /ABORT ESCAPE SEQUENCE 

9760 

2699 

79 

76 . 

DB 

1710,1730 ?<Y> TO <t> 

9761 

269B 

95 

84 . 

Dw 

ESCEND+B 1 5 / ABORT ESCAPE SEQUENCE 

9762 

269D 

• 

• • 

.************************************* 

9763 

2690 

• 

• • 

; NORMAL ESCAPE CHARACTER ATTRIBUTES * 

9764 

269D 

• 

• # 

;********* 

**************************** 

9765 

269 A 

• 

• • 

ESC TAB egu 

5-3 

97b6 

2690 

26 

26 

Db 

460,460 /<&> - AMPERSAND 

9767 

269F 

BE 

9o • 

Dw 

PRMSE0+B15 ; PARAMETERIZED SEQUENCE 

9768 

26AI 

• 

• • 

i 


97b9 

26 A 1 

29 

29 . 

D6 

510,510 /) - SPECIFY ALT CHAR SET 

9770 

26A3 

7C 

8C . 

Dw 

SCHRST+B15 

9771 

26A5 

31 

35 . 

Db 

610,650 ?<1> TO <5> 

9772 

26A7 

Cl 

2b . 

Dw 

Ell 

9773 

26A9 

3b 

38 . 

OB 

660,700 ;<b> TO <8> 

9774 

26AB 

AB 

8F . 

Dw 

TYPSET+B1 5 ? DEFINE FIELD TYPE 

9775 

26 AD 

• 

• • 

• 

# 


9776 

26 AD 

3C 

3E . 

DB 

740,760 ; (<) TO (>) 

9777 

26AF 

CB 

26 . 

DW 

El 1 A /USE INDEX TABLE 

9778 

26B1 

• 

• • 

• 

9 


9779 

26B1 

40 

60 . 

DB 

1000,1550 / <B> TO <LOWER CASE M> 

9780 

2663 

D1 

26 . 

Dw 

EI2 ? USE INDEX TABLE 

9781 

2685 

• 

• • 

* 

9 

*♦* LOWER CASE RANGE *4* 

9782 

2685 

78 

76 . 

D6 

1700,1730 ;<X> TO <LEFT BRACES 

9783 

2667 

2U 

2 7 . 

Dw 

El 3 / USE INDEX TABLE 

9784 

2669 

• 

• • 

• 

f 


9785 

26B9 

7E 

7E . 

DB 

1760,1760 ?<*> (TILDE) 

978b 

26BB 

OC 

A6 • 

D w 

STAT2+B 1 5 /TERMINAL STATUS 2 

9/87 

26BD 

• 

• * 

« 

9 


9788 

26BD 

00 

7 F • 

DB 

00,1770 / ALL OTHER CODES 

9789 

26BF 

95 

84 . 

Dw 

ESCEND+B15 /ABORT ESCAPE SEQUENCE 
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ss: s 

tl 

II 

it 
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H 

II 

II 

II 
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It 

It 

II 

II 

II 

II 

II 

II 


ii 

H 

11 

II 

II 

II 

II 

•1 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

II 

II 

II 

If 

II 

II 

9791 

26C1 

• 

• • 

;************************************ 

9792 

26C1 

• 

• » 

; INDEX TABLES FOR 

ESCAPE SEQUENCES * 

9793 

26C1 

• 

• • 

;*******¥*************♦************** 

9794 

26C1 

• 

• • 

Ell EOU 

$ 


9 795 

26C1 

5A 

15 . 

OW 

HTBSET 

} 1 - HORIZONTAL TAB SET 

9796 

26C3 

60 

15 . 

D W 

BTBCLR 

;2 - HORIZONTAL TAB CLEAR 

9797 

26C5 

FB 

10 . 

DW 

C LR ALL 

; 3 - CLEAR ALL TABS 

9798 

26C7 

17 

17 . 

Dw 

SETLFT 

; 4 - SET LEFT MARGIN 

9799 

26C9 

29 

17 . 

DW 

SETRHT 

? 5 - SET RIGHT MARGIN 

9800 

26CB 

• 

• • 

• 

9 



9801 

26CB 

• 

• » 

El 1 A equ 

$ 


9802 

26CB 

38 

15 . 

Dw 

FRNCT1 

; < - SET FOREIGN MODE 1 

9803 

26CD 

95 

04 

DW 

ESC END 

;= - INVALID, ABORT SEQUENCE 

9804 

26CF 

30 

15 • 

DW 

FRNCT2 

?> - SET FUREIGN MODE 2 

9805 

2601 

• 

• • 

• 

9 



9 8 Do 

2601 

• 

• • 

El 2 EQU 

S 


9807 

2601 

AC 

12 . 

DW 

DELAYO 

- PAUSE FOP 1 SECOND 

9808 

2603 

B5 

20 . 

DW 

CURPU 

; A - CURSOR POINTER UP 

9809 

2605 

AE 

20 . 

DW 

CURPO 

;CURSOR POINTER DOwN 

9810 

2607 

9C 

20 

DW 

CURPR 

;CURS0R POINTER RIGHT 

9811 

2609 

A 1 

20 . 

DW 

CURPL 

;D - CURSOR LEFT 

9812 

26DB 

90 

08 . 

Dw 

CLEAR 

; E - FULL TERMINAL RESET 

9813 

26DD 

07 

11 . 

Dw 

CURPHD 

; F - HOME DOWN 

9814 

26DF 

C5 

21 . 

Dw 

CURPRT 

;G - CURSOR RETURN 

9815 

26 El 

F 4 

17 . 

DW 

XMOHME 

? H - HOME TO TRANSMI T-ONLY 

9816 

26E3 

82 

IF . 

DW 

HTAB 

? CURSOR POINTER TAB 

9817 

26E5 

8F 

10 . 

DW 

CLEARS 

;CLEAR DISPLAY 

9818 

26E7 

3C 

1C . 

Dw 

CLEARL 

; CLEAR LINE 

9819 

26E9 

00 

OA . 

Dw 

L I N I N S 

;LINE INSERT 

9820 

26EB 

B7 

09 , 

Dw 

LINDEL 

;M - LINE DELETE 

9821 

26ED 

E6 

IF . 

Dw 

IWRPON 

;N - INSERT W/WPAP AROUND ON 

9822 

26EF 

91 

19 . 

Dw 

DELWKP 

;0 - DELETE CHAR W/WRAPAROUN 

9823 

26F1 

99 

19 . 

DW 

CHRDEL 

;p - DELETE CHARACTER 

9824 

26F3 

05 

IF . 

Dw 

1 CHON 

; 0 - INSERT CHARACTER ON 

9825 

26F5 

DC 

IF • 

DW 

1CH0FF 

;R - INSERT CHARACTER OFF 

9826 

26F7 

27 

OC . 

Dw 

ROLLUP 

; S - ROLL UP 

9827 

26E 9 

C5 

OB . 

Dw 

KOLLDN 

? ROLL 00 wN 

9828 

26FB 

2D 

OB . 

Dw 

MEXTPG 

; NEXT PAGE 

9829 

26FD 

A9 

OB . 

DW 

PFEVPG 

; PREVIOUS PAGE 

9830 

26FF 

18 

10 • 

DW 

FORMON 

; FORMAT MODE ON 

9831 

2701 

02 

15 . 

DW 

FORMOF 

; X - FORMAT MODE OFF 

9832 

2703 

7B 

14 . 

Dw 

FDISQN 

; Y - DISPLAY FUNCTIONS ON 

9833 

2705 

95 

04 . 

DW 

ESCEND 

r INVALID 

98 34 

2707 

9E 

16 . 

Dw 

PREND 

; END PROTECT 

9835 

2709 

95 

04 * 

DW 

ESCEND 

; INVALID 

9836 

2 7 OB 

94 

16 . 

DW 

PRSTRT 

; START PROTECT 

98 37 

2700 

F3 

OC . 

DW 

STATUS 

- SEND TERMINAL STATUS 

9838 

270F 

3F 

17 . 

DW 

SETTRM 

- STORE NON-DISPLAYING 

98 39 

2711 

• 

• • 

i 
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it 

it 

ii 
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ii 

ii 
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ii 

ii 

it 

it 

it 
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it 

ii 

ii 

ti 

ii 

9841 

2711 

• 


• 

• 

9 



9842 

2711 

• 

• 

• 

; LONER CASE RANGE 

FOR 2 CHARACTER ESC SEQUENCES 

9843 

2711 

• 

• 

• 

* 

9 



9844 

2711 

D 1 

1 1 

• 

ON 

RLCRSN 

;fa - SCREEN RELATIVE SENSE 

9845 

2713 

09 

n 

• 

DW 

CURSEN 

; A - ABSOLUTE CURSOR SENSE 

9846 

2715 

FA 

15 

• 

DW 

KREN1 

; B - ENABLE KEYBOARD 

98 47 

2717 

07 

16 

• 

Dw 

KBLOKO 

;C - DISABLE (LOCK) KEYBOARD 

98 48 

2719 

C 7 

16 

• 

D w 

EiVTREN 

; D - SEND DISPLAY TO CPU 

9849 

27 1 B 

68 

15 

• 

Dw 

IOBNGO 

; E - FAST BINARY READ 

9850 

2710 

40 

12 

• 

DW 

DISMDM 

;F - DISCONNECT MODEM 

9851 

27 1 F 

CC 

OC 

• 

Dw 

SFTRST 

; G - SOFT RESET 

9852 

27 21 

27 

ID 

• 

Dw 

CURPH 

; H - HOME TO UNPROTECTED 

9853 

27 2 3 

FF 

18 

• 

DW 

BK I Ab 

; I - BACK TAB 

9854 

27 25 

A5 

OC 

• 

DW 

SFKYON 

; J - TURN UN SOFT KEY MENU 

9855 

2727 

80 

OC 

• 

Dw 

SFKYOF 

; K - RESTORE NORMAL DISPLAY 

985b 

2729 

CB 

OA 

• 

Ow 

MLKON 

; L - MEMORY LOCK ON 

9857 

272B 

CO 

OA 

• 

Dw 

MLKOFF 

; M • MEMORY bOCK OFF 

9858 

2720 

# 

• 

• 

• 

9 



9859 

27 20 

• 

* 

• 

LI 3 EQU 

$ 

; LOWER CASE <X> TO <£> 

9850 

2720 

99 

12 

• 

OW 

DC TEST 

; X - DATA COMM SELF-TEST 

9861 

27 2 F 

70 

14 

• 

DW 

MNMDOM 

; Y - MONITOR MODE ON 

9862 

27 31 

70 

OD 

• 

DW 

TEST 

;Z - SeLF -TEST 

9863 

2733 

99 

16 

• 

DW 

STRXMO 

; f - START TRANSM IT-ONLY 
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9865 

2735 

• 

• • 

************************************************ 

9866 

2735 

• 

• • 

; PRMTAB - 

TABLE FOR SEQUENCES WITH PARAMETERS * 

9867 

2735 

• 

• * 

.* 4 **********^******** ********* ***************** 

9868 

2732 

• 

• • 

PRMTAB EQU 

$-3 

9869 

2735 

61 

67 . 

DB 

1410,1470 ? LOWER CASE <A> TO <G> 

9870 

2737 

49 

27 . 

Dw 

PRM010 ; USE INDEX TABLE 

98 7 1 

2739 

• 

. . 

• 

9 


9872 

2739 

6B 

6B 

DB 

153Q, 153Q ? LOWER CASE <K> 

9873 

273B 

20- 

C8 . 

D W 

ZSTLKY+B1 5 ?G0 TO SET KEYS ROUTINE 

9874 

27 3D 

• 

• • 

• 

9 


98 75 

273D 

70 

70 . 

DB 

1600,1600 ? LOWER CASE <P> 

9876 

27 3F 

80 

95 . 

Dw 

I0CTG04B15 ; GO TO T/O CONTROL ROUTINE 

9877 

2741 

• 

• • 

• 

9 


9878 

2741 

73 

73 . 

DB 

1630,1630 ? LOWER CASE <S> 

9879 

2743 

ID 

C 8 . 

DW 

ZSTJPR + B15 ? GO TO SET JUMPERS ROUTINE 

9880 

2745 

00 

7F . 

Db 

00,1770 ?ALL OTHER CODES 

9881 

2747 

95 

84 . 

DW 

ESCEND + B 1 5 ,* ABORT ESCAPE SEQUENCE 

9882 

2749 

• 

• • 

r 


9883 

2749 

• 

• • 

PPM010 EQU 

$ ; LOWER CASE <A> TO <F> 

9884 

2749 

3 A 

11 • 

DW 

CURPQS ; A - CURSOR POSITIONING 

9885 

274B 

11 

16 * 

DW 

LOADR ;B - BINARY LOADER 

9886 

2740 

1C 

16 . 

DW 

LOADR1 ;C - LOADER SANS MESSAGE 

9887 

274F 

CF 

21 . 

DW 

DISPEN ; D - DISPLAY ENHANCEMENT 

9888 

2751 

95 

04 , 

DW 

ESCEND ?E - INVALID, ABORT SEQUENCE 

9889 

2753 

CO 

20 • 

Dw 

DFSEKY ;F - DEFINE FUNCTION KEYS 

9890 

2755 

4C 

17 . 

DW 

SNDCDE ; G - SEND AT TE'NTION/FUNC 1 ION 

9891 

2757 

• 

• • 

♦ 

9 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

5 S S 2 

ii 

ii 

ii 
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ii 

it 
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ii 
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ii 

ii 

ii 

if 

ii 

ti 

ii 

tl 

ii 

il 

ti 

II 

II 

II 

II 

II 

II 

II 

II 
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II 

II 
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II 

II 

II 

II 

II 

II 

II 
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II 
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II 

II 

II 

II 

II 

II 

II 

II 

9893 

2757 

• 

• • 

.4****** ***************** ******* ************* 

9894 

2757 

• 

• • 

; DENTAB - 

DISPLAY ENHANCEMENT ESCAPE TABLE * 

9895 

2757 

• 

* * 

.******♦************************************* 

989b 

2754 

• 

• • 

DENTAB EDO 

$-3 

989/ 

2757 

40 

4F . 

Db 

1000,1170 z<e>-so> 

9898 

2759 

09 

A 1 . 

Dw 

OISPLC+B1 5 ; TURN ON ENHANCEMENT 

9899 

275B 

• 

• • 

********************* ********************* 

9900 

275B 

• 

• • 

/ CHRSTB - 

ALTERNATE CHARACTER SET TABLE * 

9901 

275B 

• 

• • 

.***************************************** 

9902 

2758 


• • 

CHRSTB EOU 

$-3 

9903 

275B 

40 

43 

DB 

1000,1030 /S0> - <C> 

9904 

275D 

8 2 

8C . 

DW 

SCHST1+B15 ? SET ALTERNATE CHAR SET 

9905 

275F 

• 

• • 

• 

9 


990b 

275F 

00 

7F . 

Db 

00,1770 ; ALL OTHER CODES 

990/ 

2761 

95 

84 . 

Dw 

ESCEND+R15 ; ABORT ESCAPE SEQUENCE 

9908 

2763 

• 

• • 

.************************* ****************** 

9909 

2763 


• • 

; CRPTAB - 

CURSOR POSITIONING ESCAPE TABLE * 

9910 

27b3 

• 

• • 

****** ******************************** ****** 

9911 

27b0 

• 

• • 

CRPTAB EQU 

$-3 

9912 

27 b 3 

2b 

2B . 

Ob 

530,530 /<*> - PLUS SIGN 

9913 

2765 

8b 

92 . 

Dw 

DC PL US + B 15 ? SET SIGN FLAG TO +1 

9914 

2767 

2D 

2D . 

Ob 

550,550 ; NEGATIVE REL. POSITIONING 

9915 

27b9 

8B 

92 . 

DW 

DCMNUS+Bi 5 JSET SIGN FLAG TO -1 

991b 

276B 

30 

39 . 

DB 

600,710 /VALID PARAMETER DIGITS 

9917 

276D 

62 

92 . 

Dw 

DC N UM+b 1 5 /ACCUMULATE NUMERICAL VALUE 

9918 

276F 

• 

• • 

Z 


9919 

276F 

43 

43 . 

Db 

1030,1030 Z<C> 

9920 

27 7 1 

4F 

91 . 

Dw 

CURPOl +B1 5 /SET COLUMN PARAMETER 

9921 

27 7 3 

• 

• • 

• 

9 


9922 

2773 

52 

5 2 • 

Db 

1220, 122Q / <R> 

9923 

27 75 

65 

91 . 

Dw 

CURPU3+B15 /SET ROw PARAMETER 

992 4 

2777 

• 

• • 

# 

9 


9925 

2777 

59 

59 . 

DB 

1310,1310 Z<Y> 

9926 

2779 

5A 

91 . 

D w 

CUKP02+B15 /SET SCREEN ROw PARAMETER 

9927 

277B 


• « 

* 

9 


9928 

2778 

63 

63 . 

DB 

1430,1430 /SLOWER CASE C> 

9929 

2770 

4F 

91 . 

DW 

CURP01+B15 /SET COLUMN PARAMETER 

9930 

277F 

• 

• • 

Z 


9931 

27 7F 

72 

72 , 

Db 

1620,162Q /SLOWER CASE R> 

9932 

2781 

65 

91 . 

Dw 

CURPQ3*B15 /SET ROW PARAMTER . 

9933 

2783 

• 

• • 

Z 


9934 

2783 

79 

79 . 

Db 

1710,1710 /SLOWER CASE \> 

9935 

2785 

5 A 

91 . 

Dw 

CURP02+B15 /SET SCREEN ROW PARAMETER 

993b 

27 87 

• 

• • 

• 

9 


9937 

2787 

20 

20 . 

Db 

400,400 /SPACE - IGNORE 

9938 

2789 

8F 

84 . 

Dw 

ESCAP1+B15 

9939 

27 8B 

00 

7F • 

DB 

0,1770 /INVALID 

9940 

2780 

95 

84 . 

DW 

ESCEND+B15 



ITEM 

9942 

9943 

9944 

9945 

9946 

9947 

9948 

9949 

9950 

9951 

9952 

9953 
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=s== 

s»ss 

SS3SS 

:css:s3s:s: 

H 

•i 

it 

H 

H 

it 

it 

ii 

n 

ii 

ii 

ii 

n 

it 

it 

H 

ii 

ii 

H 

ti 

ti 

H 

it 

ti 

ii 

H 

it 

ii 

278F 

* 

• 

• 

******* ******************** 

278F 

• 

• 

• 

; FUNCTION 

DISABLE ATTRIBUTES * 

278F 

• 

• 

• 

;****************************** 

278C 

• 

• 

• 

FD1STB EQU 

$-3 

278F 

0D 

OD 

• 

DB 

1 5Q , 1 5Q ; RETURN CODE 

2791 

F2 

8F 

• 

DW 

C ARRET+B 1 5 

2793 

IB 

IB 

• 

DB 

330, 33Q ;ESCAPE 

2795 

AA 

94 

• 

D W 

FPE5C+B1 5 

2797 

5 A 

5 A 

• 

DB 

1320,1320 

2799 

88 

94 

• 

DW 

FDISOF+B15 

279B 

00 

7F 

• 

DB 

0,1770 ; ALL OTHER CODES 

279D 

BA 

8C 

• 

Dw 

SFKYDS+B15 ; ADD CHARACTER 
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il 
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It 

il 

ii 
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it 

ii 

ii 

9955 

279F 

• 

• • 

;**********♦*** *********************** 

9956 

2 7 9F 

• 

• • 

; BINARY LOADER CHARACTER ATTRIBUTES * 

9957 

279F 

• 

• • 

.**********♦*******♦***************♦** 

995# 

279C 

• 

• • 

LDRTAB E0U 

$-3 

9959 

27 9F 

41 

46 • 

DB 

1010, 106Q ?<A> - <F> 

9960 

27A1 

C7 

27 

Dw 

LI 1 ? USE INDEX TABLE 

9961 

27 A3 

• 

• • 

• 

9 


9962 

27 A3 

61 

64 . 

DB 

1410,1440 ; LOADER COMMAND 

9963 

2 7 AS 

C7 

27 . 

Dw 

LI 1 ; USE INDEX TABLE 

9964 

27A7 

• 

• • 

• 

9 


9965 

27A7 

0A 

0A . 

DB 

120,120 JL1NE FEED 

9966 

27A9 

8F 

84 . 

Dw 

ESCAF1+B15 

9967 

27 AB 

0D 

00 . 

DB 

150,150 ?CR 

9968 

27 AD 

8F 

84 . 

DW 

ESCAP1+B15 

9969 

27AF 

13 

13 . 

DB 

230,230 ? DC 3 

9970 

2761 

8F 

84 . 

Dw 

ESC API +B15 ; IGNORE 

9971 

2763 

• 

• • 

• ±* ***************************** *************** 

9972 

276 3 

• 

• • 

; SNDCTB - 

ACCUMULATE ATTENTION /FUNCTION CODE * 

9973 

2763 

• 

• • 

; *********************** *********************** 

9974 

2760 

• 

• • 

SNUC1B EgiJ 

$-3 

99 75 

2763 

30 

37 . 

DB 

o00,670 ; OCTAL DIGITS 

997o 

2765 

62 

92 . 

Dw 

OCNUM+B1 5 ? ACCUMULATE VALUE 

997 7 

2767 

• 

• • 

9 

9 


997 8 

2767 

41 

41 . 

DB 

1010,1.010 ? < A> 

997 9 

2769 

5A 

97 . 

Dw 

SNDCU1+B15 ; SEND ATTENTION CODE 

9980 

27BB 

• 

• • 

9 


9981 

276B 

46 

46 . 

DB 

1060,1060 J <F> 

9982 

27BD 

CE 

92 • 

DW 

SNDCD2+B15 ; SEND FUNCTION CODE 

9983 

2 7bF 

• 

• • 

• 

9 


9984 

27BF 

20 

20 • 

DB 

400,400 ? SPACE 

9985 

27C1 

8F 

84 . 

Dw 

ESCAP1 +B15 

9986 

27C3 

00 

7F . 

DB 

0,1770 ; OTHER CHARACTERS 

9987 

27C5 

00 

80 • 

Dw 

B15 ? TERMINATE AND RESET 

9988 

27C7 

• 

• • 

i 


9989 

27C7 

• 

• <* 

LJ.1 EgU 

$ 

9990 

27C7 

39 

16 

Dw 

LDR3 ;A - ADDRESS 

9991 

27C9 

2 7 

16 . 

Dw 

LDRO ,’B - IGNORE 

9992 

27CB 

75 

16 . 

DW 

LDR10 ; CHECKSUM 

9993 

27CD 

4A 

16 . 

Dw 

LDR4 ; DATA 

9994 

27CF 

5A 

16 

DW 

LDR060 ,’E - EXECUTE LOADED CODE 

9995 

2761 

00 

00 . 

Dw 

BEGIN ;F - TERMINATE AND RESET 
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£997 

2703 

• 

• • 

;***♦******♦*********************** 

9998 

27D3 

• 

• • 

/ DFSTAB - 

DEFINE SOFT KEYS TABLE * 

9999 

2703 

• 

• • 

;♦**♦***************♦************** 

10000 

2700 

• 

• • 

DFSTAB EQU 

$-3 

10001 

2703 

20 

20 . 

DB 

40Q,40 Q / SPACE 

10002 

2705 

8F 

84 . 

Dw 

ESCAP1+B15 ; IGNORE 

10003 

2707 

30 

39 . 

DB 

60Q,71Q /DIGITS <0>-<9> 

10004 

2709 

62 

92 . 

Dm 

OCNUM+615 /ACCUMULATE NUMERICAL VALUE 

10005 

270B 

41 

41 . 

OB 

101Q,101Q ?<A> - ATTRIBUTE PARAMETER 

10006 

27DD 

CD 

AO • 

Dm 

OFSIOOtBIS /STORE DEFINED ATTRIBUTE 

10007 

2 7 OF 

4B 

4C . 

DB 

1„13Q,114Q /<K> - <L> 

10008 

27E1 

£F 

27 . 

DM 

DFT010 /USE INDEX TABLE 

10009 

27 E 3 

• 

• • 

9 


10010 

27E3 

• 

• • 

; LOWER CASE RANGE 

10011 

27E3 

• 

• • 

9 

r 


10012 

27£3 

61 

61 . 

DB 

1 4 1 Q , 141Q / < A> - ATTRIBUTE PARAMETER 

10013 

27E5 

CO 

AO . 

DM 

UFS100+B15 /STORE DEFINED ATTRIBUTE 

10014 

27E7 

66 

6C . 

DB 

15SQ, 154Q / <K> - <L> 

10015 

2 7 £9 

EF 

27 . 

Dm 

DFT010 /USE INDEX TABLE 

lOOlo 

27ER 

00 

7F . 

DB 

0 Q r 1 7 7 Q /ALL OTHER CODES 

10017 

27ED 

95 

84 . 

DM 

ESCEND+B15 /ABORT ESCAPE SEQUENCE 

10018 

27EF 

• 

• • 

9 

9 


10019 

27EF 

• 

• • 

DFT010 EQU 

$ 

10020 

27 EF 

05 

20 . 

Dm 

OFSllO /DEFINE KEY NUMBER 

10021 

27F1 

DO 

2o . 

Dm 

0FS120 /DEFINE LENGTH 0* INPUT DATA 

10022 

27F3 

« 

• • 

;*♦*♦** *************************** 

10023 

27F3 

• 

• 9 

; ACCUMULATE SOFT KEY DATA TABLE * 

0024 

27F3 

• 

• • 

;********************************* 

/002b 

27F0 

• 

• • 

DFSTB2 EQU 

$-3 

10026 

2 7 F 3 

00 

7F . 

Db 

00 r 1 77Q /ALL CODES 

10027 

2 7 F 5 

84 

A1 . 

Dw 

DFS300tB15 /ADD TO DATA LINE 
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SYMBOL VALUE REFERENCED ON 


A 

0041 

317 


A20UTB 

1 3C0 

5490, 5485, 7413, 

7432 



9254, 9256, 92/2, 

9332 

ABCKSL 

005C 

332, 3978 


ABLNK 

0020 

299, 2669, 2889, 

2916 



7083, 7642, 9338, 

9490 

ABSTAK 

FF5F 

743, 747 


ADEL 

007 F 

347, 1915, 5879, 

9226 

ALCC 

006 3 

338, 5097 


ALPHA 

00C5 

358, 4531, 7071, 

7 097 

ALPHNM 

OOC 7 

360 


ALT IN 

0040 

850, 1120 


ALTIO 

Oolo 

768 


ALTURG 

600u 

275, 276 


ALTOUi 

482 A 

205, 9629 


AMPSND 

0026 

300, 1395, 5087, 

9158, 

ANL 

0080 

760 


ANR 

0040 

759 


ARPARN 

0029 

302, 1400, 9188 


ATB010 

14E0 

5753, 5756 


ATBLEN 

OoOE 

5757, 1209, 1217 


ATBLIN 

1 4D A 

5749, 5757, 1200 


AT BLOC 

0008 

5756, 5589, 9259 


ATS IGN 

0040 

316, 6021 


AUTOLF 

Ou 0 4 

124, 1436, 4018, 

5453, 

AUTTRrt 

0001 

56, 5336, 6451 


B 1 5 

800u 

368, 9708, 9710, 

9712, 



9756, 9759, 9761, 

9767, 



9879, 9881, 9898, 

9904, 



9926, 9929, 9932, 

9935, 



99b6, 9968, 9970, 

9976, 



10006,10013,10017,“ 

10027 

B1LEN 

FF38 

812, 813 


B1STAT 

FF3 A 

810, 811 


BITYPE 

FF39 

811, 812 


B2D050 

0845 

2740, 2713 


B2D100 

0858 

2765, 2737, 2739, 

2742, 

B2D110 

085B 

2768, 2771 


B2D200 

086 A 

2786, 2706, 2733 


B2D210 

0875 

2793, 2788 


B2D220 

0876 

2795, 2790 


B2DBFL 

003D 

794, 7481, 9635, 

9635 

82D0UF 

FF30 

793, 794, 795 


B2DEND 

FF3B 

796, 810, 5491, 

7479, 

82DPTR 

FF3C 

795, 796, 9299 


62LEN 

FF35 

815, 819 


B20UTB 

1 3BF 

5486, 9227, 9229, 

9270 

82 ST AT 

FF37 

813, 814 


B2 TYPE 

FF36 

814, 815 


BACKTO 

1802 

6601, 6764 


BACKT1 

1805 

6603, 6479 


BACKT5 

18E8 

6742, 3125 


BASE 

FFOO 

506, 794, 1494, 

2338, 



4955, 4966, 4975, 

6153, 



6968, 7017, 7250, 

7341 , 


13255-90003 Hev AUG-01-76 


ii 

it 

ii 

n 

ii 

it 

ii 

ii 

it 

if 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 
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ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

9161 , 
9335, 

9165, 

9339 

9197, 

9201 , 

9205, 

9249 

2962, 

3090, 

5029, 

5750, 

6988, 

7003 

7292, 

8203, 

8926, 

8929, 

8937, 

9230 


9245 


5618 , 

6327 




9718, 

9724, 

9728, 

9731 , 

9752, 9754, 

9770, 

9774, 

9766, 

9789, 

9873, 9876, 

9907, 

9913, 

9915, 

9917, 

9920, 9923, 

9938, 

9940, 

9947, 

9949, 

9951, 9953, 

9979, 

9982, 

9985, 

9987, 

10002,1 0004, 


2744 


96 36 


2599, 

2605, 

2611, 

3313, 

3/65, 

4886, 

6364, 

6375, 

6679 , 

6767 , 

6803, 

6816, 

7 8 98 , 

8323, 

8423, 

6523, 

89 / 8 , 

8980, 
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9166, 9180, 9574 


BASE2 

FEOO 

508, 1217 


BASEH 

00 FF 

505, 506, 507, 1616, 2571 


5ASEH2 

OuFE 

507, 508 


BCKSPC 

BEGIN 

1 FFO 
0000 

8422, 9738 

904, 914, 922, 930, 937, 

945, 954, 962, 2647, 906, 



9995 


BELLIM 

og08 

377, 1425 


BFSPCE 

CFFF 

578, 10o9, 9672 


BINOCT 

0802 

2668, 4424, 4426 


BINXMl 

0002 

38 2 


BK1019 

1922 

b7 85 , 6778 


BKTOSO 

1 926 

b796 , 6781 


BKXOoO 

1938 

6806, 6800 


BKTIOO 

1939 

b8 1 1 , 6770 


BKT1 10 

194/ 

6827, 6857 


BKT120 

1949 

6829, 6854 


BKT130 

1 94D 

6835, 6852 


BKI'150 

1956 

6850, 6831 


8KT210 

1830 

6620 , b67 0 


BKT220 

18 39 

6628 , 66bl 


8KT230 

1 836 

b630, b615 


BKT240 

1868 

b652 , b6 49 


8KT250 

1866 

b654, 6682 


BKT300 

1 87 A 

6667, b619 


BKI3I0 

1686 

667 7, b6 40 


BKT400 

1 69u 

b687 , 6636 


BK1410 

1 8 AC 

6703, 6719 


BKT420 

16B5 

b7 08 , b7 1 5 


BKT430 

1 8D1 

b724, 6710 


BKT450 

1608 

6736, 6699, 6720 


BKT500 

l 6F0 

6750, 6643, 6651, b659 


BE 1510 

1 8Fo 

6753, b728 


BKTAB 

1 8 F F 

6762, 9853 

7232 

BLK.F1L 

FF9 1 

575, 57b , 2321, 2338, 3051, 

BLK.MDE 

0o02 

123, 1712, 2132, 4018, 47^4, 

5 3 3 1 

bLKSM 

OOOF 

378, 1140, 1951, 1957, 19«0, 

1997, 2037, 2893, 2923, 3026 

3058, 3625, 5830, 6872, 7361, 

7519, 7575, 7593, 7612, 9365 

BLKSZ 

0010 

379, 1137, 1156, 11/8, 2000, 

2900, 3201 

BLKTRG 

OoOl 

80, 1665 

6321, b476, 9379 

BLKTRM 

5u04 

233, 234, 1646, 5441, 5646, 

BN2DE0 

08 1 D 

2704, 1003 


BN2DE1 

0623 

27u7, 5096, 9333 


BN2DE2 

0826 

2709, 5119 


BN2UEC 

062E 

2731, 1002, 4431 


BN0010 

OHOC 

26/6, 2687 


BNR1G0 

2629 

888, 889, 1683 


BOT 

0020 

727 


BRKDC 

123B 

5160, 5710, 6554 


BSYCHK 

26 3 A 

897, 898, 5919 

96 7 3 

BUFBGN 

FF8D 

580, 581, 1073, 1827, 3575, 

BUFBSY 

0080 

770 

3577 

BUFEND 

FF8B 

581, 585, 1070, 1826, 1830, 

BUFMSG 

OF 2 7 

4443, 999, 1844 


C 

0043 

318, 1405 
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it 

it 

ii 

ti 

it 

ii 

ii 
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ii 

it 

it 

ti 
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If 

H 

II 

H 

II 

1! 

II 

II 

II 

II 

II 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

CALTST 

FF75 

61 1 , 

612, 9180, 

9630 


CAPSLK 

0001 

122, 

4018 



CARO 10 

100B 

4614, 

4600 



CARRET 

0FF2 

4598, 

9947 



CDSPEN 

FF7 7 

609, 

610, 8830, 

8904, 8977 


CHAIN 

1 96D 

6874, 

1356, 1689, 

1965, 2467, 2476, 3431, 

3714, 5592, 



5834, 

5947, 6657, 

7363 


CHAINO 

1968 

6868, 

7110, 7133, 

7940 


CHAIN 1 

1969 

6870, 

9495 



CHAR 

FF88 

587, 

588, 1566, 

1633, 4996, 5222, 6128, 

8648 

CHAR IN 

FF9C 

566 , 

567, 1333, 

1378, 1432, 5612, 5614, 

9116 

CHD000 

1 AO A 

7021 , 

6954 



CHD010 

19A4 

6951 , 

6947 



CHD020 

1 9D0 

6987, 

7009 



CHD050 

1 AO 1 

7013, 

6982, 7004 



CHD100 

1 A19 

7042, 

7027 

* 


CHD110 

1A22 

7052, 

7072, 7103 



CHD120 

1A49 

7077, 

7057, 7066 



C HD 1 30 

1 A57 

7089, 

7080 



CH0140 

1 A5E 

7095, 

709 3 



CHD150 

1 A6C 

7101 , 

7098 



CHD200 

1A70 

7109, 

7064 



CH0210 

1A7 4 

7116, 

7054 



CHD250 

1 A8 8 

7132, 

7062 



CHD260 

1 ARC 

7135, 

7121, 7125 



C HD 400 

1A91 

7147, 

7 0o5 , 7099, 

7117 


CHD500 

1 A9 A 

7163, 

7024 



CHD510 

1AA1 

7170, 

7175, 7184 



CHD515 

1 AAE 

7176, 

7172 



CHD520 

1 ABO 

7182, 

7174 



CHEKCC 

0040 

7 3 




CHIOOO 

0342 

1471, 

1463 



CHI010 

035F 

1493, 

1556 



CHI020 

0380 

1523, 

1503 



CH1030 

0393 

1528, 

1526 



CHI050 

03A8 

1549, 

1487 



CHI100 

03R9 

1563, 

1483, 1499, 

1505, 1510, 1551, 1554 


CHI 1 10 

03C4 

1575, 

1585, 1590 



CHI200 

03E5 

1612, 

1601 



CH1270 

040A 

1632, 

1624, 1628 



CHINT 

0350 

1479, 

1467, 1475, 

1901, 2151, 5613 


CHINTO 

0330 

1459, 

989 



CHINT 1 

03B9 

1562, 

1473, 2150 



CHINT2 

03 AO 

1541, 

1906 



CHK010 

1025 

4653, 

4695 



CHK050 

1028 

4661 , 

4647 



CHK060 

10 34 

4671 , 

4688 



CHK070 

lo3 7 

4675, 

4649, 4689 



CHK100 

1038 

4680 




CHK150 

1 03 A 

4686, 

4666 



CHKlbO 

1041 

4693, 

4665 



CHKCT1 

0424 

1656, 

5357, 6293 



CHKCTL 

0412 

1645, 

9731 



CHKFMO 

1972 

6894, 

6763, 8321 



CHKFMS 

1976 

6897, 

1417, 2149, 

2369, 2489, 3111, 3193, 

3362, 3508 | 


5822, 


4528, 
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li 

it 

u 

n 

it 

i« 

li 

it 

it 

it 

ii 

li 

it 

li 

ti 

4798, 5361, 5380, 5450, 
8213, 8447, 8^32, 8967, 

CHKFMT 

197B 

6901, 5420, 6361, 6372, 

CHKL1Q 

ion 

4640, 4994, 8647 

CttKLIM 

1017 

4643, 973 

CHKMLK 

1981 

6916, 21/0, 6461 

CHKRTN 

FF8 o 

588, 589, 3367, 8209, 

CHKSFi'v 

1 98C 

6932, 1367, 1716, 1750, 
3961, 4599, 49i2, 5333, 
8656, 8747, 8803, 9238, 

CHKSUM 

0881 

2819, 4153, 4199, 4305 

CriRDEL 

1 999 

o945 , 6957 , 9823 

CHRDL1 

1 At 9 

7041 , 6996, 7 2u6 , 7426 

CHRDL2 

1 AB8 

7203, 4876, 7655, 8253, 

CHRltMS 

1 AC1 

7229, 7488 

CHRLGC 

0002 

5758, 1215 

CHRSET 

FF7 2 

616, 617, 1278, 3866, 

CHRSTB 

2 758 

9902, 3854 

CHSAV 

FF98 

5/0, 572, 6953, 6955, 

7148, 7424, 7427 

CIL 

0001 

698 

CIR 

0002 

697 

CKBRKY 

OOOA 

218, 6548 

CKDSRF 

1 u47 

4702, 1550, 1623, 1913, 

CREDIT 

1 04D 

4709, 2176, 2248, 3336, 

CKIGKY 

0008 

216, 4098, 5322 

cklnmd 

105F 

4733, 5373 

CKPROT 

1065 

4742, 23/8, 3053, 7247, 
9610 

CKRMTE 

1 06 A 

4749, 5179, 5259, 6301, 

CLA010 

1100 

4900, 4904 

CLBLXF 

1070 

4769, 974, 39/7, 5066, 

CLCMFL 

1 3DC 

5521, 3862, 6 1 3 1 f 84v7 

CLEAR 

089D 

2849, 9812 

CLEARL 

1C3C 

7538, 962, 3129, 4800, 

CLEARS 

1 0 8 F 

4795, 963, 9817 

CLEROl 

1C9C 

7632, 4859 

CLER02 

lC9u 

7634, 7069, 7313 

CLERLO 

1C5E 

7568, 7440 

CLERL1 

1C61 

7570, 7127, 7137 

CLERLA 

1C54 

7553, 7542, 8678 

CLL120 

1C7F 

7598, 7602 

CLL160 

1C8A 

7608, 7595 

CLL310 

1C98 

7618, 7613 

CLL400 

1C9A 

7625, 7543 

CLL510 

1 C 9 F 

7637, 7645, 7656, 76b4, 

CLL540 

1CB0 

/ 649 , 7641 

CLju544 

1CB3 

7654, 7668 

CLL550 

1CB9 

7661, 7650 

CLL580 

ICC A 

7674, 7639 

CLRAL1 

1 OFF 

4898, 1063, 1739, 4186, 

CLRALL 

tOFb 

4885, 9797 

CLRDFL 

1601 

o08 4 , 1336, 4797, 5887, 

CLRMF2 

04 A A 

1767, 4954, 5079, 5543, 

CLRTHG 

0000 

257, 4787 


6240, 
9013, 
6 463, 

6941 , 
9103, 
7026, 

7287 , 
9423, 
7150, 

7455, 
9478 , 
7 8 41 , 

7541 , 

9509 

9564, 

7875 

9602 

8240, 

2129, 

5433, 

8484 , 
2211 , 
56 75, 

8488, 

3879, 

5695, 

9108 

3899, 

6946, 

3922, 

7554, 

3944 

7776 


9582 

8914, 9469 


3946 


6^89, 

7 002 , 

7007 , 

7046, 

7 0 81 , 

712 3, 

2123, 

3389, 

3883, 

4096, 

8533 
5501 , 

5531 , 

7757 


7907, 

8518 , 

8869, 

9030, 

9055, 

9066, 


6527 

5466, 5635, 9650 


8702, 9818 


7669, 7679 


4292, 8601 

6485, 7771, 9383 
8541 
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CLRTKM 

0002 

57, 

9463 







^CLRXGN 

1088 

4786, 

5130, 

6268 








CLS100 

IOC 9 

4837, 

4799 









C LSI 1 0 

10D4 

4848, 

4841 









CLS120 

10D9 

4852, 

48 7 2 









CLS130 

1 ODD 

4858, 

4843 









CLS200 

1 UE4 

4866, 

4870 









CLS210 

1 0E5 

4868 , 

4877 









CMBASE 

OOFF 

140, 

141 









CMDEXC 

0008 

725 










CMFLGS 

FFFb 

149, 

150, 

1019, 

1337 , 

1664, 

1875, 

4490, 

4750, 

5325, 

5522, 



5556, 

7446, 

8714 








CMND 

FF55 

751 , 

7 72, 

2611 , 

5921 , 

6169 






CMPLIM 

FF4o 

792, 

793 









CMSTOR 

FFOO 

141 










CNTFAD 

FFCC 

513, 

1614, 

2708, 

2734, 

3998, 

9667 





CNTRLC 

Ff 62 

731, 

741 









CNTXFft 

0002 

644 










COMMA 

002C 

304 










COMMON 

FFFF 

139, 

140, 

143 








CONDIS 

0001 

27, 

2122 









CONDLF 

0A69 

3306, 

4331 , 

4358 








CONUTN 

2b 1 4 

8 7 8 , 

879, 

5743 








COUNT 

FF8 4 

59 3, 

594, 

2902, 

2936 







CR 

GOOD 

292, 

1310, 

1433, 

1472, 

1553, 

1896, 

5430, 

5615, 

6324, 

9123 

CRA010 

205D 

8511 , 

8515 









CRA040 

2028 

8480, 

8455 









CRA060 

2039 

b490, 

8466 









CR AO 70 

2049 

8497, 

8494 









•CRA100 

2077 

8529, 

8513 









CRADV 

2057 

8508, 

8446 









C RAD VI 

2023 

84 70, 

1279, 

1 5b7 , 

2316, 

4395, 

5467, 

5701 , 

8491 



CRAFLG 

F F b 7 

667, 

689, 

1480, 

8472, 

8523 






CRI100 

1 ACF 

7246, 

9028 









CRX104 

1AD5 

7249, 

8892, 

8938 , 

8943, 

8966 






CRIUO 

1 AD9 

7253,, 

72 77 , 

7286, 

7 288, 

7293 






CR1120 

1 ADF 

7258, 

7256 









CRI140 

1AFX 

7 274, 

7295, 

7 364, 

7400 







CRI150 

1 B22 

7300, 

7291 









CRX152 

1827 

7304, 

7 306 









CRX154 

1B2F 

7309, 

7303, 

7 311 








CRI158 

1B39 

7319, 

7281 









CRX159 

1B44 

7 326, 

7283 









CRH 60 

1 b4 7 

7334 , 

7322 









CR1170 

1B48 

7336, 

7325 









CRX180 

1 B49 

7338, 

7376 









CRI 200 

185D 

7 356 , 

7279 









CR 1240 

1B6E 

7368, 

7362 









CRI260 

1B83 

7387 , 

7378 









CRX300 

1B89 

7397, 

7 2b9 









CRX305 

1B91 

7402, 

7265 









CRI310 

1 BAF 

7420, 

7434 









CRI 320 

1BC3 

7431 , 

7412 









CRI330 

1 BD8 

7445, 

7415 









CRI400 

1C0C 

7 478 , 

7466, 

7470, 

7490 
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it 

!i 

II 

II 

II 

II 

ii 

it 

ii 

ii 

ii 

ii 

ii 


ii 

ii 

n 

ii 

ii 

ii 

it 

ii 

it 

it 

ii 

ii 

H 

II 

II 

II 

II 

II 

ii 

ii 

ii 

ii 

i» 

ii 

ii 

ii 

it 

ii 

ii 

ii 

i 

» 

i 

i 

i 

i 

it 

ii 

ii 

ii 

CRI450 

1C25 

7494, 7473, 7482 








CR1500 

1C2E 

7516, 7305, 7310 








CR1510 

1 C39 

7523, 7520 








CRLF 

209b 

8546, 4349, 4387, 

4388 , 

4585, 

4591, 

4615, 

6482, 

8328, 

8 358, 



8379, 8534, 9397 








CRP025 

1 17Q 

4993, 49b8 , 4977 








CRP050 

1180 

4995, 4984 








CRP200 

1 \92 

5011, 5006 








CRP500 

1 lAo 

5035, 5012 








CRPTA6 

2760 

9911, 4957 








CKRET 

21B8 

8786, 4330, 8547, 

9743 







CRRET1 

21C8 

6794, 5363, 5362, 

7985, 

9508 






CRS100 

1215 

5117, 5106 








CRSNGO 

UE4 

5084, 1697 








CR TOFF 

Oo80 

410, 1193, 2853, 

4183, 

017 2 






CSU100 

0b84 

2823, 2827, 2831 








CSU110 

0«9A 

2841, 2838 








CT8DLY 

Ou20 

775, 2608 








CTBLnK 

FF5 3 

773, 774 








CTRL I'R 

FF5 2 

774, 776, 2605 








C TOC UP 

26 2C 

889, 893, 5913 








CT 1 ADR 

FF33 

819, 820 








CTIBPT 

FF2F 

821, 822 








C TIC NT 

FF2C 

822, 823 








CTXCSM 

FF2A 

824, 825 








CT1JMP 

FFEO 

1 b4 , 165, 1110 








CTIN1R 

2 8 3D 

898 , 6014 








CT1SPT 

F F 3 i 

820, 821 








CTiSTA 

FF29 

825, 829 








CT1TRL 

FF2B 

323, 824 








CTIVEC 

FEE! 

163, 164, 1108 








CTLLiM 

0020 

298, 1413, 1 4b6 








CTLRED 

2808 

874, 875, 5744 








CTMON 

2 82F 

893, 894, 5936 








CTRDKY 

00 AO 

5722 








CTSTAT 

F F 6 b 

669, 700 








CTUlN 

008 v 

849, 1127 








CUR100 

1 i DE 

5080, 5073 








CURAD2 

2002 

8442, 4340, 4375 








CURADR 

FFC3 

530, 532, 1496, 

1530, 

2095 , 

2386, 

2540, 

2559, 

3212, 

3818 



4538, 6745, 7988, 

8040 , 

8481 , 

86 74 





CURAOV 

2u05 

8445, 1533, 4385, 

8 443, 

9095 






CURCOL 

FFC1 

538, 539, 1422, 

1543 , 

2329, 

2331 , 

2362, 

2402, 

2443, 

2945 



3068, 4951, 49ob, 

5021 , 

5095, 

57o6 , 

6227 , 

6 36 4, 

6374, 

6696 



6765, 6961, 7015, 

7 341 , 

7 3 49, 

7450, 

7486, 

7898 , 

8323, 

8423 



8453, 8510, 8562, 

8670, 

8676, 

8701 , 

8795, 

8858 , 

88 7 6, 

93 74 



9464, 9481, 9566 








CURFKY 

FFA4 

554, 555, 5593, 

587 3, 

5878 






CURPD 

20 AE 

8572, 9809 








CURPH 

1027 

7769, 978, 1231, 

9852 







CURPHl 

1 D2C 

7774, 6576, 8392, 

8503, 

9041 






CURPHD 

1107 

4911, 979, o621. 

9813 







CURPL 

20 A 1 

8559, 9811 








CURPL1 

20 A3 

8561, 8555 








CURPL2 

2083 

8579, 8565 
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it 

it 

it 
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it 

it 

it 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ti 

il 

ii 

ii 

ti 

ii 

H 

II 

II 

II 

11 

II 

II 

II 

II 

H 

II 

ii 

II 

II 

II 

II 

H 

II 

Ii 

II 

II 

ti 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

:urpoi 

114F 

4963, 

9920, 9929 

'tURP02 

1 1 5 A 

4972, 

9926, 9935 

CURP03 

1165 

4981 , 

9923, 9932 

CURP04 

1198 

5020, 

6769, 6805, 6844, 8361 

CURPGS 

1 1 3 A 

4950, 

9884 

CURPR 

209C 

6553, 

9810 

CURPRT 

2 1C5 

8792, 

3130, 3225, 3507, 4914, 7775, 8679, 8789, 9814 

CURPU 

20R5 

8584, 

9808 

CURPUl 

2 OB 7 

8586, 

8574 

CURROW 

FFCO 

539, 

540, 1194, 1511, 2232, 2237, 2446, 2561, 2986, 3083, 



3228, 

3313, 3386, 3506, 3738, 3746, 4514, 4943, 4975, 4989, 



5007, 

5042, 5104, 6119, 6494, 6497, 6607, 0616, 6623, 6638, 



o67 2 , 

6673, 6711, 6716, 6725, 6737, 6755, 6776, 6948, 6990, 



6997, 

7458, 7495, 7547, 7847, 7856, 7868, 7998, 8033, 8034, 



6587 , 

8661, 8680, 9240, 9250, 9440, 9512, 9584 

CURSEN 

1 1D9 

5077, 

9845 

D 

004 4 

319, 

8043 

DATATR 

0040 

739 


DATCOM 

0020 

769 


DBLHOL 

ooiu 

726 


DC 2 

0012 

295 


DC 2 GO 

122 8 

5137 , 

1693 

DC2SND 

0080 

46, 

5355, 6290 

DC 3 

Ou 1 3 

296, 

1474 

DCC0.L0 

1 24C 

5185, 

5180 

DC ERR 

1251 

5190, 

6168 

DCH010 

2 3 3 A 

9117, 

9124 

DCH020 

23 3D 

9119, 

9122 

)CH100 

2350 

9131, 

9100 

*fc>CHAR 

FF89 

586, 

587, 2948, 2980, 3006, 3071, 4337, 4530, 5028, 7230, 



7250, 

7284, 7339, 7398, 8811, 8828, 8850, 8885, 6950, 8980, 



9035, 

9088, 9107 

DC 1 OFF 

0010 

104 


DCJMPO 

0080 

61 


DCJMP1 

0001 

65 


DCJMIP2 

0002 

66 


DCJMP3 

0004 

67 


DCJMP4 

0008 

68 


DCJMS2 

5006 

235 


DC OMSK 

5005 

234, 

235 

DCMOIO 

128D 

5247, 

5241 

DCMCT1 

1240 

5187, 

1038, 5545 

DCMCTL 

1242 

5177, 

1658, 4788, 5132, 5143, 5162, 5315, 5511, 5657, 6427 

DCMERR 

0001 

89, 

3984 

DCMINT 

1234 

5151 , 

936 

DCMNUS 

1288 

5245, 

971, 9915 

DCN005 

1 26C 

5221 , 

5219 

DCNOIO 

1278 

5230, 

5233 

DCNUM 

1262 

5215, 

969, 9917, 9976,10004 

DC PLUS 

1286 

5239, 

970, 9913 

DC TEST 

1299 

5258, 

1000, 5324, 9860 

DCXB2D 

12A6 

5274, 

3924, 4611, 5677, 5697, 8131, 8492, 8501, 8767, 8774, 



9033, 

9105, 9134 

DECRDX 

000 A 

130, 

1732 

DEFSK i 

0008 

83, 

3881, 3901, 4491, 8715 
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vmt ** mm ^ 



DELAY 

12B3 

5290, 

1439 




mm «5 mm mm Sm 



DELAYO 

1 2 AC 

5282, 

9807 







DELTRM 

0000 

655 , 

2555, 

8105 






DEiiWRP 

1991 

6940, 

9822 







oentab 

2754 

9896, 

8805 







DE tfF LG 

FE7F 

847 , 

854, 

1131 , 

2626, 

6012 




DFCTOF 

1490 

5685, 

5711 







DFLGS 

FF6E 

641 , 

652, 

1034, 

1300, 

1415, 

1649, 

1708 , 

4111, 4434, 5275, 



56 36, 

60 71 , 

6085, 

6345 , 

6414, 

8538 , 

9391 


DFS100 

2OC0 

8611, 

10006, 

10013 






DFS110 

20D5 

8618, 

10020 







DFS120 

2 ODD 

8625 , 

10021 







DFS200 

20E2 

8636, 

8621 







0FS210 

20EF 

8644, 

8641 







DFS220 

2 OF 2 

8646, 

8614, 

8643 






DFS230 

214E 

8689, 

8685 , 

8687 






DFS250 

2 1 5 A 

8699, 

8673 







DFS300 

2184 

8746, 

10027 







DFS350 

21AB 

8766, 

9708 







DFS360 

2 1 B2 

8773 , 

9710 







DFSFK Y 

2oC0 

8598, 

98b9 







DFSTAB 

2 7 DO 

10000 , 

8602 







OFSTBO 

2660 

9716, 

1752 







DFSI62 

27F0 

10025, 

8692 







DFSTB3 

2654 

9706, 

8761 







OF TO 10 

2 7EF 

10019, 

10008, 

10015 






OIS020 

2205 

8871 , 

8969 







DIS030 

2213 

8882, 

8870, 

8899, 

6915, 

8931 , 

8941 , 

8966 , 

8968 

DIS035 

223F 

8911 , 

8887 







DIS040 

2247 

8920, 

8897 







D1S042 

225C 

8936, 

8928 







DIS043 

226b 

8947, 

8930, 

9031 






D1S044 

2275 

8954, 

8907 







D1S045 

2278 

8963 , 

8925 







DIS050 

2287 

8974, 

8890, 

8896 






DIS054 

2295 

8983, 

8976 







DIS060 

229F 

8994, 

8852 







01 SO 7 0 

2 2B4 

9012, 

8998 







01 SO 80 

2 2 BE 

9021 , 

8996 







0IS090 

22CE 

9029, 

9007, 

9025 






OIS092 

2204 

9032, 

7248, 

8875, 

9056, 

9067 




DIS093 

22E5 

9040, 

9016 







01S100 

2 2 EC 

9052, 

8863, 

9000 






01S110 

2 301 

9065, 

8988, 

9006, 

9054 





0IS114 

230A 

9069, 

9063 







D I S 1 2 0 

08CF 

2898, 

2901 







DIS140 

08E1 

2915, 

2929 







DIS160 

08FA 

2935, 

2904 







0IS1 70 

0915 

2955, 

2947, 

29b 1 






0 1 S 1 7 5 

0916 

2957, 

2950 







01 SI 80 

09 ID 

2965, 

3016, 

3030 






01S210 

0933 

2983, 

2981 







0 IS 2 2 0 

094 A 

3002, 

2881 







01S240 

0954 

3013, 

2920 







DIS400 

095 A 

3021 , 

28 8 8 
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I SC N T 

0006 

263 , 

5167 






JSLN1 

0F9E 

4513, 

1529, 

1905, 

2995, 

3095, 

5435, 

7751, 8044, 9518 

D1SLN2 

OFAi 

4515, 

5284 






DISLN 3 

OF A 4 

4517, 

1622 






0ISLN4 

OF A 5 

4519, 

5201 , 

6166 





D1SLNK 

0F95 

4506, 

3171 , 

3290, 

7835 




DISMDM 

1240 

5166, 

9850 






DISPCO 

2 IDF. 

8813, 

4369, 

4374 





DISPC1 

2 1 £0 

8825, 

3956, 

4532, 

6244 




D1SPC2 

21E2 

8827, 

4579, 

6404, 

7006 




OISPEN 

2 1CF 

8802, 

9887 






DISPLO 

22 Ab 

8997, 

5030 






DISPjj 1 

08 AB 

2877, 

7347, 

9068 





DISPL2 

08B / 

2884, 

9062 






OISPLA 

2 1 £9 

8849, 

7234, 

9039, 

9042, 

90/4 



D1SPLC 

21D9 

8810, 

9898 






UISPL* 

0o04 

766 







OISPST 

FFFE 

143, 

144, 

2094, 

2553, 

4493, 

7715, 

7750 

DLY010 

l 2BC 

5296, 

5305 






DLYO20 

1 2C0 

5299, 

5303 






DMAOFF 

Oo6 0 

409, 

4507 






tfOOCTI 

2835 

895 , 

896, 

1107 





DPS100 

1308 

5345 







DPS200 

1 30E 

5353, 

5332 






DPS210 

1318 

5358 







UPS215 

1 3 1 B 

5 360, 

5 37 4 






DPS220 

1322 

53b8 , 

5334, 

5337 





DPSENl 

1331 

5378, 

6496 






95END 

12D6 

5321 , 

5709 






i^PSGU 

1 33B 

5394, 

1699 






USG010 

134b 

5399, 

5424, 

5436 





DSG020 

134E 

5406, 

5410 






DSG100 

135D 

5415 , 

5408 






DSG110 

1376 

5429, 

5421 






OSG20O 

1 38 A 

54<*0 , 

5396, 

5416 




* 

L)SG2 1 0 

1399 

5449, 

5419 






DSG220 

1 3 A 7 

5458, 

5444, 

5451 





DSG225 

1 3 AA 

5460 , 

5445 






DSG230 

1 3B1 

54b 4 , 

5411 






DSM010 

1CE3 

7705, 

7713 






DSM500 

1CFB 

7723, 

7699 






DSM510 

1D01 

7726, 

7735 






DSP010 

04 37 

16/1 , 

1677 






DSP020 

0440 

1688 , 

167 3 






DSPASC 

229F 

8993, 

B 6 7 1 , 

9098 





DSPBGN 

FF AA 

551, 

552, 

1081 , 

1146, 

18 40, 

3580, 

4002 

DSPBIM 

0040 

716, 

9576 






DSPCHO 

2310 

9096, 

4616 






DSPCH1 

2351 

9133, 

6366, 

6377 





DSPCHR 

231 A 

9094, 

3923, 

3926, 

4341 , 

4612, 

5700, 

9724 

OSPEND 

FF A 8 

552, 

553, 

1078 , 

1136, 

1839, 

1842 


DSPFNC 

0001 

111 , 

4704, 

5667 , 

5689 




DSPL1M 

FBFF 

491 , 

1077 






DSPMSO 

1 CD6 

7694, 

5196, 

6121 





DSPMSt 

1CD7 

7696, 

1268, 

4110, 

4113, 

526 3 





13255-90003 Rev AUG-01-76 
SYMBOL VALUE REFERENCED ON 


DSPMSG 

1 CDA 

7698, 

967 


DSPSTR 

FE4F 

498 , 

1199, 1209, 1215, 1217, 7700, 7714 


DSPTAB 

0451 

1692, 

1702, 1668 


DSPTCH 

0429 

1663 , 

1326 


DSPTST 

2314 

9087, 

4363, 4383, 45bl, 8690 


DSPTYP 

FFAE 

544, 

550, 1230, 6898, 6933, 8719 


ECONTF 

FFCD 

512, 

513, 518, 542, 1014, 1050, 1270, 

1620, 2748, 2779, 

ECOUTB 

1 3BA 

3653 

5483, 

9159, 9189, 9213, 9217, 9220, 9232, 

9247 

EDIT 

0010 

115, 

4711 


EDTWRP 

Ell 

0008 
26C 1 

59 

9794, 

9772 


Ell A 

26CB 

9801 , 

9777 


£12 

2601 

9 8 ob , 

9780 


El 3 

2720 

9859, 

97 8 3 


ELM 1 00 

0992 

3079, 

3066, 3070, 3073 


ELM 110 

099E 

3089, 

3093 


ELM130 

09 Ar 

3100, 

3098 


ENDBLK 

0007 

264, 

5131 


EN0CUL 

F F 2 1 

839, 

840 


ENDDSP 

0080 

717, 

9576 


ENDPR 

OOCl 

354, 

2397, 4871, 5750, 5754, 6221, 6602, 

6602, 7551, 8132, 

ENDHOfc 

FF20 

8132, 

840, 

8493, 8873, 9215 
9444, 9516, 9618 


ENDTST 

0006 

214, 

2596, 4392 


ENHL1M 

OOBF 

352, 

7056, 7276 


ENHNCF 

OOFF 

5734, 

1380 


ENrtOUf 

FF7 6 

610, 

611, 9153, 9166, 9507, 9632 


ENL100 

1 3D5 

5509, 

5502 


ENR100 

l 3F0 

5539, 

5532 


ENTLCL 

1 3C7 

5500, 

1923 


ENTRCD 

0098 

5719, 

5327 


ENTREM 

13E2 

5530, 

187 8 


ENXREN 

16C7 

o252 , 

9848 


EOF 

EOL 

0001 

OOCC 

733 
3b4 , 

1504, 2944, 3014, 3028, 3064, 4060, 

4574, 4938, 5750 

EOLADR 

F F 9 4 

5752, 
8 312, 
573, 

7044, 7063, 7136, 7260, 7389, 7557, 
8886, 9418 

574, 2886, 2985, 7368 

8197, 8263, 8283 

EOLMO \l 

0971 

3056, 

28 79 


EOLMV 

FF9 0 

576, 

577, 3103, 8170, 9026 


EQLMVO 

0969 

3050, 

2557 

4464, 4467, 4470 

EOP 

OOCE 

365, 

2049, 2200, 3491, 4427, 4444, 4461, 

ERREOP 

0F50 

4571 , 
4460 , 

4810, 4860, 4873, 6044, 7676, 7944, 
4418 

8199, 8314, 9414 

errflg 

FFF7 

150, 

151, 3982, 4046, 4379, 6181 


ESC 

00 1 B 

297, 

1375, 1555, 5484, 5682, 5750, 6520 


ESC010 

0473 

1715, 

1710 


ESCAPO 

0481 

1733, 

1718, 3855, 6135, 6419, 8806 

9966, 9968, 9970 

ESCAP1 

048F 

1740, 

5235, 5253, 8760, 8775, 9712, 9938, 


9985, 10002 


ESCAPA 

04 7 F 

1731 , 

4958, 

6203, 8603, 8693, 8762 

ESC APB 

0487 

1736, 

4998, 

8650 

ESCAPE 

0461 

1707 , 

9728 


ESCEN1 

04A 1 

1753, 

1751 , 

5670 
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ESCEND 

0495 

1748, 

972, 

1276, 

1630, 

1914, 

5251 , 

5688, 

9752, 

9754, 



9759, 

10017 

9761 , 

9789, 

9803, 

9833, 

9835, 

9881 , 

9888, 

9907, 

ESCFLG 

FFD1 

176, 

179, 

1419, 

1625, 

1741 , 

1756 




ESC I NP 

0008 

635, 

1298, 

1713, 

1757 






ESCLiaID 

00E4 

5727 , 

1394 








escout 

1 7BB 

6519, 

3979, 

5088, 

9652 






ESC SO 

008E 

5726, 

1404 








ESC TAB 

269 A 

97o5 , 

1717 








EVD 

0002 

734 









EW 

0080 

7 29 









EXP010 

237E 

9171, 

9157 








EXP020 

23A2 

9199, 

9182 








EXP030 

23A 1 

9203, 

9179 








EXP100 

23 AC 

9210, 

9152 








EXP110 

23C2 

9224, 

9214 








EXPAND 

2358 

9148, 

993, 

9429 







EXTB2D 

0001 

714 









F 

0046 

320, 

4041 








F1C0DE 

OOFO 

5728, 

5730, 

1363 







F8C0DE 

OOF 7 

5729, 

1365 








FCR005 

1ED6 

8174, 

8184 








FCR010 

1 EDA 

8180, 

8191, 

8206, 

8214, 

8222, 

8242, 

8252, 

8254 


FCR100 

IEEE 

8196, 

8189 








FCRliO 

1 F 2 4 

8223, 

8220 








FCR150 

1F26 

8229, 

8204 








FCR160 

1 F3E 

8239, 

8232, 

8235, 

8237 






FCR200 

1 F 4 5 

8248, 

8202 








FCR250 

1 F55 

6 258, 

8251 








2FCR2bO 

1F56 

8260, 

8182 








FCR400 

1EC8 

8142, 

8104 








FCT200 

1432 

5608, 

5597, 

5616, 

5619 






FCT210 

143o 

5611 , 

5621 








FCTAD1 

0 1E0 

57 30, 

5731 , 

5731 







FCTADO 

FFDF 

5731 , 

5582 








FCTK2D 

0010 

647, 

1301, 

1416 , 

5598, 

5637, 

5886 




FC'l'KEY 

1406 

5579, 

1368 








FDESC 

1 4 A A 

5694, 

9949 








FDESC1 

I486 

5699, 

3927, 

5680, 

5696, 

8753 





FD I SOF 

1488 

5674, 

9951 








FDISON 

1476 

5664, 

9832 








FDISTB 

278C 

9945, 

5669 








FD0100 

1 47D 

5666, 

5660 








FF 

OOOC 

291 









FILCHR 

FF8F 

577, 

580, 

1944, 

2001 , 

7571 , 

7603 




FILL 

OOC 3 

356, 

1509, 

1941 , 

2960, 

3074, 

7 063, 

7126, 

7 282, 

7439, 



7663, 

9228, 

9420 







FILNUM 

FF5E 

747, 

748 








FILRED 

0004 

704, 

1313 








FIVE 

0035 

312, 

943 








FKEYGO 

1451 

5633, 

1698 








FKG010 

145D 

5642, 

5650 








FLDSEP 

00C4 

363 









FLDSR 

1 DC 4 

7901 , 

3509, 

4849, 

8390, 

8499, 

9038, 

9275, 

9543 


FLDSR1 

1DB9 

7895, 

7861 , 

9448 , 

9614 







9756, 

9940, 


7600, 
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it 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

il 

ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

it 

ii 

ii 

it 

ii 

ii 

ii 

it 

ii 

il 

ii 

ii 

u 

ii 

•i 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

FLDSR2 

1E84 

8066, 7678, 7963, 8069, 9527 


FLDSRB 

lfc.83 

8063, 8465 


FLOSRX 

1 E20 

7972, 3909, 6405, 9402 


FLINE 

FF9F 

557, 564, 2098, 2246, 2257, 3162, 3300, 7818, 7821, 

7872 

FLSOiO 

1F61 

8290, 8303 


FLS020 

1 F6C 

8296, 8293 


FLS030 

1F6D 

8298, 8295 


FLS035 

1F7 2 

8302, 8315 


FLS040 

1F75 

8304, 8313 


FLS050 

lF7b 

8311, 8300 


FMICTL 

FF8 A 

585, 586, 84b3, 8531 


FNCLIM 

OOAl 

5724, 1349 


FNCLWR 

0098 

5723, 1351 


FNCTAB 

1 4BC 

5708, 1354 


FNDCH 

1 E AO 

8098, 2398, 8498, 8874 


FNDCriO 

1E9D 

8096, 2384, 8486 


FNDCHR 

1£CF 

b 1 6 8 , 2554, 8143 


FNDCHU 

1EB9 

8130, 7929 


FNDCU1 

1 fc,C 4 

8138, 7915, 8133 


FNDLSO 

t F58 

8281 , 7 4 1> 9 , 8665, 9326 


FNDLST 

1 F5C 

b285, 6635 


FNDRAM 

04B0 

1784, 1072, 1080, 1797 


FNDTAB 

14F.9 

5765, 5895, 5903 


FNDTBl 

14ED 

57 1>8 , 0820, 8334 


FNDTB2 

14FA 

5788, 984 


FOFOiO 

1494 

5679, 5676 


FGRGN 

0 0 9 0 

118, 4079 


FORMAT 

0008 

114, 5800 , 0903, 77ol, 7842 


FORMOF 

1502 

5799, 9831 


FORMON 

1 D 1 8 

7756, 9830 


FOUR 

0034 

311, 935 


FPS 

0u04 

724 , 


FPBLKS 

FF AC 

550, 551, 1154, 1945, 19o6, 2293, 2295, 4812, 4821, 

5812, 



6466 


FRC010 

1 50F 

5813, 5831 


FRC050 

1 5 1 £ 

5825, 5835 


FRC100 

1530 

5839, 5819 


FRCP TY 

0080 

75 


FRCRST 

0004 

82, 1020, 2851, 5197, 6125, 6130 


F RFC NT 

1 50A 

5810, 980, 3337, 5841 


FRMOiO 

04C4 

1801, 1789, 1792 


FRNCT1 

1538 

5848, 9802 


FRNCT2 

153D 

5854, 9804 


FRNMD1 

oooe 

222, 5849 


FRnMD2 

OOOF 

223, 5855 


FRSALT 

4829 

204, 205, 1277, 4084 


FRSOUT 

0010 

636, 9273, 9318 


FRSTBL 

FF92 

574, 575 


FS2000 

1 £80 

8061, 8073 


FS2005 

1E8 3 

8064, 8075 


FSR080 

1DD5 

7913, 7966 


FSR100 

IDE 2 

7928, 7900, 7908, 7957, 7967 


FSR120 

1DE8 

7936, 7916 


FSR140 

1 E2o 

7973, 7938, 7945 


FSR200 

1 E26 

7982, 7930 
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it 

ii 

ii 

ii 

ii 

i« 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

i« 

it 

it 

H 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

14 

II 

II 

14 

II 

II 

M 

II 

II 

II 

II 

II 

It 

Ii 

It 

II 

II 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

SR240 

1E42 

8000, 8028 


**58300 

1 E55 

8021, 8025 


FSR34Q 

1 E64 

8032, 8003 


FSR360 

1 E7B 

6042, 7997 


FST 

0004 

755 


FSTBIN 

000 A 

267 


FSTRAM 

9100 

14, 136, 

503, 1052, 4208 

FSTSND 

0020 

41 


FTB100 

1 4FC 

5790, 5793 


FULDUR 

0090 

18, 2139 


FWD 

0002 

754 


GAP 

00 20 

693 


GBL100 

0576 

1974, 1958 


GBL200 

0584 

1996, 1969 


GBL210 

058D 

2002, 2006 


GDC010 

050C 

1882, 1902 


GDC020 

0514 

1890, 1916 


GDC 030 

05 2 A 

1900, 1894, 

1897 

GDC050 

0536 

1911, 1884 


GDC 100 

0544 

1921, 1876 


GDS010 

2 3D4 

9237, 9303 


GDS020 

2418 

9269, 9264, 

9267 

GDS030 

243C 

9315, 9244 


GDS040 

2459 

9330, 9328 


GDS045 

246F 

9345, 9394 


GDS050 

2470 

9348, 9239, 

9320 

GDSObO 

2478 

9353, 9366, 

9421, 9438, 9532 

GDS100 

2492 

9372, 9358 


DS1 1 0 

24 AA 

9390, 9382 


*SDS150 

24B8 

9401, 9352, 

9415, 9449, 9472 

GDSlfaO 

24BB 

9404, 9242, 

9522 

GDS200 

24BF 

9413, 9360 


GDS210 

24E7 

9435, 9424 


GDS220 

24F9 

9445, 9528 


GDS225 

2509 

9452, 9447 


GDS230 

250C 

9461, 9417 


GDS300 

2522 

9477, 9419 


GDS310 

25 41 

9494, 9479, 

9480, 9484 

GDS320 

2544 

9500, 9367 


GDS350 

2589 

9541, 9511 


GDS360 

258F 

9544, 9510 


GEN 

0020 

758 

9277, 9323, 9349, 9356, 9451, 9466, 9489, 9505, 

GETADR 

F F 7 3 

612, 616, 



9519, 9533, 

9628 

GETBUF 

04CB 

1825, 1099, 

1118 

GETDC1 

0530 

1904, 1288, 

8757 

GETDCM 

04FC 

1872, 995, 

1293 

GETDSP 

242C 

9298, 991, 

5407, 9340, 9430 

GO 

OOB4 

1010, 909 


GOO 10 

0OD8 

1028, 1024 


GO 1 

OODA 

1033, 3938 


GIB005 

04DA 

1831, 1843 


GTBOiO 

04DD 

1838, 1829 


GTB100 

04F2 

1849, 1828, 

1841 

GTBLK 

054D 

1943, 2890, 

2917 
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n 

ii 

ii 

ii 

ii 

n 

ii 

ii 

it 

ii 

ii 

ii 

ii 

it 

it 

i< 

n 

n 

ii 

ii 

H 

ii 

ii 

ii 

ii 

ii 

it 

ii 

*i 

it 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

GTBLKF 

0548 

1940, 2032, 3022, 3196 

GTF010 

1553 

5885, 5876 

GTFCTK 

15 42 

5872, 1302, 5609, 5643 

GTM0D1 

1053 

4718, 9446 

GTMUDE 

1059 

4722, 1005, 5418, 5443, 5600, 6320 

GTNwLN 

059/ 

2029, 2093, 2500 

H 

0048 

321 

HAWGUO 

1254 

5195, 9*8, 1101, 1845, 1912, 4437, 5262, 6048 

H DC 1 00 

1 10E 

4918, 4931 

HDC200 

1 12A 

4936, 4925 

MDC21G 

1136 

4942, 4940 

BNDSHK 

0040 

43, 5355, 5356, 6276 

HNGO 1 0 

1 25C 

5200, 5202 

HOL 

OotO 

694 

HOLCNT 

FF5 1 

776, 777 

tiFDEKl 

0010 

737 

HROERR 

0004 

735 

HTAB 

1F8 2 

8320, 9739, 9816 

HTB100 

1F9C 

8341, 8384 

HTB120 

1 F A 1 

8344, 8371 

HTB130 

1F6D 

b 3 6 9 , 8346 

HTB140 

1FC 1 

8376, 8343 

HTBlbO 

1FA5 

8350 

HTb200 

1FCE 

8389, 8322 

HTBCLK 

1560 

5902, 9796 

WTBLEN 

000 A 

604, 605, 4887 

HXbSET 

1 55 A 

5894, 9795 

KTBTB.L 

FF7 6 

605, 609, 4886, 5773, 6797 

HUP050 

l D7D 

7839, 7798 

HUPO60 

1 D9 2 

7854, 7777 

HUP 100 

1 DA3 

7865, 7782 

ii U P 11 0 

1 0 Ao 

7867, 7843 

LCHOlf) 

1 FD 7 

8401, 8417 

I CHUFF 

1 FDC 

8405, 9825 

iCHON 

IFD5 

8399, 9824 

IDG055 

25BE 

9596, 9583 

1DG060 

25D3 

9606, 9601 

IDG070 

25D 7 

9609, 9604 

IDG090 

25E8 

9616, 9611 

IDG100 

25F.E 

9623, 9603 

IGNTRM 

0001 

656, 2317, 2531, 6401, 6611, 8099, 9597 

INERMS 

OF 3F 

4452, b045 

IM010 

OOFB 

1053, 1056 

IN 1020 

0103 

1062, 1 0b5 

INI110 

016b 

1121, 1117 

IN 1 1 30 

0177 

1130, 1126 

I N 1 2 1 0 

0 1 9 A 

1169, 1184 

1WI220 

0 1 A 1 

1174, 1172 

1 N 1 3 1 0 

0 1 C 8 

1206, 1222 

1 N I T 

0 0 F 4 

1048, 1017, 1021, 1027 

INITDO 

2593 

9563, 990 

INITDl 

2605 

9634, 7406, 9149, 9246, 9322 

INITDG 

259C 

9567, 5395, 6447, 9565 

INITDS 

05C8 

2092, 1190, 1236 

INPDEV 

FF4E 

784, 785 


6563 



SYMBOL 

VALUE 

REFERENCED ON 






3SSSS3 


1NSCHR 

0002 

112, 6972, 

8402, 

8408, 

*NSWRP 

0002 

81, 7448, 

8406 , 

8414 

IN TERR 

1507 

6039, 6059 



intflg 

FFF6 

151, 152, 

2621 , 

2634, 

XNTRP T 

15FB 

6057, 921, 

953, 

961 

INTVEC 

9165 

136, 137, 

1090, 

2583, 

INVRS 

008 2 

411, 5755 



XOBASE 

0080 

392, 396, 

404, 

416, 

IOBNGO 

1568 

5912, 9849 



IOBS ¥C 

156E 

5918, 2850, 

3934, 

4114, 

IOBUF 

FCOO 

493, 494, 

495, 

4185, 

X0BUF1 

FCOO 

496, 1061 



X0BUF2 

FDOO 

497, 4421, 

4429 


IOBUFH 

OOFC 

494, 495 



IOBUFL 

0000 

495 



10CCNT 

FFD5 

805 



IOC DEV 

FFDB 

800 



IOC DPT 

FF4C 

786, 787 



IOCERR 

FF4F 

781, 784, 

4040, 

5924 

XOCINP 

FFD9 

802 



IUCKEY 

2802 

872, 873, 

5739 


IOCMND 

FFD7 

804 



IOCNTL 

281 A 

883, 884, 

5930 


IOCOUT 

FFDA 

801 



XOCRCL 

8700 

405, 1544, 

6008 , 

8796, 

XOCRRw 

8 720 

406, 1514, 
6173, 7717 

2854, 

2989, 

IOCSGN 

FFDD 

166, 167, 

1737, 

4641, 

IOCTCO 

8B00 

417, 2614, 

b047 


MOCTDI 

8620 

420 



IOCTDO 

8B20 

419 



IOCTGO 

1580 

5929, 9876 



XQCTMN 

158b 

5935, 1325, 

6547, 

9120 

IOCTSX 

8B00 

418 



IOCTU 

8B00 

416, 417, 

418, 

419, 

IOCTYP 

FFDB 

803 



IODATA 

FFOE 

165, 166, 

8637, 8645 

672, 

4644, 

10DXSP 

8700 

404, 405, 

406 


XUDNGO 

2820 

885, 886, 

1700 


XOERRB 

0008 

380, 4043 



IOFLG2 

FF64 

712, 720, 

3328, 

4719, 

IOFLGS 

FF65 

700, 712, 

1312 


xoxoto 

15D1 

6025, 6028 



10X020 

1 5D6 

6029, 6023 



IOXNTR 

15 AD 

6003, 944 



IOKB 

8300 

396, 397 



XOKBCO 

8380 

397, 1516, 

1618, 

4521 

XOKE i S 

158C 

5944, 5328, 

5712, 

5713, 

XQKXTB 

1 4CE 

5738, 5945 



IOORG 

2800 

871, 872, 

1123 


10PSGN 

FFDC 

1 67 , 168, 

4642, 

4646 

IOPTR1 

8D00 

425, 426, 

427, 

428 

IOPTR2 

8500 

432, 433, 

434, 

435, 

IORDGO 

2823 

886, 887, 

1681 
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8521 , 

9024 

5298, 

5301 

5152, 

6004, 6058 

425, 

432 

5925 

4214, 

4291 


9378, 9487 

3087, i 319, 3794, 4184, 4509, 4516, 
5216, 5248 


420 

4662, 5227, 5234, 5312, 6040, 6424, 
9425, 9530, 9574 


5714, 5715, 5716, 5717 
436 
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II 

II 

II 

II 

II 

II 

ii 

H 

it 

ii 

n 

n 

u 

ii 

ii 

ii 

ii 

it 

it 

ii 

ii 

ti 

ii 

ii 

ii 

it 

if 

rt 

it 

ii 

ii 

ii 

it 

ii 

ii 

M 

11 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

il 

II 

II 

II 

II 

II 

II 

II 

XORMG1 

1 5 A3 

5985, 1124, 4140, 5965 

i OHM GO 

1593 

5962, 1001, 1040, 1115, 4101, 5914, 5920, 5931, 5937 

XQSTAO 

FF4 8 

790, 791 

IOSTA1 

FF 49 

789, 790 

IOSTA2 

FF4 A 

788, 789 

XUSTA3 

FF4B 

787, 788 

XOSTGO 

2810 

884, 885, 1696 

IWRPON 

1FE6 

8413, 9821 

JMP 

O0C3 

369, 1015, 1109, 1269 

KBDCSrt 

FFFC 

145, 146, 2138 

KBOLOK 

0040 

648, 6072, 6078, 6100 

KBfcJN 

t 5F4 

6070, 4782 

KBFN1 

1 5F A 

6075, 9846 

KBKCTK 

FF71 

617, 619 

KBJMP2 

FFF A 

147, 148, 4107, 5335, 6450, 94b2 

KB0MP3 

FFF9 

148, 149, 9684 

KBJMPR 

FFFB 

146, 147, 2121, 3307, 4009, 4734, 5354, 6275, 6289, 

8787 

KBLOK 

1 60C 

6103, 6311 

KBLOKO 

160 7 

6099, 9847 

h 

004C 

322, 4542, 8686, 92b6, 9334 

LADDR 

FFD5 

671, 6141, 6 1 b5 , 6159, b!75, 6610, 6688, 6691 , 6741, 
7989, 8039 

LCHAR 

FF69 

665, 666, 1634, 5681 

LCHKS.^ 

FFD7 

673, o 1 24 , 6144, 6146, 6187, 6604, 6634 

LCX050 

OoO A 

2148, ^124, 2130, 2134 

LDmTA 

FFDE 

672, 6140, 6153, o 1 85 , 6608, 6614, b754 

LDRO 

1627 

6127, 6147, 6195, 9991 

LDR035 

1640 

6143, 6160 

LDR060 

1 65 A 

0165, 6171, 9994 

LDH10 

1675 

6180, 9992 

LOR 3 

1639 

6139, 9990 

L0R4 

1 64 A 

6152, 9993 

LDRCHK 

0004 

91, 6 1 8 3 

ibORMSG 

0F4A 

4458, 6120 

LDRTA6 

2 79C 

9958, 6133 

LF 

OuOA 

290, 1440, 1462, 1898, 5620, 6330 

UFPOS 

0010 

.35 

LFTBK i 

005b 

351, 9216 

LFTBRC 

007B 

345, 9212 

LFTCTU 

0001 

764 

LFTMGN 

FFBF 

540, 541, 6368, 6375, 67b7, 6816, 6993, 7485, 8793 

LI l 

2 7C7 

9989, 9 9 6 0 , 99b3 

LI0050 

0904 

3128, 3117 

LID200 

09F0 

3168, 3155 

L I D 3 U 0 

09F6 

3177, 3163 

LIX200 

0A61 

3296, 3279 

LI NOLL 

0987 

3110, 9820 

LINOLO 

09DA 

3144, 3118, 3718, 3788 

LINING 

0A27 

3223, 3126 

LIN IN 1 

0A3C 

3247, 3219 

LIN1NA 

0A39 

3243, 3722, 3795 

LININS 

0 AOO 

3192, 7472, 9819 

linwrp 

0004 

31, 3308, 8536 

LLXNF 

FFA 1 

556, 557, 1228, 2035, 2053, 2187, 2194, 2508, 4820 


65 35, 


b75 1 , 


4823 
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LNFIOO 

OAR 1 

3320, 

3316 









'LNFEED 

0 A6F 

3310, 

992, 

5434, 

5454, 

8548, 

8768, 

9517, 

9542, 

9740 


LNKLlM 

00D0 

366 , 

3616, 

7278 , 

9359 







LNKSAV 

FF96 

572, 

57 3, 

2705, 

2732, 

2796, 

2800, 

7357 , 

7404, 

7437, 

7521 



7947, 

8036, 

8355, 

8363 







LOADR 

1611 

6117, 

9885 









LOADR1 

1 6 1C 

6122, 

9886 









LOCKKB 

0001 

209, 

6104 









LOCLIO 

05E4 

2120, 

1377 









LOCLIN 

05EF 

2128, 

1431 









LP 

0040 

728 










LPM 

0001 

722 










LSTCOL 

FFC8 

524, 

525, 

1531 , 

3227, 

3821 , 

6740, 

7974, 

7986 



LSTOCD 

FFC6 

528, 

529, 

3359, 

7952, 

7965, 

8190, 

8978 , 

9631 



LSTFMT 

FFC5 

529, 

530, 

2031 , 

3 361 , 

4853 , 

6 2 31 , 

6246, 

8076, 

8211 , 

8464 



8530 










LSTFWD 

0002 

723 










LSTLIN 

FFC9 

521 , 

524 , 

2097, 

2178, 

2450, 

2966, 

3114, 

3216, 

3218, 

3354 



3771 , 

4802, 

4922, 

6609 , 

6 6 32, 

6653, 

6660 , 

6690, 

6693, 

6743 



6752, 

7460, 

7569, 

8038 , 

b 4b 1 , 

9257 





LSTLU 1 

0A9F 

3355, 

2528 









LSTLU2 

OAAO 

3357, 

3224 









LSTLUP 

0 A9C 

3353, 

2510, 

3815 








LSTRED 

Ff 25 

930, 

831 









LSTROW 

FFC 7 

525, 

528, 

1195, 

2447, 

257 0, 

3725 , 

3765, 

3797 , 

3841 , 

4919 



4929, 

4939, 

6622, 

6738, 

7 848, 

7857, 

7870, 

8035 



LtoBUF 

OOBO 

579, 

1071 









LWDSP 

OODU 

492, 

1079 









MAXCOL 

004F 

375, 

2100, 

2946, 

3069, 

4964, 

6629 , 

6799, 

7 2 b 3 , 

7324, 

7425 



7436, 

7759, 

7920, 

7975, 

798 3, 

8139, 

8 3 26, 

8352, 

8514, 

8566 



8580, 

8626, 

6664 , 

8666 , 

8677, 

9005, 

9325, 

9327, 

9396, 

9483 

MAXROW 

0017 

3 74, 

3315, 

3500, 

3661 , 

3769, 

4920, 

4973, 

5044, 

5051 , 

5052 



5283, 

6118, 

6704, 

7716, 

8001 , 

8585 , 

8590 




MAYEOL 

0040 

408, 

1512, 

2987, 

3064 







MAYKOP 

0020 

407 , 

3793 









MDFLG1 

FFF4 

153, 

154, 

1892, 

4078, 

4703, 

4710, 

4829, 

6902, 

6917, 

6968 



7017, 

8520, 

8749, 

8755, 

9023, 

9697 





MDFLG2 

FFF 3 

154, 

155, 

1435, 

1711, 

1873, 

2131 , 

4017, 

4723, 

5330, 

5452 



5504, 

5534, 

5617, 

6 326 







MEMLQK 

0004 

113, 

3380, 

3394, 

3458, 

4830, 

6919, 

9699 




MFLGS 

FF7 0 

619, 

630, 

1667, 

3325, 

5138, 

5370, 

5541 , 

6303 



MFLGS2 

FF6F 

630, 

641 , 

1297, 

1 4b0 , 

1679, 

1768 , 

4024, 

4770, 

4777 , 

5036 



5102, 

6392, 

6978 , 

9316 







MINUS 

002D 

305 










MLK010 

OB 1 9 

3464, 

2209, 

3457 








MLKFLG 

FF6A 

664 , 

665 , 

3379, 

3396, 

3455, 

9696 





MLKOF 

10C0 

4828, 

2292, 

3376 








MLKOFO 

0AB9 

3373 , 

997 









MLKOFF 

0 ACO 

3377, 

9857 









MLKON 

0 ACB 

3385, 

9856 









MLKROW 

FF6B 

663 , 

664, 

2233, 

3374, 

3392, 

3415, 

3421 , 

3501 , 

3505, 

3662 



3723, 

3735, 

3792, 

3796, 

4982, 

66i 7 , 

6637, 

6705 , 

6717, 

6726 



6775, 

6920, 

7846, 

7866, 

8010 






MLKSCO 

0AE1 

3414, 

996 









MLKSC1 

0 AF6 

3428, 

5584, 

8663 
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issssz: 



ii 

ii 

ii 

ii 

it 

ii 

it 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

M 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

MLKSCH 

OAEE 

3420, 

3705, 

3780, 

7781 




MLOOOS 

0 ADb 

3391 , 

3388 






ML0010 

0AD9 

3393, 

4832 






MLOCK 

OflO 7 

3454, 

1950, 

2171, 

6468 




MLOCKO 

0B04 

3452, 

2236 






MLOCK 1 

OB 1 b 

3462, 

8861 






MLS120 

OAF 7 

3430, 

3436 






MNMDCJN 

1470 

5655, 

9861 






MOVCHR 

0B20 

3484, 

1201 , 

3492, 

7711 




MSGPT1 

FFF 1 

155, 

156, 

5968 , 

7697 , 

7701 , 

7725 


MSGPT2 

FFEF 

156, 

157 , 

4433, 

6041 




MSGPT3 

FFF.O 

157, 

158, 

4430 





MSGPT4 

FFFB 

158 , 

159, 

4419, 

4422 




MSGPT5 

FFE9 

159, 

160 






MSGPrb 

FFF 7 

160, 

161 






MSGPT7 

FFE5 

161 , 

162 






MSGPT8 

FFE3 

1 o2 , 

163 






w 

0 0 4 E 

323, 

4540, 

5596, 

8684, 

9263 



N8LKS 

F F 9 9 

569, 

570, 

2909, 

2927 




NCH010 

0B99 

3629, 

3617 





9072 

NCHAR 

FF9b 

567 , 

568 , 

2882, 

2896, 

2978, 

3004, 9057, 

Nfe>COL 

FFDB 

597 , 

4952, 

4965, 

5016, 

8758 



NEWROW 

FFDA 

598, 

4988 , 

5039, 

7896, 

7903, 

7949, 7995 


NEXTPG 

0B2U 

3499, 

9828 






NMFCTK 

0008 

400, 

1202, 

8619 





NMPNDG 

0008 

1702, 

1669 






NMROLL 

FF8 3 

594, 

595, 

5062 





NODCST 

0010 

69 







NODR VR 

0F59 

44b6, 

5967 






nofnct 

1971 

68 79, 

9741, 

9742 





NORMAL 

0080 

412, 

5755 






NG5EN0 

0004 

645 , 

6484 , 

6506 , 

9570 




nosign 

0080 

384, 

5220 






NO TEST 

0004 

58, 

4108 






NOTSMS 

0F5 1 

4463, 

4109 






NROWS 

FF9A 

568 , 

569, 

2174, 

2333, 

2336, 

2491, 2502, 

3466 

NULL 

0000 

289 







NUM2K 

0800 

367, 

4125, 

4128, 

4152 




NUMBER 

OOCo 

359, 

8234 






NUMSWP 

OOOF 

542, 

543, 

8724 





NwRWST 

008 0 

639, 

4953, 

4985, 

5037 




NXBObO 

0B67 

3576, 

3591 






NXB100 

0B75 

3583, 

3574 






NXB150 

067E 

3588, 

3586 






NXB200 

0B83 

3592, 

3579, 

3582 





NXSBLK 

0B5E 

3570, 

4198, 

4280, 

4304 




NXT040 

0B35 

3504, 

3665 






NXT100 

0645 

3523, 

3503 






NXTllO 

084 A 

3529, 

3536 






NXT120 

0659 

3542, 

3534 






NXTCHO 

0B8 o 

3611, 

4937, 

5875, 

7096, 

8675 


7171, 7190, 7408, 

NXTCHR 

0687 

3613, 

994, 

2368, 

2389, 

4869, 

7053, 7100, 



7552, 

7638, 

8068, 

8 1 b 1 , 

8291 , 

8883, 9626 


NXTPG1 

0B45 

3524, 

5054 






NXTRED 

FF2 7 

829, 

830 
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II 
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ii 
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ii 

NZEXIT 

0601 

3438, 

2033, 2490, 3418, 

8 071 , 

8176, 

9615 

f>OCTRDX 

0006 

131 , 

6134, 6418 




OPSTQR 

FFDO 

504, 

505, 512 




OTHER 

FF56 

749, 

751 




OUT DEV 

FF4D 

785, 

786, 1106 




P 

0050 

324, 

5988 




PAGSTR 

0008 

33, 

4735 




PARM1 

FFDB 

168, 

169, 597, 800, 

6226 , 

6234, 

8627, 86b9 

PARM2 

FFDA 

169, 

170, 598, 801, 

8613, 

8682 


PARM3 

FFD9 

170, 

171, 599, 802, 

8620, 

8658, 

8668, 8700 

PARM4 

FFD8 

171, 

172, 803 




PARM5 

FFD7 

172, 

173, 673, 804, 

7403, 

7 435 


PARM6 

FFD5 

173, 

174, 671, 805, 

7 410, 

7421 


PAROT1 

069E 

3647 





PAROT2 

0B9D 

3645, 

4005, 9675 




PAROT3 

0B9C 

3643 





PA ROT 4 

069B 

3641 , 

4013, 4034, 9688, 

9692 



PAROUT 

0B9F 

3649, 

4011, 4020, 4048, 

4064, 

9680, 

9686, 9690 

PERIOD 

002E 

306 





PLUS 

002B 

303 





PULL 

0040 

106, 

6006, oOlO 




PRCCTL 

FFF5 

152, 

153, 1012, 1088, 

2584, 

5293, 

6005 

PREND 

1 b9E 

6220, 

9834 




PREVPG 

0RA9 

3660, 

9829 




PRIMTR 

0008 

767 





PRM010 

2749 

9883, 

9870 




PRMSED 

1 b8E 

6201 , 

9767 




PRM TAB 

2732 

9868, 

6202 




PRNTAL 

0010 

60 





^PROOlO 

1 6 AO 

6225, 

6216 




PR0100 

1 6B9 

6239, 

6210 




P ROC! SR 

0070 

391, 

1011, 2588, 2590, 

5292, 

5294, 

b007 , bOl 1 

PROFLD 

FFC2 

532, 

538, 33b5 , 4743, 

5801 , 

8101 , 

8109, 8217 

PROMPT 

OOOD 

270, 

5142 




PRSTRT 

1694 

6208, 

6233, 9836 




PRV100 

OBBb 

3684 , 

3664 




PR VI 1 0 

0BB9 

368 6, 

3691 




PRVPG1 

0BB4 

3671 , 

5043 




PTB090 

0644 

2208, 

2250 

- 



PTB100 

064 7 

2210, 

2172, 2274, 3453 




PT8200 

0651 

2221, 

2177, 2180 




PTB220 

0671 

2245, 

2227, 2240 




PTB300 

068C 

2272, 

2204 




PTBLK 

0613 

2169, 

981, 1949, 5840 




PTDLlC 

05DC 

473 





PTR120 

0212 

1265, 

1250, 1257 




PTRABT 

FE7d 

857, 

860 




PTRBBG 

FE7D 

854, 

855 




PTRBD2 

00 IF 

486, 

1260 




PTRBLN 

0100 

499 





PTRBPT 

FE79 

856, 

857 




PTRCF2 

8540 

436, 

1259 




PTRCL1 

8D02 

428, 

1248 




PTRDA2 

8560 

435 





PTRDY1 

0001 

477 






9700 


9607 
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it 
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ii 

ii 

it 

ii 

ii 

PTRDV2 

0002 

482 





PTRFLG 

F £ 7 7 

8b0, I2b6 





PTRHD2 

OOEO 

485 





PTRI10 

0200 

1254, 1247 





PTR0L2 

0020 

484 





PTR0I1 

8D20 

426 





PTR01’2 

8540 

433, 1262 





PTRP01 

0080 

478 





PTRSB2 

0040 

483 





PTRSPT 

FE7B 

855, 856 





PTRST1 

8D00 

427, 1245 





PTRST2 

8520 

434, 1255 





PTIPLN 

2832 

894, 895, 

2249 




PUTBRK 

0005 

262, 5 1 b 1 





PU'XLliM 

0691 

2291, 3127, 

7617 




QUOTE 

0o27 

301 





H 

0052 

325, 5109 





RADIX 

FFD4 

174, 175, 

1734, 

5226 



RAMERR 

0F3B 

4449, 4402 





RC4010 

ObEF 

2388, 2399 





RCA120 

0721 

2464 , 24o9 





RCA 130 

0720 

2475, 2483 





RCA 140 

0735 

2480, 2458 





RCA200 

07 3 A 

2 48 8 





RCA210 

0746 

2499, 2504 





RCA.220 

0754 

2509, 2470, 

2479 




RCA240 

075E 

2519, 2451 





RCA245 

0/69 

2530, 2513 





RCA250 

07 71 

2538, 2523 





RCA255 

077B 

2545, 2533 





RCA 2 60 

0 7 7 C " 

2552, 2543 





RC A2 / 0 

079B 

2 5 o 7 , 2565 





RCA44Q 

06F / 

2396, 2379, 

2385 




RCA460 

07 02 

2401, 2391 





RCAUDR 

0708 

2442, 5022, 

8995 




RCADRO 

070B 

2444, 2335, 

3335, 

3743, 

5060, 6229, 

8860 

RCADR1 

06B4 

2327, 3112, 

3194, 

6613 



RCADR2 

06R8 

2330, 2322 





KCADR3 

OfoBB 

2332, 2364 





RCADR4 

06CD 

2361, 4838, 

6995, 

7022, 

7233, 7539, 

9599 

RCADRA 

06A4 

2315, 1004, 

3910, 

64b 1 



RCAORB 

QbAC 

2319, /904 





RCKTCD 

0090 

5720, 5327 





RCRDGO 

2826 

887, 888, 

1899 




rcvmde 

0020 

8b, 1339 





RDABRX 

2837 

896, 897, 

1314 




RDWQwT 

0001 

702 





RD* 

0040 

692 





REC 

0008 

756 





REC INI 

0010 

707 





RECKEif 

280B 

875, 876, 

5741 




RECORD 

0040 

117, 1893 





RECPGE 

0020 

708 





RECRwD 

0008 

705 





REC5EP 

5003 

232, 233, 

5422 
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ItEDKEY 

2805 

873, 

874, 

5740 







MteLSNS 

0004 

634, 

5071, 

5078 , 

5103 






RELTAK 

FF61 

741 , 

743 








REMOTE 

0008 

125, 

1874, 

2132, 

2133, 

5503, 

5533 




REM SEX 

ooto 

84, 

1339, 

1877, 

1922, 

4751, 

5326, 5512, 

5546 



RESET 

0000 

389 









RET 

00C9 

370, 

1089 








REXMIT 

0001 

381 









KGXCTU 

0002 

765 









RHTMGN 

FFBE 

541 , 

542, 

543, 

1423, 

2101, 

6363, 6803, 

6839, 

6962, 

7000, 



7078, 

7266, 

7452, 

7468 , 

7760, 

8356, 8509, 

8726 



RIP 

0004 

696 









RLCRSN 

1 1 D 1 

5070, 

9844 








RLD08Q 

0BEF 

3734, 

3706 








RLD085 

0C0A 

3752, 

3737 








RLD090 

0C 1 8 

3766 , 

3727 








RNGTA 

FF02 

175, 

t 76, 

1571, 

1735, 

1754, 

3886 




ROLOBO 

0C6o 

3828, 

3781 








R0u090 

OC74 

3842, 

3799 








KOLIOO 

0C51 

3802, 

3845 








RUL200 

OC53 

3804, 

3774 








ROLLCT 

F F 8 2 

595, 

605, 

3526, 

3532, 

3685 , 

3688, 6606, 

6641 , 

6646, 

6679, 



6697 , 

6707, 

6713, 

8017, 

8 02 3 





ROLLON 

0BC5 

3704, 

3687, 

3748, 

6709, 

6779, 

9827 




ROLLUP 

OC27 

3779, 

2235, 

3321 , 

3531 , 

4921 , 

8022, 9826 




ROLUPI 

0C6E 

3839, 

78 74 








ROLUP2 

0C54 

3806, 

4928 








ROLUP3 

0C56 

3812, 

7840 








*OLUPC 

0C5 7 

3814, 

7860 








^OMERR 

0F37 

4446, 

4160 








RPTKEtf 

0003 

211 









RSETOC 

0002 

259, 

1037 








RSETKB 

0007 

215, 

1035 








asrc.ru 

2817 

879, 

883, 

1039 







RSTOSP 

1D0E 

7747, 

968 , 

1041, 

3908 






RSTJMP 

0001 

390 









RSTOFF 

0004 

399, 

1515, 

1617 







RSTON 

0002 

398, 

4520 








RSTTMR 

FFDO 

179, 

1022, 

2591 , 

3937 






RTABLE 

2664 

9722, 

1749, 

3885 







RT6010 

2677 

9735, 

9726 








RTB020 

2679 

9737 









RUN 

0001 

753, 

5922, 

6170 







RXMERR 

0F42 

4455 , 

4432 








S 

0053 

326 









SAVINP 

FF23 

834, 

835 








SAVOUT 

FF22 

835, 

839 








SBINRY 

0002 

633, 

4778, 

5542 







SBL010 

1 6E2 

6296, 

6277 








SBL020 

16E3 

6298, 

6292 








SBLXFO 

5 6CA 

6267, 

975, 

3971 , 

4781, 

5082, 

9644 




SBLXE1 

16D5 

6288, 

5347, 

5369, 

5603 






SBLXFA 

1 6CD 

6274, 

976, 

5359, 

5602 






SCHRST 

0C7C 

3853, 

9770 








SCHST1 

0C82 

3859, 

9904 
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SCNCNI 

FF5 4 

772, 

77 3, 

1320 





SC N V tC 

9 i 6b 

137, 

1091 , 

1324 





SCRNRw/ 

FFD9 

599 , 

4955, 

4974, 

5004, 

8599 



SCRSEN 

1000 

b25 , 

4032, 

5081 , 

5085 




SDACUM 

0001 

643, 

1335, 

1650, 

1 7 u9 , 

4435, 

4796, 

5276, 6343, 6415, 

SDC2 

0100 

621, 

5140, 

5371 , 

6291 




SDTERl 

1220 

5129, 

5461 






SDTERM 

1 2 1 D 

5 1 2 7 , 

985, 

3986, 

5644, 

5648 , 

9655 


SDTRM1 

1 bFo 

6319, 

986 , 

5128, 

5459 




SDTRM2 

16FF 

o323 







SDTRM 3 

1 7 0 A 

6329, 

5432 






SO YD UN 

8000 

628 







SD VftEC 

0001 

632, 

47 78, 

5542 





SOYS I 

0800 

624 







SELEC F 

0020 

116 







S ELK EX 

280E 

876, 

8 77 , 

5742 





SEW TEH 

4000 

627 , 

3326, 

4032 , 

5329, 

5346, 

54b5 , 

6253 

SESCIb 

268o 

9750, 

1719 






6 ETCH 

0020 

71 







SETDEO 

1 7 OF 

6342, 

1891 , 

657 3 , 

9089, 

9568 



SEIDEL 

1711 

6344, 

5599, 

6101, 

6507 




SETFRN 

oooc 

220, 

7 555 






SETLCL 

OuO 4 

2b 1 , 

5510 






SETLK i: 

1717 

6360, 

9798 






SETMF2 

1739 

6391 , 

1714, 

4986, 

5072, 

6943, 

9274 


SETMGW 

0008 

265, 

5656 






SETNRM 

0u09 

2o6 , 

5686 






SETREM 

0003 

260, 

5544 






SETRKT 

17 29 

6 3 71 , 

9799 






SETROM 

0080 

107, 

908, 

* 

00 

o 

5291 




SETTRG 

0001 

258, 

1657 






SETTRM 

1 7 3 F 

6400, 

6475, 

9838 





SEVEN 

0037 

314, 

9t> 0 






SFCTKY 

2o0O 

626 , 

4032, 

5601 , 

5634 




SFKCHK 

OF 6 7 

4536, 

6238 






SEKYAT 

00C8 

361 , 

5754, 

9225 





SFK YDS 

OCB A 

3921 , 

1648, 

9718, 

9953 




SFKYOF 

0C8D 

38 78 , 

3925, 

4613, 

56/8, 

5698 , 

7724, 

9855 

SF K YON 

0CA5 

3898, 

9854 






SF0010 

OC AE 

3906, 

3884, 

3887 





SF TCNT 

FF5D 

748, 

749 






SFTDLX 

0032 

383, 

1025, 

10 29 





SF’IEND 

0010 

376, 

9241 , 

9585 





SF TERR 

0008 

736 







SFTKYS 

FFAb 

553, 

554, 

1192, 

55b3 , 

7858 , 

8662 


SFTRS1 

OCCC 

3933, 

9851 






SHET1 

OCDF 

3947, 

3964 






SHFT2 

0CE6 

3953, 

4334 






SHFTliM 

0CE6 

3960, 

9745 






SHFTOT 

0CD8 

3943, 

9744 






SI 

OOOF 

294, 

9204 






SIX 

003b 

313, 

952 






SKETRM 

0008 

646, 

6486, 

9381 





SLANT 

Ou2F 

307 







SLKYCD 

009E 

5721 
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SMALLA 

0061 

337 , 

5089, 

9271 

SMALLD 

0064 

339, 

9160 


SMALLF 

0066 

340, 

9248 


SMALL! 

0069 

341 



smallk 

006B 

342, 

9255 


SMALLP 

0070 

343 



SMALLX 

0078 

344, 

1213 


SNDAXN 

0008 

26 8, 

6426 


SNDCD1 

1 7 5 A 

6423, 

9979 


SNDC02 

12CE 

5311, 

9982 


SNDCDE 

1 7 4C 

6413, 

9890 


SNDCTB 

27B0 

99/4, 

6417 


SNDFCT 

OUOC 

269, 

5314 


SO 

OuOE 

293, 

9200 


SPLD1S 

0002 

29, 

8788 


SPUWL 

FF6C 

658, 

66 3 , 

1281, 1494, 

SPUwiUF 

OuFf 

661 , 

3312, 

6896 

SPOWUN 

0020 

660 , 

8791 


SSI' AT 

0200 

622, 

39/0, 

3976 

S ST AT 2 

0400 

623, 

4026, 

9643, 9649 

STA010 

0D5 1 

4044, 

4042 


STA2G1 

262o 

9666, 

9654 


STA2G2 

2629 

9668, 

4386 


STA2G0 

2612 

9648, 

1695 


STACK 

9160 

503, 

1013, 

1287 

STAPAR 

OD 1 4 

3997, 

3981 , 

4384 

START 

0220 

1275, 

1043 


STAT2 

2b0C 

9642, 

9786 


STATGO 

0CF9 

3975, 

1694 


STATUS 

OCF 3 

3969, 

9837 


STBOiO 

1770 

6465 , 

6462 


STB050 

1784 

6474, 

6464 


STBObO 

1799 

6483, 

6505 


STB080 

17A2 

6493, 

6480 


ST6LMD 

0004 

212 



srcoio 

0D7 A 

4087, 

4081 


STCHR1 

0D68 

4077, 

2055, 

3208 

STCBST 

0000 

221 , 

5400 


STCMFL 

1400 

5555, 

2852, 

3902, 5198, 

STF0R1 

OOFE 

5733, 

1382 


STFCIR2 

OOFO 

5732, 

1384 


STQREA 

1605 

6093, 

3770 


STPFLG 

00C4 

357, 

48 / 5, 

6403, 6478, 



9416, 

9625 


STPR 

OOCO 

353, 

2030, 

3360, 5752, 



7914, 

7956, 

8097, 8097, 

STPRPT 

0009 

217, 

9125 


STPXFR 

FFFF 

654, 

5397, 

9612 

STR010 

1 1BF 

5053, 

5063 


5TRTAK 

405F 

745 



STRTbl 

1769 

6449, 

6446 


STRTBL 

1763 

6445, 

9/7 


STRTST 

0005 

213, 

4116 


STRXMO 

1699 

6214, 

9863 


STTERM 

1771 

6460 , 

5338 
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3311, 6895, 7780, 8790, 8051 


6126, 8415 


7667, 

7937, 

8074, 

8201 , 

8886, 

8891 , 

6209, 

8216, 

6232, 

8939, 

7068, 

8965, 

7290, 

9437 

7665, 

7914, 
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n 

M 

ii 

it 

ti 

n 

it 

ii 

ii 

ti 

ii 

ii 

it 

ii 






it 

ii 

it 

ii 

it 

ii 

ii 

ii 

it 

ii 

n 

u 

ii 

ti 

it 

it 

it 

if 

ii 

ii 

ii 

H 

11 

II 

II 

II 

II 

SWAP 

2169 

8718, 

1232, 

3907, 

8657, 

8748 





SWAPO 

2163 

8713, 

8691 , 

8756 







SWAP 1 

216F 

8723, 

2213 








SWCHAR 

OOOB 

219, 

3949 








SWP010 

2177 

8730, 

8740 








swpcru 

FF24 

831 , 

834 








SWPSTR 

FFAF 

543, 

544, 

8725 







r 

0051 

327, 

4544, 

8688 







TAK 

0006 

695 









TCHAR 

FF68 

666 , 

667, 

4328, 

4336, 

4342 





TEMP 

FF9D 

565, 

566, 

7370, 

7379, 

7953 , 

7964, 

8062 



TEMPI 

FF9E 

564, 

5o5 








TEST 

0D7D 

4095, 

9862 








TESTQK 

0002 

90, 

4361 








THREE 

0033 

310, 

928 








TKI 

0080 

691 









TLINO 

Ff A3 

555, 

556, 

3719, 

3789, 

4479, 

4990, 

5040, 

5107, 

7778, 9441, 



9513 









TM1010 

07C2 

2598, 

2594 








TMI020 

07CA 

2604, 

260 2 








TMIIOO 

07 DB 

262 0, 

2607 








Tfmio 

0 7 F 7 

2636, 

2624 








TMIACK 

0000 

100 









TM1EN 

0002 

103, 

908, 

X087 , 

2587, 

2589 





TMINTR 

0 7A4 

2582, 

929 








TMXOFF 

G02u 

105 









TMPCOL 

FF85 

589, 

593, 

2445, 

2511 , 

2520, 

2563, 

66 31 , 

b694 


TMRXNT 

0003 

95, 

2622, 

5302 







TMRON 

0001 

102, 

908, 

1087 







TOP 100 

OF 8 5 

4484, 

4482 








TOPLXN 

FFC8 

518, 

521 , 

2099, 

2222, 

3417, 

3427, 

3711 , 

3753, 

3791, 3803, 



3829, 

44»9 , 

6681 , 

7748, 

7793, 

7 8 20 




TOPUP1 

0F86 

4486, 

3231 








TOPUPO 

OF 7 9 

4475, 

37o4 , 

3840 







TPSTAL 

FF50 

777, 

761 , 

2599 







TRXGGR 

5002 

231 , 

232, 

1652 







TRMFC'I 

FF6D 

652, 

658 , 

2318, 

2532, 

2556, 

5398, 

5463, 

6402, 

6612, 8100, 



8106, 

8249, 

9598, 

9613 






TRMRDX 

0F6 A 

4469, 

1267 








TRMTST 

008C 

4106, 

988 








TRMTXP 

FFFD 

144, 

145, 

1128, 

9679 






TST010 

0DA8 

4127, 

4137, 

4139, 

4144, 

4156 





TST020 

ODCE 

4150, 

4141 








TST030 

0009 

4159, 

4146 








TST050 

0DE8 

4182, 

4135 








TSTObO 

0DF9 

4197, 

4201 








TST090 

0E06 

4209, 

4282 








TST100 

0E09 

4215, 

4224 








rSTH5 

0E1 3 

4227, 

4230 








1ST 1 20 

OEIA 

42 35, 

4245 








TST125 

0E27 

4248, 

4251 








1ST 1 30 

0E2C 

4256, 

4267 








1ST l 40 

0E42 

4279, 

4274 








1ST 150 

0E55 

4303, 

4311 








1ST 160 

0E68 

4314, 

4307 
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TST200 

0E72 

4324, 4352 


n 

ii 

ii 

ii 

n 

1! 





TST22G 

0E7 9 

4329, 

4346 







TST240 

0E8 4 

4335, 

4348 







TST420 

OEAF 

4359, 

4370 







TST440 

0EC4 

4372, 

4367 







TSTSOO 

OEED 

4397 , 

4312, 

4317 






TST510 

OEEF 

4400, 

4239, 

4261 






TST600 

OEF3 

4414, 

4169 







TST610 

OFOE 

4428, 

4420 







TSTCTU 

2811 

877 , 

878 , 

4100 






TWO 

0032 

309, 

920 







TYPSET 

OFAB 

4527, 

9774 







U 

0055 

328 








UN I TO 

FF63 

720, 

731 







UNLKKB 

0002 

210, 

6076 







USL 

0010 

757 








USREAD 

0002 

703, 

1313 







VERIFY 

0080 

710 








VERSN 

0050 

5, 

905, 

4607, 

6583, 

8434 




VERSNl 

0051 

6 , 

2649 







VRTBAR 

007C 

346, 

9651 







WBSR 

0o20 

126 








WRPDEL 

0020 

637, 

6942, 

6980 






WRPFLG 

0040 

638, 

1465, 

1477 , 

8540 





WRTERR 

0020 

738 








WTLOIO 

0236 

1292, 

1322, 

1327 , 

1342 





WTL020 

025F 

1319, 

1299, 

1311 






WTL200 

0274 

1332, 

1303, 

1305, 

1441 





WTL205 

028C 

1344, 

1340 







WTL210 

02A6 

1362, 

1350 







WTL250 

02B9 

1374, 

1 364 , 

1366 






WTL260 

02BB 

1376, 

1391, 

1396, 

1401 , 

1406 




WTL2 70 

02 DC 

1393, 

1381 







WTL280 

02E3 

1398, 

1383 







WTL290 

Q2E9 

1403, 

1385 







WTL300 

02FO 

1412, 

1348 







WTL.310 

0313 

1430, 

1414, 

1418, 

1421 





WTLOOP 

0230 

1286, 

1358, 

1369, 

1388, 

1434, 

1437 



XBF2DS 

0080 

649, 

4112, 

5276, 

8539 





XDS2BF 

0020 

715, 

3329, 

4720, 

9426, 

9531 




XFRLIM 

FF 4 7 

791 , 

792 







XMDOOO 

0FC8 

4560, 

4577 







XMDOIO 

OFCB 

4563, 

4560, 

4586 






XMD020 

0FE7 

4584, 

4575 







XMD030 

OFEO 

4590, 

457 2 







XMOHME 

1 7F4 

6572, 

5379, 

6452, 

9815 





XMONLY 

00C2 

355, 

2397, 

6215, 

8134, 

8205, 

8493, 

8873, 

9211 

XMS2DS 

OFCD 

4567, 

1219, 

7733 






XPDOOl 

17C9 

6529 , 

6553 







XPD005 

1 7D4 

6535, 

6528 







XPDOIO 

1706 

6543, 

6534 







XPD050 

1 7EA 

6560, 

6533 







XPUTDC 

17C1 

6524 , 

967, 

2136, 

3980, 

5090, 

5094, 

5098, 

5121, 5402, 5409 



5423, 

5431 , 

5442, 

5649, 

6322, 

6325, 

6331 , 

6521, 9653 

XTRASP 

FE80 

845, 

847 
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ii 

it 

ii 

H 

ii 

ii 

it 

ii 



ii 

ii 

ii 

li 

ii 

ii 

ii 

ii 

it 

«i 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

it 

ii 

ii 

ii 

ii 

ii 

ii 

it 

ti 

it 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

ii 

ti 

ti 

it 

H 

li 

H 

ii 

ii 

Y 

0059 

329, 

5105 





Z 

005 A 

330 






ZALPCK 

4823 

199, 

200, 

8231 




ZBELL 

4814 

194, 

195, 

1341, 

1426, 

3463, 4322, 

5191, 6230, 6564, 8495 



9015, 

9034, 

9118, 

9135, 

9736 


ZB8K1 

0800 

2648, 

4605, 

2650 




ZBRK2 

1000 

4606 , 

6581 , 

4608 




ZBRK2C 

1002 

4609, 

4604 





ZBRK3 

1800 

6582 , 

8432, 

6584 




ZBRK4 

200U 

8433, 

8435 





ZCLMD1 

4811 

193, 

194, 

3381 , 

5690, 

5802, 8409 


ZCLXMT 

481 A 

196, 

197 





ZCTLAL 

6014 

282, 

283 





ZDC6 AS 

5000 

230, 

231 , 

241 




ZDCCTL 

5011 

244, 

245, 

5188, 

56d7 



ZDC1NT 

5026 

251 , 

5154 





ZOCMGN 

500E 

243, 

244, 

2631 




ZDCTST 

5014 

245, 

246, 

5261 




ZDSPMS 

0040 

967 






ZERO 

0030 

3u8 , 

1207 , 

2678 , 

2746, 

2766, 2787, 

3651, 4531, 5223, 9230 



9253, 

92o2 





ZGETAL 

600E 

280, 

281 





ZGETOC 

501 7 

246, 

247, 

1883, 

6167 



ZGETia 

4805 

189, 

190, 

1304, 

9121 



ZGTBIN 

50 1 D 

248, 

249 





ZIN2AL 

6005 

2/7, 

278 , 

1119 




ZIM20C 

500B 

242, 

243, 

1100 




ZINIAL 

6002 

276, 

277, 

1114 




Z1NIDC 

5008 

241 , 

242, 

1098 




ZINIKB 

4802 

188, 

189, 

1097 




ZINTAL 

6008 

278, 

279, 

6016 




ZKBBAS 

4800 

187, 

188 





ZKBCTL 

4808 

190, 

191 , 

1036, 

2597, 

3950, 4099, 

4117, 4393, 5323, 5401 



5850, 

5856, 

6077, 

6105, 

6549, 7556, 

9126 

ZKBMON 

480B 

191 , 

192, 

2629 




ZMONAL 

600B 

279, 

280, 

2628 




ZMSGAL 

60 1 A 

284 






ZNDBIN 

5023 

250, 

251 





ZNUMCK 

4826 

200, 

204, 

8233 




ZPUXAL 

6011 

281 , 

282 





ZPUTDC 

501 A 

247, 

248, 

6532 




ZRETRN 

0706 

2407, 

3366, 

7905, 

8208, 

8236 


ZSTAAL 

6017 

28 3, 

284 





ZST61N 

5020 

249, 

250 





ZSTJPR 

48 1 D 

197, 

198, 

9879 




ZSTLKY 

4820 

198, 

199, 

9873 




ZSTMD1 

480E 

192, 

193, 

3398, 

3461 , 

5668, 7762, 

8403 

ZSTXMT 

481 7 

195, 

196 





1348 

SYMBOLS , 

4588 

REFERENCES, 

47 

WORK TRACKS 




